multiple instances of form, with some filter etc

[myhnws]

the option below works.

Dim frmMulti As Form
Private Sub cmdNewInstance_Click()
    Set frmMulti = New Form_frmClient
    frmMulti.SetFocus
End Sub

however I would like to open the form with specific filters, example order number based on my current selection.
I would also like to auto populate some fields on the new form based on some rules.

the question is, can you call 'frmMulti.SetFocus' and have your arguments added?

Thanks

[dsatino]

Yes. You can basically do whatever you can dream up...and there are usually ten different ways you can accomplish it.

[ADezii]

You can create Multiple Instances of a Form each with its own independent Row Source/Filter, and each having its own Unique Window. The concept is as follows:

1. Select a Criteria for each Form Instance. In my case I used a Combo Box consisting of Employee Names and a Unique Identifier.
2. Once a selection is made:
   1. Create a New Instance of the Form.
   2. Set the Visible Property of this Instance to True.
   3. Create a Unique Caption for this Instance.
   4. Move the Instances to the Upper Left Corner of the Screen and have their Title Bars displayed for identification.
   5. Add the newly created Instance to a Collection using the Handle of the Instance of the Form as a Key Value.
3. Whenever you deem necessary click the Command Button to remove all Form Instances from the Collection.
4. I do realize that tis is a lot to follow so I have Uploaded the Demo that I modified to some extent. The Original Author was Mr. Allen Browne himself.
5. Any questions, please feel free to ask.

[myhnws]

I very appreciate your help, especially for attaching the sample.

I got stuck with an issue,

My report has some settings based on the some fields on my form. Until now I was referencing the form by its name.
However, now that the same form is open multiple times, how do I know which form to reference?

Thanks

[ADezii]

This is a dilemma since you are creating Multiple Instances of the same Form. You have 2 Options as I see it:

1. You can set the Caption of the New Form Instance to a Unique ID, in this case I pulled it from the Demo Combo Box (Code Line 11).
2. Each Unique Form Instance has a Unique Window Handle (Code Line 12) which you can store along with some other identifier to uniquely identify a Form.
   

   Public Function fOpenNewInstance()
   Dim frm As Form
   Static intTop As Integer
    
   'Open a new instance, show it, and set a caption.
   Set frm = New Form_frmInstance
   frm.Visible = True
   'frm.Caption = "Search Results for [" & Forms!frmSearch![cboEmployees].Column(3) & "]"
    
   Debug.Print "Caption", "Handle"
   frm.Caption = Forms!frmSearch![cboEmployees].Column(0)
   Debug.Print frm.Caption, frm.Hwnd
    
   frm.RecordSource = "Select * From tblEmployees Where [EmployeeID]= " & Forms!frmSearch![cboEmployees].Column(0)
    
   frm.Move 0, intTop * 350
    
   intTop = intTop + 1
    
   'Cascade New Instances for a better view, because if
   'not, they would be stacked on top of one another
   'DoCmd.RunCommand acCmdWindowCascade
    
   'Append it to our collection.
   colInstance.Add Item:=frm, Key:=CStr(frm.Hwnd)
   Set frm = Nothing
   End Function
    

3. After either Method, you can then set Focus to the appropriate Form Window, as in:
   

   Dim frm As Form
    
   For Each frm In Application.Forms
     If frm.Caption = "8" Then     'Laura Callahan
       frm.SetFocus
     End If
   Next
    

4. To show how the ID and Handle actually work for each Form Instance, I create 9 distinct Instances of the Base Form which represent each of the Employees. The Debug.Print Statement (Code Line# 12) produces the following OUTPUT:
   

   Caption       Handle
   5              1902222 
   Caption       Handle
   8              460740 
   Caption       Handle
   1              460732 
   Caption       Handle
   9              526246 
   Caption       Handle
   2              264282 
   Caption       Handle
   7              329800 
   Caption       Handle
   3              133248 
   Caption       Handle
   4              133292 
   Caption       Handle
   6              133336 
    

5. Notice that the Form Captions and Handles are Unique.
6. Hope that this eliminated some of the confusion, and that I didn't make things worse for you (LOL)

[myhnws]

I see that you really try to help me. Thanks
If I understand you correctly, I will need to make a case (in my report) for all my order numbers (which is unlimited).

Any other solution?

Thanks