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

suve

和我的问题一样,等结果

suve

和我的问题一样,等结果

付谦

急！看了１０来次，没见人解决．

wu8313

使用这个判断窗体是否加载的函数，来判断a b c哪个窗体被加载。

Function IsLoaded(ByVal strFormName As String) As Boolean
' 如果指定窗体在窗体视图或数据表视图中打开，返回 True。
   
    Const conObjStateClosed = 0
    Const conDesignView = 0
   
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
   
End Function

===================================

list4单击事件代码如下：

If IsLoaded("a") = True Then Forms!A!工作单位 = List4

If IsLoaded("b") = True Then Forms!B!工作单位 = List4

If IsLoaded("c") = True Then Forms!c!工作单位 = List4

DoCmd.Close===================

[此贴子已经被作者于2006-5-31 19:48:42编辑过]

付谦

佩服,真是高手,感谢了!

付谦

以下是引用wu8313在2006-5-31 19:45:00的发言：


使用这个判断窗体是否加载的函数，来判断a b c哪个窗体被加载。

Function IsLoaded(ByVal strFormName As String) As Boolean
' 如果指定窗体在窗体视图或数据表视图中打开，返回 True。
   
    Const conObjStateClosed = 0
    Const conDesignView = 0
   
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
   
End Function

===================================

list4单击事件代码如下：

If IsLoaded("a") = True Then Forms!A!工作单位 = List4

If IsLoaded("b") = True Then Forms!B!工作单位 = List4

If IsLoaded("c") = True Then Forms!c!工作单位 = List4

DoCmd.Close===================

   [em09][em09]    如果ABC是子窗体，list4单击事件代码怎样改动？我试改为


If IsLoaded("Forms!K!a") = True Then Forms!K!A!工作单位 = List4    'K为主窗体

   窗体中的工作单位变不了。另外，我将模块加入我的数据库，因窗体多，打开数据库时晃动很大。这二个问题如何解决？请帮忙到底！

[此贴子已经被作者于2006-5-31 23:13:09编辑过]

付谦

等待高手，急

secondonsite

付谦，你曾经的问题：

为何查询中的字段值在报表中不显示?

你已经解决了，可我还不清楚，请你详细解答一下，谢谢！

andymark

tmtony

不错!