This subroutine works for the “Ribbon” and the “Status Bar” but not the “Document Tabs.” What is the Document Tabs bar name in Access 2010 or is File > Options > Current Database > Display Document Tabs the only method to show or hide the document tabs bar? If the latter is true can the Options menu Display Document Tabs property be influenced with VBA?
Code:
Private Sub CHECKBOXNAME_Click ()
On Error GoTo CHECKBOXNAME_Click_Err
Dim VARIABLE1 As Variant
VARIABLE1 = CHECKBOXNAME
If VARIABLE1 = True Then
DoCmd.ShowToolbar "Status Bar", acToolbarNo
Else
DoCmd.ShowToolbar "Status Bar", acToolbarYes
End If
CHECKBOXNAME_Click _Exit:
Exit Sub
CHECKBOXNAME_Click_Err:
MsgBox "Private Sub: CHECKBOXNAME_Click " & Chr$(13) & _
"Error number: " & Err.Number & Chr$(13) & _
Err.Description, vbOKOnly, "FORMNAME"
Resume CHECKBOXNAME_Click _Exit
End Sub