1: Private Sub BTN_REFRESH_Click() 2: ' [最新の状態に更新]ボタンが押されたときの処理 3: Dim PRODUCTID As Long 4: 5: On Error Resume Next 6: 7: ' 現在のIDフィールドの値を取得 8: PRODUCTID = g_objRec.Fields("ID").Value 9: 10: ' 最新の情報に更新 11: RefreshData 12: 13: ' 保存しておいたIDフィールドの値をもつレコードをカレント行とする 14: g_objRec.MoveFirst 15: g_objRec.Find "ID=" & PRODUCTID, 0, adSearchForward 16: End Sub