在其中一个窗体被加载的情况下，另一个窗体才能被打开

时　间:2009-12-02 16:26:42
作　者:大石   ID：7434  城市：广州
摘　要:在其中一个窗体被加载的情况下，另一个窗体才能被打开
正　文:

点击下载此附件

Author: 大石

Date: 2009-12-2

KeyWords: VBA,IsLoaded,syscmd,常数

Text:

双击 窗体 frmProjects,如下图

双击 窗体 frmClients,如下图

代码如下：

' 此功能的关键在于定义一个自定义函数 IsLoaded。

' 在标准模块 basIsLoaded 中写入下面代码。

Option Compare Database
Option Explicit

Public Function IsLoaded(strFormName As String) As Boolean
    Const FORMOPEN = -1
    Const FORMCLOSED = 0
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> FORMCLOSED Then
        IsLoaded = True
    Else
        IsLoaded = False
    End If
End Function

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

' 在窗体 frmProjects 中引用自定义函数 IsLoaded。

' 在窗体 frmProjects 中，代码如下。

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
    If Not basIsLoaded.IsLoaded("frmclients") Then
        MsgBox "You must load this form from the Projects form", _
               vbCritical, "Warning"
        Cancel = True
    End If
End Sub