Microsoft Access VBA - 同じ条件で次のレコードを検索する方法

◆FindNext
　FindNextメソッドは、前回実行した検索と同じ検索条件を満たす次のレコードを検索するメソッドです。FindNextメソッドを使用すると、特定条件でのレコード検索を繰り返して行うことができます。

◆Sample

フォームに「検索」テキストボックスと、「実行」コマンドボタンを配置します。

Private Sub 実行_Click()
   Dim strSearch As String
   If IsNull(Me.検索) = True Then
       MsgBox "顧客名を入力してください。"
       Exit Sub
   End If
   strSearch = Me.検索
   DoCmd.OpenTable "Customers"
   DoCmd.FindRecord strSearch, acAnywhere, True, _
       acSearchAll, True, acAll, True
   Do
       If MsgBox("次を検索しますか?", vbOKCancel) = vbCancel Then
           Exit Sub
       Else
           DoCmd.FindNext
       End If
   Loop
End Sub
◆実行結果

実行結果

▼ページトップに戻る