Hi there,

I was trying to create a control @ run time, since there isn't the method Controls.Add, and after a little search, i found a function CreateControl, witch si limitted to create a form + control at run time, but this new form will be at design layout :
Does anyone know a way to create controls on a dynamic way, at run time?

Thanks

Depending on what you're trying to accomplish, perhaps instead of trying to create a control at runtime, you could create the control or a set of controls in Design Mode and use the Visible property to display or hide the control.

Randall J Weers
Membership Vice President
Pacific NorthWest Access Developers Group
http://www.pnwadg.org

yes that what i do most of the time. i design the form, and set the property at run time. but its good you learn how to create contols during run-time. contols like ADODB,ADODC,textbox, but not a forms. although you can create a form at run-time but there are a lot of bugs creating forms at run-time

Arowolo

1. Open the form you want to add the control to (Form2) in design view and hide it.
2. Add a new control using the CreateControl method.
3. Toggle the form to normal view.

Also, to position the new control you are working in twips (1" * 1440), not inches.

==Code============================================ =======

' Form1 code module
Private Sub Command1_Click()

    ' used to convert inches to twips
    Const twipsPerInch As Long = 1440

    ' Open form you want to add control to
    ' in design view and hide it.
    DoCmd.OpenForm "Form2", acDesign, , , , acHidden

    ' Add new control
    With CreateControl( _
             FormName:="Form2", _
             ControlType:=acTextBox, _
             Section:=acDetail, _
             Left:=1 * twipsPerInch, _
             Top:=1 * twipsPerInch, _
             Height:=0.25 * twipsPerInch, _
             Width:=1 * twipsPerInch)

             ' set control properties
             .Name = "txtTextBox"
    End With

    ' toggle form to Normal view
    DoCmd.OpenForm "Form2"
End Sub

HTH,

Bob