wie ein Formular direkt in einer Sammlung zu instanziieren

Question

Ich verwende ein "OrderLines" -Formular auf verschiedene Arten (nach Bestellnummer, nach Produktcode, nach Kunde, Lieferant, ...). Jede Instanz davon kann eine neue Instanz davon starten.

Beispiel:

• die erste Instanz dieses Formulars alle Reihenfolge auflistet Linien einer bestimmten Reihenfolge
• indem in diesem Fall auf eine Produkt-ID Doppelklick, der Benutzer eine zweite Instanz dieser Form bringt, dass die Listen alle Linien, um dieses spezielle Produkts in Bezug auf
• von in der zweiten Instanz auf einen Kundencode Doppelklick, startet der Anwender eine dritte Instanz, die alle Auftragszeilen zu diesen spezifischen Kunden
• und so weiter ...
01 listet

In "Erklärungen" Modul:

Global cForms As Collection 
    Global fForms(20) As Form 

In Aufruf Form:

x = boring_function_to_find_a_free_room_in_fForms() 
    Set fForms(x) = New Form_OrderLines 
    fForms(x).SetFocus 
    cForms.add Item:=cForms(x), Key:=CStr(cForms(x).Hwnd) 

Meine Frage

Um die Form "Orderlines", verwende ich diese Art von Code zu instanziiert ist: Anstatt bohren_function_to_find_a_free_room_in_fForms() und fForms (x) zu verwenden, um das Formular zu instanziieren, gibt es eine Möglichkeit, es "direkt" in der Sammlung zu instanziieren?

Ich habe versucht:

cForms.add Item:=(New Form_OrderLines) 

es funktioniert, aber:

1) jede neue Instanz schließt die vorherige Instanz

2) Ich weiß nicht, wie das Äquivalent zu schreiben "Schlüssel: = CStr (cForms (x) .Hwnd)"

Answer 1

Sie benötigen das Array nicht, wenn Sie die Sammlung haben.

Dies ist die good'ol'code, die mehrere Instanzen verwendet worden ist durch ihre hWnd zu verfolgen:

Option Compare Database 

Public colForms As New Collection 
Public mintI As Integer 

Public Sub NewFormInstance(frmOld As Form_MyForm) 

  Dim frm As Form_MyForm 
  
  Set frm = New Form_MyForm 
  
  mintI = mintI + 1 
  colForms.Add Item:=frm, Key:=frm.Hwnd & "" 
  frm.Caption = "My Form " & mintI 
  DoCmd.MoveSize (mintI + 1) * 80, (mintI + 1) * 350  
    frm.Visible = True 

End Sub 

Sie können auf einfache Weise dieses Szenario zu Ihrem anzupassen.