Re: Multiple insatnces of a form and form name

Danny:

How many times are you going to post this?

It is rude to post duplicate messages in multiple groups. You end up with
different people spending their time to answer a question only to find out
that someone else has already answered it in a different newsgroup.

Please stick to one newsgroup.

If you must post to more than one, type in all the newsgroups in the message
when you first post it. This will place a COPY of the post in each
newsgroup. If someone replies to one of these copies, that response will be
visable in all the various newsgroups. This way people will not spend time
on a resolved issue.

Thanks,

Rick B

"Danny" <Danny@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:D2D787AD-6010-4FED-9ABA-ED70B1457198@xxxxxxxxxxxxxxxx
> I Have the following code for a command button to open up multiple
instances
> of a form
>
> Does any one know how I can set the name of the new multiple insatnce of
the
> form .
>
> Thanks
> Danny
>
> Function OpenAEntityForm()
> Dim frm As Form
> Set frm = New [Form_Entity Form]
> frm.Visible = True
> frm.Caption = frm.Hwnd & ", opened " & Now()
> clnClient.Add Item:=frm, Key:=CStr(frm.Hwnd)
> Set frm = Nothing
> End Function
>
> Function CloseAllClients()
> 'Purpose: Close all instances in the clnClient collection.
> 'Note: Leaves the copy opened directly from database window.
> Dim lngKt As Long
> Dim lngI As Long
>
> lngKt = clnClient.Count
> For lngI = 1 To lngKt
> clnClient.Remove 1
> Next
> End Function


.

Loading