Multiple Instances of a form - Form name

D

Danny

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
 
R

Rick B

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top