ACC: How to Use the TabStrip ActiveX Control (155646)

MORE INFORMATION

1. Open the sample database Northwind.mdb.
2. Click the Tables tab and highlight the Suppliers table.
3. On the Insert Menu, click AutoForm to create a form based on the Suppliers table.
4. On the File menu, click Save As/Export.
5. Save the form as frmSuppliers and close the form.
6. Repeat steps 2 through 4 for the Customers table.
7. Save the form as frmCustomers and close the form.
8. Click the Forms tab and create a blank form in Design view.
9. On the File menu, click Save As/Export and save the form as frmTabStrip.
10. Insert the TabStrip ActiveX control and set its properties as follows:

    Name: ctlTabStrip
    Width: 6
    Height: 3.5

11. Using the right mouse button, click the TabStrip control object, point to TabStrip Control Object, and then click Properties on the shortcut menu that appears.
12. In the TabStrip Control Properties dialog box, click the Tabs tab.
13. Note that the Index is 1. Type "Customers" (without the quotation marks) in the Caption box.
14. Click the Insert Tab button to insert a new Tab.
15. Note that the Index changes to 2. Type "Suppliers" (without the quotation marks) in the Caption box.
16. Click OK to close the Property dialog box.
17. Make sure your form is not maximized. If your form is maximized, click the button to the left of the File menu, and then click Restore on the shortcut menu that appears.
18. Press F11 to bring the Database window to the foreground.
19. Click the Forms tab and drag the frmCustomers form from the Database window to the frmTabStrip form (displayed in the background) to create a subform.
20. Select and then delete the subform's label.
21. To ensure that the tabs on the TabStrip ActiveX control are not covered by the subform, set the subform's properties as follows:

    Top: .3
    Width: 6
    Height: 3
    Left: 0

22. Using the right mouse button, click the TabStrip ActiveX control object, and then click Build Event. Type the following event procedure:

           Private Sub ctlTabStrip_Click()
           On Error GoTo errhandler
              Dim rs As Recordset, mybookmark As String, I As Integer
    
              Select Case Me!ctlTabStrip.SelectedItem.INDEX
                 Case 1      ' Show Customers form.
                    Customers.SourceObject = "frmCustomers"
    
                 Case 2      ' Show Suppliers form.
                    Customers.SourceObject = "frmSuppliers"
    
              End Select
              Exit Sub
    
           errhandler:
    
              MsgBox "There is an error"
               Customers.SourceObject = "frmCustomers"
           End Sub
    					

23. On the Run menu, click Compile Loaded Modules. If there are no compile errors save the form.
24. Open the form in Form view.
25. Click the Customers tab to display the frmCustomers form. Click the Suppliers tab to display the frmSuppliers tab.