7. Jak zaznaczyć element menu (efekt typu check)?

Wyróżniać możemy tylko te elementy menu, które sami utworzyliśmy. Ale jest to zrozumiałe, bo zaznaczanie systemowych opcji np. "Nowy" lub "Zapisz jako..." zwykle nie ma sensu lub Access obsługuje takie przypadki samodzielnie.

A zatem na początku budujemy własne menu, niech się nazywa Nasze_menu. Dodajemy podmenu: Menu1, Menu2, Menu3 oraz kilka opcji: Akcja0, Akcja1(...). Teraz możemy zaznaczać wybrane opcje za pomocą następującego kodu:
Dim cmd As Object
  Set cmd = CommandBars("Nasze_menu").Controls(1).Controls(2)
  'lub Set cmd = CommandBars("Nasze_menu").Controls("Menu1").Controls("Akcja1")
  If cmd.Type <> 1 Then 
    MsgBox "Można zaznaczyć tylko elementy typu CommandButton."
  Else
    cmd.State = True 'Zaznacza element menu
    'cmd.State = False Odznacza element menu
  End If
 Uzyskany efekt wygląda tak:

K.P.