MainTableChanged事件中设置如下代码:
If MainTable.Name = "表A" andalso forms("A").opened Then forms("A1").open
else
forms("A1").closeEnd If