ACCESS VBAテーブルレコードの存在チェック

質問

ACCESS初心者です。
ACCESS VBAでレコードの削除をコーディングしました。
但し、ワークファイル（wk11_月）がないと異常終了します。
そこで、存在チェックを追加したいのですが、コーディングがわかりません。ご存知の方、宜しくお願いします。
'＜レコード削除＞
strsql = "DROP TABLE wk11_月"
rst.Open strsql, cn, adOpenKeyset, adLockOptimistic

回答No.1

noname#140971 · ベストアンサー

If TC(TableName) Then
　　・・・・
　　削除
　　・・・・
End IF

というやり方でよけりゃ・・・。

[イミディエイト]
? TC("tab1")
True
? TC("tab2")
False

TC関数はテーブルの有無をチェックする関数です。

Public Function TC(ByVal TName As String) As Boolean
On Error GoTo Err_TC
　　Dim rstTable As DAO.Recordset

　　Set rstTable = CurrentDb.OpenRecordset(TName)
　　TC = True
Exit_TC:
　　Exit Function
Err_TC:
　　Resume Exit_TC
End Function

ADOX.Catalog　を利用してチェックするのが常套手段かも知れませんが出来りゃ良しということで・・・。

お礼

すばらしい。
ありがとうございます。
Dim rstTable As DAO.Recordset
でエラーになりましたが、
Dim rstTable As ADO.Recordset
でOKでした。
DAOとADOの違いが何なのか理屈は、わかりませんが、、、
勉強します。