Multi istance form

[Naot]

I need to open multi istance form.

1) i have a table (SQL) "ActiveForm" which contains various fields including a field called "FormName" (Varchar (30)).
2) in the access form called "Menu" i place a treeview control and when i "click" in the node, i read the table rsProcedure="SELECT .* FROM ActiveForm WHERE Active=true";

3) Dim Istanzaform As Integer
Dim dbs As Object
Dim myFrm As AccessObject

rsProcedure.MoveFirst

rsProcedure.Find "DescrizioneForm = '" & Node.Text & "'", , adSearchForward

If Not IsNull(rsProcedure("NomeForm")) Then



Set dbs = Application.CurrentProject

For Each myFrm In dbs.AllForms

Debug.Print myFrm.Name

If myFrm.Name = rsProcedure("NomeForm") Then

' Istanzaform = GetNewIstance(myFrm.Name) 'Return a free istance number (0 to 4)

If Istanzaform > 4 Then Exit Sub 'too many istance opened

Set NewIstance(Istanzaform) = new myfrm 'not work!
NewIstance(Istanzaform).Tag = Istanzaform
NewIstance(Istanzaform).Visible = True

End If

Next myFrm

End If


what wrong?

Many thanks.

[June7]

What happens - error message, wrong results, nothing?

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

[Naot]

Yes!
user-defined type not defined. (?)

I think the problem is that in my table I have the name of the form in the format string, while "Set NewIstance (Istanzaform) = New ...." expects the name of a form such as "Form_Procedura."

Now, how do I convert a string into an object (Microsoft Access object classes) form called "Form_Procedura"?

Bye

[Naot]

I see http://allenbrowne.com/ser-35.html but is the same problem.
Function OpenAClient()
'Purpose: Open an independent instance of form frmClient.
Dim frm As Form

'Open a new instance, show it, and set a caption.
Set frm = New Form_frmClient -------------------------------------> in my project "Form_frmClient = form_Procedura = String"
frm.Visible = True
frm.Caption = frm.Hwnd & ", opened " & Now()

'Append it to our collection.
clnClient.Add Item:=frm, Key:=CStr(frm.Hwnd)

Set frm = Nothing
End Function

[June7]

I've never worked with custom collections.

How many forms do you want to do this with?

The only thing I can think of is conditional code to select the Set frm:

Select Case rsProcedure("NomeForm")
Case "formname1"
Set frm = Form_formname1
Case "formname2"
Set frm = Form_formname2
...
End Select