2个回答
展开全部
Const tabname = "biao1" '假定要找的表名为:biao1
Dim obj As Object
Dim l As Object
Set obj = CurrentData.AllTables 'obj是当前数据库表集合对象
For Each l In obj
If l.Name = tabname Then
MsgBox "数据库中存在表:" & tabname '如果找到目标表,则给出提示,否则没有提示。
Exit For
End If
Next
我测试了的,没有问题。
Dim obj As Object
Dim l As Object
Set obj = CurrentData.AllTables 'obj是当前数据库表集合对象
For Each l In obj
If l.Name = tabname Then
MsgBox "数据库中存在表:" & tabname '如果找到目标表,则给出提示,否则没有提示。
Exit For
End If
Next
我测试了的,没有问题。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |