DAO フィルターをかけたい エクセルです
昨日も
http://oshiete.coneco.net/qa8283354.html
で質問し、nicotinism様にご回答いただいたのですが
またわからなくなったので教えてください。
エクセルからアクセスでDAOで接続した時に、
フィルタをかけて該当のレコードの他のフィールドの値を返すにはどうすればいいでしょうか?
-------------------------
Sub test()
Dim ac As Object
Dim db As DAO.database
Dim DAOrs As DAO.Recordset
Set ac = CreateObject("Access.Application")
Set db = ac.DBEngine.OpenDatabase("PW.accdb", False, True, ";pwd=0000")
Set DAOrs = db.OpenRecordset("select * from TPW")
DAOrs.Filter = "サイト名 = " & "'nanaco'"
MsgBox DAOrs("Password")
DAOrs.Close: Set DAOrs = Nothing
db.Close: Set db = Nothing
ac.Quit: Set ac = Nothing
End Sub
-------------------------
これだとエラーにもならないけどフィルタがかかってない為、全然関係ないレコードの値を取得してしまいます。
再度ご回答いただければ助かります。
ご教授よろしくお願いします。
お礼
私の場合、移行する必要はなさそうです。DAOのまま行こうかと思います。ありがとうございました。