General |
6.36 Routine per togliere e rimettere la barra dei menu in Access 97 |
Giorgio Valsangiacomo |
Private Sub toglibarra_click() Dim cbarmenu As CommandBar Set cbarmenu = CommandBars("menu bar") cbarmenu.Enabled = False End Sub Private Sub mettibarra_click() Dim cbarmenu As CommandBar Set cbarmenu = CommandBars("menu bar") cbarmenu.Enabled = True End SubNon dimenticare di aggiungere nei "Riferimenti" "Microsoft Office 8.0 Object Library". |