Access 2003 Form Building 1

[paulcooke]

Can you add things such as textboxes, labels and combo's on the fly to an access 2003 form. Basically the forms appearance is based on a result from a query. Any help gratefully received.

 

[SiJP]

Yep.. take a look at Application.CreateControl

Sub NewControls()
    Dim frm As Form
    Dim ctlLabel As Control, ctlText As Control
    Dim intDataX As Integer, intDataY As Integer
    Dim intLabelX As Integer, intLabelY As Integer

    ' Create new form with Orders table as its record source.
    Set frm = CreateForm
    frm.RecordSource = "Orders"
    ' Set positioning values for new controls.
    intLabelX = 100
    intLabelY = 100
    intDataX = 1000
    intDataY = 100
    ' Create unbound default-size text box in detail section.
    Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
        intDataX, intDataY)
    ' Create child label control for text box.
    Set ctlLabel = CreateControl(frm.Name, acLabel, , _
         ctlText.Name, "NewLabel", intLabelX, intLabelY)
    ' Restore form.
    DoCmd.Restore
End Sub

I don't tend to create controls on the fly - there are discussion on the net that say it's not the best programming approach to take.. but the above should answer your question.

------------------------
Hit any User to continue