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

andymark

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

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

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

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

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

游客，如果您要查看本帖隐藏内容请回复

fswxs

抢了沙发先 这是我最想要的，谢谢版主

t小宝

还有一个办法，把窗体1的代码改为公用过程Public，就可直接调用过程

huangqinyong

ok

fangkinght

liangzhenye

太好了,多谢,

tmtony

我现在是简单将事件 Private 改为 Public

fan0217

窗体也是个类模块，可以用类的方法来做些事情。

andymark

　将事件 Private 改为 Public　用下面的方法更为方便
　Dim frm As New Form_窗体1
    frm.Command0_Click

andymark

本来用这个例子作为练习PostMessage的，ACCESS的控件的句柄真有点怪怪，用gotfocus得出得的值，并不是我想要的结果