設(shè)為首頁收藏本站Access中國

Office中國論壇/Access中國論壇

 找回密碼
 注冊

QQ登錄

只需一步,快速開始

返回列表 發(fā)新帖
查看: 2616|回復(fù): 3
打印 上一主題 下一主題

[宏/菜單/工具欄] 在執(zhí)行宏時(shí)如何查找某個(gè)表有沒有

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2013-7-4 21:15:07 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
在執(zhí)行宏時(shí)如何查找某個(gè)表有沒有,如有,則執(zhí)行宏,如沒有,則給出提示并終止。請高手們邦邦忙,先多謝了!

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號?注冊

x
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖 訂閱訂閱

點(diǎn)擊這里給我發(fā)消息

2#
發(fā)表于 2013-7-4 23:26:54 | 只看該作者
你在模塊中建立一個(gè)函數(shù),代碼如下(參考cuxun的)

我貼個(gè)方法出來:
public Function IsTableed(ByVal TempTableName As String) As Boolean
''測試表是否存在
    If DCount("*", "MSysObjects", "Name='" & TempTableName & "'") = 0 Then
        msgbox "系統(tǒng)未發(fā)現(xiàn)此表;" & TempTableName
        IsTableed = False
    Else
        IsTableed = True
    End If

End Function

點(diǎn)擊這里給我發(fā)消息

3#
發(fā)表于 2013-7-4 23:27:08 | 只看該作者
在宏里可引用這個(gè)函數(shù)來判斷
4#
 樓主| 發(fā)表于 2013-7-7 22:45:45 | 只看該作者
謝謝樓主,可我不會(huì)代碼,用不來。
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則

QQ|站長郵箱|小黑屋|手機(jī)版|Office中國/Access中國 ( 粵ICP備10043721號-1 )  

GMT+8, 2025-7-17 06:00 , Processed in 0.097800 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表