建议在button1的click事件写代码处理,如
If tables("表A.表B").current("第一列") <> nothing then
msgbox("不可以用")
return
End If
'后面写click原来的代码