主题：如何禁止删除已经被引用过的表

请教各位老师：

一张表如“订单”，如果其在项目中的某一位置（不管哪里）比如某行代码如下：

 

If MainTable.Name = "订单" Then '如果选择的主表是订单表
Tables("订单").Cols("客户").Combolist = DataTables("客户").GetComboListString("公司名称")
End If

 

只要某处用到过“订单”或“订单”中的任何一个数据，则删除“订单”表时就提示“此表和其他数据有关，不能删除”。

看了很久的帮助，好象没有删除表的事件，若用按钮或菜单设计要如何编写删除时其中的

“是否被引用”的判断？

 

谢谢！

那先谢谢两位老师了，也许设计好的系统一般人是不会接触到删除整个表的。