cant get tab control to work
This is a part of MS article : Microsoft Knowledge Base Article - 155646
I followed the directions and cant get my tabs to work. If someone has enough time to explain the following code i'd let you marry my first daughter(when i have one). I think its my naming, I did it on the Northwinds.mdb and it wont work ther either. Please help, I'm almost out of hair. here's the code:
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 S
|
