Open or Load a form ( urgent )

[LuisM]

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

[Mr. P]

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;

[plenderj]

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

[LuisM]

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.

[Cander]

how are they 'selecting' a form to open?

[LuisM]

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

[Cander]

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

[LuisM]

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

[Cander]

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

[LuisM]

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.

[Cander]

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

[LuisM]

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

[Cander]

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.

[LuisM]

Cander thanks a lot for your colaboration.

I whis you the best holidays.

Luis