Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Access 2016)
フィールド検索です
投稿日時: 19/11/28 12:05:32
投稿者: miyama2305

テキストボックス(名前ID、フオームヘッダーに表示)に表示した伝票番号が
帳票フォームのフイールド(伝票番号)と一致したら
レコードをジャンプさせたいのですが
以下はAccess Tipsさんからのコードです
検索ボタンはフオームヘッダーに表示しています
 
Private Sub 検索_Click()
Dim strRet As String
Dim strCriteria As String
'インプットボックスを表示
strRet = InputBox("ジャンプ先の伝票番号を指定してください。")
If Len(strRet) > 0 And IsNumeric(strRet) Then
'検索条件を組み立て
strCriteria = "伝票番号 = " & CLng(strRet)
'該当する先頭レコードに移動
Me.Recordset.FindFirst strCriteria
End If
End Sub
 
>strRet = InputBox("ジャンプ先の伝票番号を指定してください。")
このコードを
strRetをMe.IDに記入表示した伝票番号で行いたいのです
ご指導おねがいします。
 

投稿日時: 19/11/28 13:08:29
投稿者: miyama2305

申し訳ありません
解決しました。