主题：禁止删除表

自己做一个按钮

 

 

Dim tname() As String = {"表A", "表C"}
If array.Indexof(tname, CurrentTable.Name) >= 0 Then
    msgbox("此表不能删除")
Else
    Syscmd.Table.Delete()
End If

是的。

你直接修改原来菜单的按钮也可以嘛

那就不写2楼的代码即可，但都做一个删除表的菜单按钮。