dynamic text boxes

[bronc]

Hello: I would like to dynamically place some text boxes on a form at run time.

 

[Remou]

Have a look at the CreateControl method.

 

[bronc]

well thanks , i have not seen CreateControl before but it appears to only make a control at design time.

i have used code like this :

Dim objEvents As New Collection
Dim objNew As clsBtn 'clsBtn is the nam of the class
Set objNew = New clsBtn
Set objNew.objTxt = frmData.Controls.Add("Forms.TextBox.1")
With objNew.objTxt
'etc
objEvents.Add objNew
'etc

but this is for a user form (in Word) and would like to do the same in Access.

 

[Remou]

You will find CreateControl in Access vba help.

http://support.microsoft.com/kb/210595

It will only work in design view.

What were your reasons for wishing to create a control? It should not be necessary in a properly designed live database.

 

[bronc]

well i wish to have a command button on the form so that when i press it a new text box appears. (I don't want to workaround using a visible true/false.)

 

[Remou]

Setting visible true / false is not generally considered to be a 'work-around'. Adding controls at run-time is problematical, to say the least; if you take this path you will not be able to make an mde to protect your code, to mention just one problem. I suggest you use visible true / false.