#243
インプットボックスで「ID」フィールドの任意の値を指定し、そのID値を持ったレコードにジャンプさせるプログラム例です。この方法は、「ID」フィールドだけでなく、顧客IDや社員番号など、任意のフィールドのレコード検索に応用することもできます。ポイントは、フォームのRecordsetオブジェクトの"FindFirst"メソッドを使うことです。
Private Sub cmdIDJump_Click()
'cmdIDJumpボタンのクリック時
Dim strRet As String
Dim strCriteria As String
'インプットボックスを表示
strRet = InputBox("ジャンプ先のIDの値を指定してください。")
If Len(strRet) > 0 And IsNumeric(strRet) Then
'検索条件を組み立て
strCriteria = "ID = " & CLng(strRet)
'該当する先頭レコードに移動
Me.Recordset.FindFirst strCriteria
End If
End Sub
'cmdIDJumpボタンのクリック時
Dim strRet As String
Dim strCriteria As String
'インプットボックスを表示
strRet = InputBox("ジャンプ先のIDの値を指定してください。")
If Len(strRet) > 0 And IsNumeric(strRet) Then
'検索条件を組み立て
strCriteria = "ID = " & CLng(strRet)
'該当する先頭レコードに移動
Me.Recordset.FindFirst strCriteria
End If
End Sub
【実行例】
※この方法は、メインフォームからの操作によってサブフォームのレコード移動をさせたい場合にも応用することができます。それには、次のようにコードを変更します。
Me!サブフォームコントロール名.Form.Recordset.FindFirst strCriteria
※同様に、他のフォームのレコード移動を行いたい場合には次のようにします。
Forms!フォーム名.Recordset.FindFirst strCriteria
