从一窗体调用执行另一个窗体命令

 

要实现从一窗体调用执行另一个窗体命令，不同的人会用不同的方法，有的喜欢通过定义一个公用的涵数，在不同窗体调用相同的涵数；也有的用TIMER事件去触发另一个 窗体的事件。这里介绍一个小方法跟大家 分享：

       窗体1为被调用的窗体名，并建一个按钮作为测试对象：

      Private Sub Command0_Click()
           MsgBox "你已经实现了从一窗体执行另一个窗体的命令"
      End Sub

      下面是窗体2代码调用窗体1并执行Command0_Click()
       Private Sub Command0_Click()
          DoCmd.Open Form "窗体1"
          DoEvents    '这个必须,否则只能在弹出窗体才能正确运行
          Forms!窗体1.Command0.SetFocus
         SendKeys "{ENTER}"
     End Sub

     哈哈，是不是很简单呢。这其实不是我想要的结果，最终希望能够通过API来现实不同窗体及不同程序间的互相呼唤调用，只可惜 ACCESS 控件的句柄有点麻烦，暂时还没能借用PostMessage实现更强大的功能。大家将就一点，等完善后就和大家分享！！