具有独立记录集的相同形式的多个实例

Question

http://allenbrowne.com/ser-35.html

下面的代码是 Allen Browne 打开同一表单的多个实例的代码。问题是我需要每个表单数据都基于“那个”表单中的下拉列表，而不是第一个。他在表单上有一个表作为记录源，我在表单中嵌入了以下 SQL。我认为关键是 where 语句，或者可能删除 where 语句并使用过滤。现在所有打开的表单都基于第一个表单数据。

My SQL Where 语句 -

WHERE (((tbl_buyer_column.aels_id)=[forms]![frm_baseline]![ael]))

艾伦的密码

Option Compare Database
Option Explicit
Public clnClient As New Collection

Function OpenAClient()
    Dim frm As Form
    Set frm = New Form_frm_baseline
    frm.Visible = True
    frm.Caption = "New Form Opened " & Now()
    clnClient.Add Item:=frm, Key:=CStr(frm.Hwnd)
    Set frm = Nothing
End Function

Function CloseAllClients()
    Dim lngKt As Long
    Dim lngI As Long
    lngKt = clnClient.Count
    For lngI = 1 To lngKt
        clnClient.Remove 1
    Next
End Function

Answer 1

你在正确的轨道上。这里的诀窍是在您打开表单时跟踪它们。我就是这样做的。您可以看到，当我创建新实例时，我传入了一个参数，该参数指定了我想在该表单上使用的记录集。您也可以将其更改为过滤器。

这是标准模块中的代码

Public multiInstanceDic As Dictionary

'returns the window handle (long)
Public Function OpenNewMyFormSheetInstance(queryForRecordSource As String, Optional inputCaption As String) As Long

    If multiInstanceDic Is Nothing Then
        Set multiInstanceDic = New Dictionary
    End If

    Dim frm As Form
    Set frm = New Form_MyForm
    frm.Caption = inputCaption
    frm.SetRecordSource queryForRecordSource
    multiInstanceDic.Add frm.Hwnd, frm   'required to keep form alive after function exits
    frm.SetFocus

    OpenNewDynamicDataSheetInstance = frm.Hwnd
End Function

Public Function GetMyFormInstance(frmHandle As Long) As Form_MyForm
    Set GetDynamicDataSheetInstance = multiInstanceDic(frmHandle)
End Function

我在整个应用程序中都这样使用它

Dim createdWindowHandle As Long
createdWindowHandle = Windows.OpenNewMyFormInstance("VW_SomeView", "A wonderful informative caption")

然后，每当我需要更改创建时未处理的表单的其他内容时，我可以方便地使用hwnd，因为我在创建表单时将其返回给调用者。

Dim dMyForm As Form_MySheet
Set dMyForm = Windows.GetMyFormInstance(createdWindowHandle)

dMyForm.[change any public property]  

这一切对我来说都很好。我可以同时打开许多具有不同数据的相同表单的实例。这种特殊的形式，当传递一个查询/记录集时，将动态地创建绑定控件。但是，我认为你不需要那个。您只需要显示两个具有不同过滤器的表单。完全有可能。