Open or Load a form ( urgent )

Hi,

I'm trying to load into memory or open dinamicaly the forms in my program but a don't know how to do it?

IF I DO IT LIKE THAT I ONLY GET THE CURRENT FORM NAME
Public Function FormName() As Form
Dim frm As Form
Dim i as Integer

i = 0
For Each frm In Forms
i = i + 1
Set gNomesForms(i) = Forms(i)
Next

End Function


Select case is out of question.

Best Regards
Luis Moura

Try using:

Load frmName

This will load your form but not show it. Then when you want to show it use:

frmName.Show

If you want it hidden again us:

frmName.Hide

To close your form use:

Unload frmName

HTH;

The "Forms" collection only returns forms that are already loaded

Thanks for answer
that works fine if a want to load only one form, but i need to load all the forms and then open the form that the user select.

how are they 'selecting' a form to open?

What do you mean "how are they 'selecting' a form to open"

You are the one that said the user is selecting a form. What does the user do to select a form?

When he/she press enter in the msflexgrid to choose the mext form

So the forms are listed in the grid and they select one and hit enter?

Yes, in that msflexgrid i have an hiden column with the name of the form, when the user press enter into certain item of the msflexgrid, then it should open that form.

I could do it manual like case select, but this program has about 50 forms.

The Select Case was what I was going to suggest. That is the only option Im sorry to say.

Thanks any way.

Please just look at this.
I'st possible to set a var with all the names of the forms and then open the form direct???

For example:

Dim fFormName(100) as Form

i = 0
With rst
Do While Not .Eof
i = i +1
Set fFormName(i) = !FormName
.MoveNext
Loop
End With

'Open the form
i = 0
For i = 0 To 100
if fFormName(i) = sFormChoosed Then fFormName(i).Show
Next
Thanks

No because if the form is not loaded you cannot check its name. You would have to load every form to get that to work and that would bad.

Cander thanks a lot for your colaboration.

I whis you the best holidays.

Luis