主题：[求助]模拟按钮动作

我想在当前表“表A”设置一个按钮，执行“表B”窗口"梁构件分类"中的"Button1"按钮命令，下面的代码只有在打开“表B”情况下才有用，各位帮忙看一下
Dim btn As WinForm.Button
Btn = Forms("梁构件分类").Controls("Button1")
btn.PerformClick()

这样也没有办了。还有一个问题：当前文件为A，执行“打开”文件时，如果最后取消，当前表的所有窗口都会被关闭，怎样解决