[求助]请教关于打开多个同一窗体

mrl

窗体上有两可以打开多个同一窗体的按键，应如何判断窗体已经被打开？以下语句应如何加入判断：如果有Child0源对象为FrmCaption的窗体已经被打开时询问是否继续打开，如果按否则将焦点移到已经被打开的窗体上，反之则继续打开同一窗体。

Function OpenAClient(FrmCaption As String)
    Dim Frm As Form


    Set Frm = New Form_公用窗体                     '打开并显示新实例,
    Frm.Caption = FrmCaption                            '设置标题属性
    Frm.Child0.SourceObject = FrmCaption
    Frm.Visible = True
       clnClient.Add Item:=Frm, Key:=CStr(Frm.Hwnd)     '添加窗口实例集合变量
    Set Frm = Nothing


End Function

Grant

判断窗体是否打开的方法





Function IsLoaded(strName As String, Optional intObjectType As Integer =


acForm)


IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)


End Function





使用 IsLoaded 属性可以确定当前是否加载了 AccessObject。Boolean 型，只读。
以下是一个示例：
If CurrentProject.AllForms("frmMain").IsLoaded = True Then
Forms!frmMain.Form.Visible = False
End If

mrl

以上方法好像是用窗体名来判断，我的例子是打开多个同一窗体，窗体名都是相同的，只是窗体中的子窗体的源对象不同，所以判断的条件就是子窗体的源对象。

我有个思路：能否将  FrmCaption（子窗体的源对象） 添加窗口实例集合变量中，然后在打开并显示新实例前检查FrmCaption是否在集合变量中……

可惜我对vba不熟悉不知应怎样写。

fan0217

窗体名都是相同的？？？

窗体的名称不可能相同的啊！

mrl

以下是引用fan0217在2006-4-6 14:54:00的发言：


窗体名都是相同的？？？

窗体的名称不可能相同的啊！

以下窗体标题用 Me.Caption = Me.Name 获得 。四个窗体的名字都相同

fan0217

你把窗体的标题和名称混淆了，标题Caption是在窗体的标题栏显示的内容，而Name是在数据库窗口显示的名称是不能同名的。

mrl

以下是引用fan0217在2006-4-6 15:24:00的发言：


你把窗体的标题和名称混淆了，标题Caption是在窗体的标题栏显示的内容，而Name是在数据库窗口显示的名称是不能同名的。

Me.Name 是当前窗体的名称吗？

我以上四个打开的窗体的标题都是显示当前窗体的 Me.Name（在窗体打开事件上写有Me.Caption=Me.Name）

一点通

传例子上来看下吧

mrl

上面有例子吖

fan0217

你能在数据库窗口,把两个窗体命一样的名字吗?