レコードの検索について

質問

vbの初心者です。質問です。

ある特定の条件を２つ満たしたレコードを検索して、
そのレコードをカレントレコードとしたいのですが...

条件が一つであれば、FindFirstを使って、

*--------------
変数宣言は省略
*--------------

Set db = DBEngine.Workspaces(0).OpenDatabase("データベース名")
Set rsDAO = db.OpenRecordset("テーブル名", dbOpenDynaset)

kensaku = "irai_no = '100'"

rsDAO.FindFirst kensaku

などとすれば、テーブルのirai_noフィールドが "100"の最初のレコードがカレントレコード
となるというのはわかっているのですが...

それでは、もう一つ条件として"gyosya_nm='ABCD'"も満たす、つまり
2つの条件を満たすレコードを検索するにはどうすれば良いですか？

できれば、一つの命令でお願いしたいです。
宜しくお願い致します。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

kensaku1 = "irai_no = '100'"
kensaku2 = "gyosya_nm = 'ABCD'"

rs.DAO.FindFirst kensaku1 & "AND" & kensaku2

でいいと思います。
ちなみに、

kensaku = "irai_no = '100' AND gyosya = 'ABCD'"

rs.DAO.FindFirst kensaku

でももちろんいいです。
では。

お礼

実はANDでつなげてFindFirstで試していたのですが、
検索内容とANDの間にスペースを入れていなかったので
エラーになっていたようです。

おかげさまで出来ました。ありがとうございます.