locked
Barra de Menus RRS feed

  • Pergunta

  • 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

    sábado, 21 de abril de 2007 12:19

Todas as Respostas

  • Oi Paullo,

     

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

    quinta-feira, 26 de abril de 2007 04:47
    Moderador
  • Paullo,

     

    e caso vc queira personalizar alguma, verifique em:

     

    Exibir > Barra de Ferramentas > Personalizar..

     

    abraco!

    quinta-feira, 26 de abril de 2007 19:44
  • 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.    

       

    terça-feira, 22 de maio de 2007 16:34