这样的共用窗体事件代码如何写？

付谦

这样的共用窗体事件代码如何写？


有窗体A、B、C三个，其数据源分别是表A1、B2、C3。在各自的窗体中调用一个共用的窗体D，我想用D中的List4改变调用它的窗体的有关数据。为此我在D事件中写代码：


Private Sub List4_Click()


       Forms!A![工作单位] = List4


       Forms!B![工作单位] = List4


       Forms!C![工作单位] = List4


End Sub


当调用时，总出错，但在D事件中只写调用窗体（当前窗体）的代码，如当前窗体为B，事件代码


Private Sub List4_Click()


       Forms!B![工作单位] = List4


    End Sub


就可以。否则出错。我不想每个窗体都单独建立调用窗体，试图在D事件代码中改为


    Private Sub List4_Click()


       Select Case  当前窗体判断条件


        Case  判断条件


Forms!A![工作单位] = List4


           Case  判断条件


Forms!B![工作单位] = List4


           Case  判断条件


Forms!C![工作单位] = List4


     END Select


End Sub


但不会写Select Case……Case……END Select中的当前窗体判断条件.。请高人指点。另外想问下是否还有更好的解决办法？

一点通

ABC窗体有同时打开吗？

FUFU

不同时打开，

一点通

窗体不打开的话是无法找到对应的控件

fan0217

可以使用全局变量在窗体间传递值。

zyz218

或者，打开所有窗体并隐藏之。也可行吧！？

例：

Private Sub Form_Load()
    DoCmd.OpenForm "Formula", acNormal, , , , acHidden
End Sub

FUFU

虽然窗体ABC不同时打开，但调用D的窗体是打开的（当前窗体），要解决的是事件代码中谁是当前窗体的判断条件代码问题。请指点

zyz218

最好把例子传上来，这样更好理解你的意图！

fan0217

参考：[url=http://www.office-cn.net/forum.php?mod=viewthread&tid=34844&replyID=&skin=1]http://www.office-cn.net/forum.php?mod=viewthread&tid=34844&replyID=&skin=1[/url]

付谦

附上例子,在ABC窗体都适用,请帮助