点击下载此附件
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