ACCESS　findnext　レコードある限り検索

Findnext　Nomatchを使って、次の値を検索する。

Findnext　Nomatch

レコードを検索する場合によく利用される方法です。

条件に一致するレコードの判定は、Recordsetオブジェクトの「NoMatch」プロパティで判定します。

難しいように思うかも知れませんが、今回の方法は、何度か動画で紹介しています。

Findnext　Nomatch　作成手順その1　データベース確認

上の図のようなデータベースがあります。

名前のフィールドに同じ値があります。

例えば、仮面ライダーは、2つあります。

仮面ライダーある限り検索を実行します。

Findnext　Nomatch　作成手順その2　検索フォームを作成する

ACCESS　検索フォームの作成　その1　連結　非連結とは

2019.11.12

検索フォームの作成について こんにちは。伊川(@naonaoke)です。 今回は、ACCESSの初心者が、いったんは、疑問に思うことを説明します。 そして、疑問を解消しながら、カン...

検索フォームの作成については、上の記事を確認してください。

また、今回は、レコードの検索ボタンは、2つにしています。

最初は、「レコードの検索」をクリックして、次に「次を検索」をクリックします。

Findnext　Nomatch　作成手順その3　コードを仕込む

コードの説明は上の図の通りです。

Private Sub コマンド14_Click()
DoCmd.ApplyFilter , "[名前] = '" & Me!名前検索 & "'"

End Sub






Private Sub コマンド15_Click()
Dim myRS As Recordset
    
    Set myRS = Me.RecordsetClone
    
    myRS.Bookmark = Me.Bookmark
    
    myRS.FindNext "名前 = '" & 名前検索.Value & "'"
    
    If myRS.NoMatch Then
        MsgBox "最後まで検索しました。"
    Else
        Me.Bookmark = myRS.Bookmark
    End If
    
    myRS.Close
    Set myRS = Nothing
End Sub

Findnext　Nomatch　作成手順その4　コードを実行する

これで検索終了です。

ここがポイント

ここがポイント

このFindメゾットは、Excelでも良く使います。NoMatchはACCESSでよく使います。Findメゾットと聴いて、Excelの場合、ACCESSの場合と、連想できれば、VBAに慣れてきた証拠です。

まとめ