[Resolvido]Dúvida no Código Exposto Desabilitar e Habilitar Tudo (Código 102)

Boa tarde pessoal.

Trabalho em uma empresa onde desenvolvemos alguns sistemas para auxiliar nas atividades, porém a empresa está migrando do office 2003 para 2010 e estou encontrando um grande problema que é o seguinte:

Na tela inicial do sistema não existe nenhuma barra de menu, consegui retirar com o codigo colocado pelos colegas que está no tópico "102 Códigos" se não me engano com o título "Desabilitar ou Habilitar Tudo", porém quando chamo um outro form que tem uma barra de menu própria a mesma não aparece ficando conforme a tela inicial.

Já tentei várias configurações mas não consegui fazer isso, alguém saberia me explicar?

O código para desabilitar tudo está abaixo.

Desabilita tudo:

Public Function DesabilitaTudo()
On Error GoTo Err_DesabilitaTudo

DoCmd.ShowToolbar "Menu Bar", acToolbarNo
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Relationship", acToolbarNo
DoCmd.ShowToolbar "Table Design", acToolbarNo
DoCmd.ShowToolbar "Table Datasheet", acToolbarNo
DoCmd.ShowToolbar "Query Design", acToolbarNo
DoCmd.ShowToolbar "Query Datasheet", acToolbarNo
DoCmd.ShowToolbar "Form Design", acToolbarNo
DoCmd.ShowToolbar "Form View", acToolbarNo
DoCmd.ShowToolbar "Filter/Sort", acToolbarNo
DoCmd.ShowToolbar "Report Design", acToolbarNo
DoCmd.ShowToolbar "Print Preview", acToolbarNo
DoCmd.ShowToolbar "Toolbox", acToolbarNo
DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarNo
DoCmd.ShowToolbar "Formatting (Datasheet)", acToolbarNo
DoCmd.ShowToolbar "Macro Design", acToolbarNo
DoCmd.ShowToolbar "Utility 1", acToolbarNo
DoCmd.ShowToolbar "Utility 2", acToolbarNo
DoCmd.ShowToolbar "Web", acToolbarNo
DoCmd.ShowToolbar "Source Code Control", acToolbarNo
DoCmd.ShowToolbar "Visual Basic", acToolbarNo
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Application.CommandBars.DisableAskAQuestionDropdown = True

Exit_DesabilitaTudo:
Exit Function

Err_DesabilitaTudo:
If Err.Number = 2094 Then
Resume Next
Else
MsgBox Err.Number & " - " & Err.Description
Resume Exit_DesabilitaTudo
End If

End Function

Olá, não me aprofundei na leitura do código, mas uma dica pode ser você colocar esse mesmo código na abertura do formulário, mudando o No para Yes e "Ao fechar" o formulário, repete tudo mudando novamente para No.

Boa tarde Criquio.

Fiz o teste mas não funcionou, fica com a ampulheta como se estivesse processando mas não acontece nada.

Resolvi o problema com o desenvolvimento dos menus com ribbons.