Link to home
Start Free TrialLog in
Avatar of John Kincaid
John KincaidFlag for United States of America

asked on

Dim cBars As CommandBars error

The below procedure returns error "user-defined type not defined" with Dim cBars As CommandBars highlighted.  I tried "Dim cBars As DAO.CommandBars" with the same results. I have verified that the reference to DAO3.6 is checked.

Any help appreciated.

Public Sub ToggleCmdBars()
 
  Dim cBars As CommandBars
  Dim cBar As CommandBar
   
  Set cBars = Application.CommandBars '   reference databases commandbars collection
   
  For Each cBar In cBars '   loop through each commandbar in the commandbars collection
    With cBar
      If .TYPE = 0 Then '    if it is a tool Bar, disable it
        If .Enabled = False Then
          .Enabled = True
        Else
          .Enabled = False
        End If
      ElseIf .TYPE = 1 Then '    if it is a menu Bar, disable it
        If .Enabled = False Then
          .Enabled = True
        Else
          .Enabled = False
        End If
      End If
    End With
  Next

'Pop-Up menus remain enabled
End Sub
ASKER CERTIFIED SOLUTION
Avatar of pteranodon72
pteranodon72
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of John Kincaid

ASKER

You are exactly right, thanks alot.