Barra de Menus

Question

Bom dia,

 

Alguém poderia me ensinar a destivar a barra de menus.

Quando eu abro o Access gostaria que abrisse apenas meu formulário inicial e mais nada.

 

No tutorial diz que tem que usar "application.menubar" ???

 

De qualquer forma não estou conseguindo

 

Agradeço a ajuda

Answer 1

Oi Paullo,

 

ajuste as configurações no menu Ferramentas > Inicializar.

Answer 2

Paullo,

 

e caso vc queira personalizar alguma, verifique em:

 

Exibir > Barra de Ferramentas > Personalizar..

 

abraco!

Answer 3

Boa tarde Paulo,

 

Experimente fazer o seguinte:

 

1º - Acesse (no Access) o menu Ferramentas -> Inicializar, onde terá acesso às configurações de inicialização do Access.

2º - Para "esconder" a estrutura do Access que fica no fundo da aplicação, utilize os trechos de código abaixo (em um módulo):

 

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
     ByVal nCmdShow As Long) As Long

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
  

Dim dwReturn As Long

Const SW_HIDE = 0
  Const SW_SHOWNORMAL = 1
  Const SW_SHOWMINIMIZED = 2
  Const SW_SHOWMAXIMIZED = 3

 

------------------------------------------------------------------------------------------------------------------------------------------------------------------------    

   Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean

If Procedure = "Hide" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
    If IsWindowVisible(hWndAccessApp) = 1 Then
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    Else
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
End If
If StatusCheck = True Then
    If IsWindowVisible(hWndAccessApp) = 0 Then
        fAccessWindow = False
    End If
    If IsWindowVisible(hWndAccessApp) = 1 Then
        fAccessWindow = True
    End If
End If

End Function

 

3º Efetue e chamada à função na inicialização da sua aplicação, umas das alternativas é criar uma macro (autoexec) que faz a chamada à função (Por exemplo: fAccessWindow ("Hide",False, False) ), e em seguida, chama o formulário principal (o que deve ser aberto no início da aplicação).

Caso sua aplicação faça uso dos botões Min, Max (redimensionamento) você deve chamar a função que retorna o fundo do Access (fAccessWindow ("Minimize",False, False)) caso contrário, quando vc minimizar a aplicação, ela não aparecerá na barra de ferramentas do Sistema Operacional.

 

Espero ter ajudado.

 

Um grande abraço.