スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文  expression.FindNext

設定項目        内容
expression      DoCmdオブジェクト［省略不可］

FindRecordメソッドやFindNextメソッドで指定した前回の検索条件を満たす、次の
レコードを検索します。

●サンプル●
Sub FindNextSample()
    Dim myInputData As String
    'エラーの場合、myErr:　へ
    On Error GoTo myErr
    DoCmd.OpenForm "35"
    '入力ダイアログを出して検索文字列を入力させる
    myInputData = InputBox("検索したい文字を入力してください")
    '入力ダイアログに入力した内容を、イミディエイトウィンドウに表示
    Debug.Print myInputData
    '入力ダイアログにフォーカスが移ったため、[book_id]コントロールにフォーカスを戻す
    DoCmd.GoToControl "book_id"
    'すべてのフィールドから検索
    DoCmd.FindRecord myInputData, acAnywhere, , , , acAll
    'メッセージダイアログで「はい（Yes）」がクリックされたら次のレコードを検索
    Do Until MsgBox("次のレコードを検索します", vbYesNo) = vbNo
        DoCmd.FindNext
    Loop
    'プロシージャを終了
    Exit Sub
myErr:
    'エラーメッセージを出す
    MsgBox Err.Description
End Sub