DAOオブジェクト レコードの検索
次はテーブル「T_名簿」の内性別が「女」の全データを検索して取得します。
使用例
次はDAO接続でテーブル「T_名簿」に接続して保存されている「名前」を書きだすものです。処理が終わった後は終了処理を行っておきます。
Public Sub Sample6()
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("T_名簿", dbOpenDynaset)
'最初のレコードを検索する
rs.FindFirst "性別 = '女'"
Do Until rs.NoMatch
'指定した条件を満たすレコードが存在する場合
Debug.Print rs!番号 & rs!氏名 & rs!性別
'次のレコードを検索する
rs.FindNext "性別='女'"
Loop
'レコードセットを閉じる
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
実行した結果です。女性の名前が取り出されました。
（この項終わり）