A barra de menus do Microsoft Access 2003 está faltando na barra de ferramentas customize

Question

Última vez eu estava tentando esconder as barras de menu no meu banco de dados existente.

Eu adicionei código no meu módulo que encontrei na internet. Mas agora, quando eu inicio o Access, não consigo encontrar as barras de menus onde normalmente posso ver o arquivo, editar etc.

Eu tentei restaurar o padrão, a barra de menu não pode ser encontrada sob a barra de ferramentas Personalizar. Alguma ideia do que aconteceu? Isso é adicionado a partir do site:

Dim i
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

Eu tentei, mas não resolveu o problema. confuso: (

    

Answer 1

Deste artigo do suporte da Microsoft:

Redefina as barras de ferramentas no Access 2003

Importante: Se você redefinir as barras de ferramentas no Access 2003 para as configurações originais, poderá perder as alterações personalizadas implementadas nas barras de ferramentas.

1. Inicie o Access 2003.
2. No menu Ferramentas, clique em Personalizar.
3. Na guia Barras de ferramentas, clique para selecionar a caixa de seleção Barra de menus na caixa de diálogo Personalizar.
4. Clique em Redefinir e, em seguida, clique em OK.
5. Clique para marcar a caixa de seleção Banco de dados, clique em Redefinir e, em seguida, clique em OK.
6. Clique em Fechar.

Answer 2

Para restaurar todos os seus menus, você só precisa alterar seu código para dizer "verdadeiro" em vez de falso

Dim i

For i = 1 To CommandBars.Count

CommandBars(i).Enabled = True

Next i

Espero que ajude

    

Answer 3

Eu finalmente percebi isso! Clique com o botão direito do mouse na parte superior da página pelas barras de ferramentas, a caixa Personalizar é exibida. Clique em Propriedades ... popup "Propriedades da barra de ferramentas" aparece. Na parte superior da barra de ferramentas selecionada, selecione MENU BAR e clique em restaurar padrões na parte inferior. A barra de menu deve aparecer de volta na parte superior da tela. Espero que isso ajude!

    

Answer 4

Isso funcionou para mim:

commandbars("menu bar").Reset
commandbars("menu bar").Enabled = True
commandbars("menu bar").Visible = True