ブックマークを保存する

Option Explicit

Private db As ADODB.Connection
Private rs As ADODB.Recordset
Private bkmark As Variant

Private Sub CommandButton1_Click()
    '100件目のレコードに移動
    rs.AbsolutePosition = 100
    
    '値をセルにセット
    Range("D4") = rs("顧客ID")
    Range("D5") = rs("顧客名")
    Range("D6") = rs("郵便番号")
    Range("D7") = rs("住所")
    Range("D8") = rs("TEL")
    Range("D9") = rs("FAX")
    Range("D10") = rs("メモ")
    
    'ブックマークを付ける
    bkmark = rs.Bookmark
    '先頭レコードへ移動
    rs.MoveFirst
End Sub

Private Sub CommandButton2_Click()
    '顧客管理のACCDBファイルに接続します
    Set db = New ADODB.Connection
    db.Provider = "Microsoft.Ace.OLEDB.12.0"
    db.Open "C:\MyHP\ExcelTips\顧客管理.accdb"

    'レコードセットを開きます
    Set rs = New ADODB.Recordset
    '顧客テーブルを開きます
    rs.Open "T_顧客マスター2000件", db, adOpenKeyset, adLockOptimistic
    'この時点で先頭レコード
End Sub

Private Sub CommandButton3_Click()
    'ブックマーク位置へ移動
    rs.Bookmark = bkmark
    
    '値をセルにセット
    Range("E4") = rs("顧客ID")
    Range("E5") = rs("顧客名")
    Range("E6") = rs("郵便番号")
    Range("E7") = rs("住所")
    Range("E8") = rs("TEL")
    Range("ED9") = rs("FAX")
    Range("E10") = rs("メモ")
   
End Sub

Private Sub CommandButton4_Click()
    '閉じる
    rs.Close
    db.Close
    '終了処理
    Set rs = Nothing
    Set db = Nothing
End Sub