Loading Forms

[Candu]

I am trying to load forms into memory using a generic load form routing and I keep getting a "Type Mismatch Error". I would like to do something like the following:

Function fcnLoadForm(strFormName As String)
Forms(strFormName).Load
End Function

Or

Function fcnLoadForm(strFromName As String)
Load strFormName
End Function

I know that I should be able to do something like this, but at this moment in time it is eluding me.

Also I am noticing and confirmed with MSDN that a Form is only in the Forms Collection after it is loaded into memory.

Any help would be greatly appreciated.
Thank you
Candu

[Aaron Young]

Try this:

Private Sub Command1_Click()
    LoadForm "Form3", True
End Sub

Sub LoadForm(ByVal Formname As String, Optional ByVal bShow As Boolean = False)
    Dim iIndex As Integer
    
    'Add the Form to the Forms Collection
    '>>> Formname MUST exist to add it to the Collection <<<
    Forms.Add Formname
    'Find the Index of the Form we just added
    For iIndex = 0 To Forms.Count - 1
        If Forms(iIndex).Name = Formname Then Exit For
    Next
    If iIndex < Forms.Count Then
        'If the Form Existed Then Load it
        Load Forms(iIndex)
        If bShow Then Forms(iIndex).Show
    End If
End Sub

I included the Optional Parameter bShow so you can Show the Form after loading it if you want to.

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]

[Candu]

Thank you very much Araon. Your solution works like a charm.