Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何判断表的存在?急!!!

cwzj3807  发表于:2017-04-24 11:03:36  
复制

求助各位老师:

假如我的Access中有一张名为“AAA”的表,如果我要用代码判断它是否存在,其代码该如何写呢?谢谢!

 

 

 


 

Top
宏鹏 发表于:2017-04-24 12:09:40
检查对象是否存在的函数[Access软件网]
http://www.accessoft.com/article-show.asp?id=9919

朱先生 发表于:2017-04-24 14:18:59

If DLookup("[ID] ", "[MSysObjects]", "[Type]=1 and [Name]='AAA'") Then
        MsgBox "YES"
    Else:
        MsgBox "NOT"
    End If

 

试一下



yuhong 发表于:2017-04-24 14:44:14
删除数据库表
用途:删除数据库中的表,可以采用通配符形式如:"A*",可以删除名字首字母为A的表,表不存在不会出现错误信息!
Public Function delTbl(TblName As String)
Dim tbl
For Each tbl In CurrentDb.TableDefs
If tbl.Name Like TblName Then
DoCmd.DeleteObject acTable, tbl.Name
else
Exit Function
End If
Next
Application.RefreshDatabaseWindow
End Function

cwzj3807 发表于:2017-04-24 15:51:31

谢谢各位老师的指点!学习中。

 

 

 



总记录:4篇  页次:1/1 9 1 :