|
ACCESSテーブルを見てレコードがある場合の処理と無い場合を行いたく、以下のコードを書きましたが、FindFirstのところで
「このタイプのオブジェクトには実行できません」とのエラーが出ます。
FindFirstはできたと思うのですが、何がおかしいのか分かりません。
やりたいことは、(ひとまずDAOで)レコードの存在有無が分かればよいです。
分かる方おりましたら、ご教示のほどよろしくお願いします。
Dim DB_WS As DAO.workspace
Dim DB_DB As DAO.database
Dim DB_RES As DAO.Recordset
Dim str1 As String
Set DB_WS = DBEngine.Workspaces(0)
Set DB_DB = DB_WS.OpenDatabase("c:\test.mdb")
Set DB_RES = DB_DB.OpenRecordset("テストテーブル")
str1 = "ID='001'"
DB_RES.FindFirst str1
If DB_RES.NoMatch Then
'レコードがなかった場合の処理
Else
'レコードがある場合の処理
End If
|
|