カテゴリー
SugiBlog Webエンジニアのためのお役立ちTips

DAOでレコード検索

この記事は最終更新日から1年以上経過しています。
Dim dbs As Database
Dim rst As Recordset
Dim strCriteria As String

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("住所テーブル", _
dbOpenDynaset)

With rst
    strCriteria = "住所 Like '東京*'"
    .FindFirst strCriteria
    Do Until .NoMatch
        Debug.Print !ID, !氏名, !住所, !郵便番号
        .FindNext strCriteria
    Loop
    .Close
End With
この記事がお役に立ちましたらシェアお願いします
2,426 views

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です