I am iterating through the pages of a tab control and comparing captions to a combobox. I get type mismatch error in the for each statement. I use a button to hide or show tabs.
How do I get rid of it?
Dim tctl As Control
Dim tpage As Page
Set tctl = Me.TabCtlMain
If Me.btnShowHideTabs.Caption = "Hide Inactive Tabs" And Me.cmbPresponsible <> "" Then
Me.btnShowHideTabs.Caption = "Show All Tabs"
Select Case Me.cmbPresponsible
For Each tpage In tctl
If tpage.Caption <> "Mother's Info..." Then tpage.Visible = False
Me.btnShowHideTabs.Caption = "Hide Inactive Tabs"
For Each tpage In Me.TabCtlMain.Pages
If tpage.Visible = False Then tpage.Visible = True
Most if not all databases provide tools to filter data; even simple mail-merge programs might offer basic filtering capabilities. This is so important that, although Access has many built-in features to help the user in this task, developers often n…
Overview: This article:
(a) explains one principle method to cross-reference invoice items in Quickbooks®
(b) explores the reasons one might need to cross-reference invoice items
(c) provides a sample process for creating a M…
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another.
Base the dependent combo on a query for its row source:
Add a reference to the first combo on the form as criteria i…
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship.
Add the tables:
Create the relationship:
Decide if you’re going to set referential integrity:
Decide if you want cascade upda…