カテゴリー
SugiBlog ホームページ制作・システム開発|大阪

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

この記事がお役に立ちましたらシェアお願いします

1,067 views

コメントは受け付けていません。