ACC97: How to Programmatically Add Controls to a Tab Control

MORE INFORMATION

1. Open the sample database Northwind.mdb.
2. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit
   					

3. Type the following procedure:

         Sub CreateControlOnPage()
            Dim frm As Form, ctl As Control
   
            ' Create a new blank form.
            Set frm = CreateForm()
   
            ' Create a tab control on the new form.
            Set ctl = CreateControl(frm.Name, acTabCtl, acDetail)
   
            ' Create a text box on the form, and specify that Page2 is
            ' the parent of the text box.
            Set ctl = CreateControl(frm.Name, acTextBox, acDetail, "Page2")
            ctl.Top = 0.5 * 1440
            DoCmd.SelectObject acForm, frm.Name
            DoCmd.Restore
         End Sub
   					

4. To test this procedure, type the following line in the Debug window, and then press ENTER:

   CreateControlOnPage

   Note that a new form is created, which contains a tab control.
5. Close the Debug window and click Page 2 of the tab control. Note that it contains an unbound text box control.