[Resolvido]Access 2007 esconder janela

Bom dia. tenho a minha base de dados em acess feita mas queria que quando abrisse a base de dados apenas se visse a página principal que eu criei. existe algum código para isso?

Ola;

Procure aqui por "esconde janela"

Inclusive, na sala de Exemplos tem muitos.

Aproveitando, leia por favor o item Nº2 das Regras do forum.

Olá encontrei este código já fiz os três primeiros passos mas os passos 4 e 5 não sei fazer.
Pode ajudar.
Passo 1. Copie o código que está após o passo 5 em um módulo. Nomei-o como basAccessHider , os nomes são apenas exemplos para facilitar, use o que achar melhor.

Passo 2. Crie uma macro e chame-a de mcrHide .Na linha de ação da macro "RunCode" ou "ExecutarCódigo" coloque o seguinte na caixa de função ou Function Box:

fAccessWindow ("Minimize", False, False)

Passo 3. Crie outra macro e chame-a de mcrRestore .Na linha de ação da macro coloque o seguinte na caixa de função:

fAccessWindow ("Show", False, False)

Passo 4. Coloque o seguinte código no evento Ao Abrir do seu formulário de inicialização que deverá ter sua propriedade PopUp como sim (se você não tiver um formulário de inicialização, basta usar o primeiro formulário que você abre quando executa o banco de dados, desde que tenha a propriedade PopUp como sim):

DoCmd.RunMacro "mcrHide"

Passo 5. No evento Ao Fechar do seu formulário de inicialização, coloque o seguinte código:

DoCmd.RunMacro "mcrRestore"

Não sei que tópico você foi buscar, mas veja o simples;

Num modulo novo, cole este código e salve com o nome que quiser.

Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
   Alias "ShowWindow" (ByVal hwnd As Long, _
         ByVal nCmdShow As Long) As Long
         
Public Function fSetAccessWindow(nCmdShow As Long)
Dim loX  As Long
Dim loForm As Form
   On Error Resume Next
   Set loForm = Screen.ActiveForm
   If Err <> 0 Then
     If nCmdShow = SW_HIDE Then
       MsgBox "Cannot hide Access unless " _
                   & "a form is on screen"
     Else
       loX = apiShowWindow(hWndAccessApp, nCmdShow)
       Err.Clear
     End If
   Else
       If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
           MsgBox "Cannot minimize Access with " _
                   & (loForm.Caption + " ") _
                   & "form on screen"
       ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
           MsgBox "Cannot hide Access with " _
                   & (loForm.Caption + " ") _
                   & "form on screen"
       Else
           loX = apiShowWindow(hWndAccessApp, nCmdShow)
       End If
   End If
   fSetAccessWindow = (loX <> 0)
End Function

Na propriedades do seu formulario principal, (o que abre em 1º lugar), escreva 1 no intervalo do cronometro, depois pressione os 3 pontinhos do Cronometro, para entrar no VBA desse evento, e cole apenas o que está a azul.

Private Sub Form_Timer()
On Error Resume Next
   Call fSetAccessWindow(SW_HIDE)
   If Err.Number = 0 Then
       Me.TimerInterval = 0
   End If
End Sub

Nas propriedades de todos os formularios e relatorios, guia Outros, tem de colocar Popup=Sim e Janela Restrita=Sim.

Exemplo feito no seu outro exemplo;

Boa tarde, ja coloquei o código. Fiz tudo e aparece na mesma o menu base

É só fazer igual ao exemplo que está na minha ultima mensagem, que vai funcionar.

Abra o exemplo com a tecla shift pressionada e veja a estrutura do formulario login e compare com o seu.

Mais que isso só açucar de mamão.

Bom dia. Obrigado pela ajuda. Já tenho o meu problema resolvido.

Opa, fico feliz...

Obrigada pelo retorno o forum agradece.

Tenho uma duvida como desactivo o botão maximizar minimizar e fechar das minhas janelas do acess

obrigado. já consegui ocultar os botões

Bom dia alguem me ajuda a alterar o logotipo do aplicativo do acess?

Tópico Resolvido, nova duvida novo tópico (na sala correta à sua nova duvida).

Olá Jpaulo tenho um problema na minha base de dados depois de colocar o código para ocultar as janelas agora não consigo abrir os relatórios pode ajudar-m?

Leia por favor, com atenção a mensagem N°4, em relação ao Popup=Sim e Janela Restrita=Sim

Bom dia 
tenho tento nos formulários como nos relatórios subreposição sim e modal sim