[Resolvido]Oculta Janela do Access ao Iniciar Sistema

Bom dia a todos.

Fazendo um pesquisa dentro do fórum descobrir um código que resolveria meu problema, de oculta a tela do access ao iniciar meu sistema.

código usado


Créditos: http://www.tek-tips.com/
' Tópico: Access Enviroment
' Hide The Access Window
' faq705-2562
' Posted: 10 Oct 02 (Edited 27 Sep 06)

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. 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), coloque o seguinte código:

DoCmd.RunMacro "mcrHide"

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

DoCmd.RunMacro "mcrRestore"

CÓDIGO DO PASSO 1

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

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

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

Tenho certeza que quem implementar vai curtir.... =)

porem quando usei o código deu certo, mais quando utilizo o botão sair ta tela de login ele da um erro na magro de fechar a tela.

alguém poderia me ajuda

Crie um modolo com o seguinte nome: Api Ventana transparente e cole o que está abaixo

Option Compare Database
Option Explicit
'Autor de la función base: Indeterminado
'Declaraciones
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "User32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Function AccessTransparente(NIVEL As Integer)
'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
'Objetivo: Ajustar el nivel de transparencia de la ventana principal
' de access. El nivel de transparencia debe estar entre 0 a 250
'.............................................................................
Dim lngHwnd As Long
If NIVEL < 0 Or NIVEL > 250 Then Exit Function
lngHwnd = Application.hWndAccessApp
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, NIVEL, LWA_ALPHA
End Function



No primeiro formulário a ser carregado, chame a seguinte função:

Private Sub Form_Load()
Call AccessTransparente(0)
End Sub

Boa tarde!

esse comando que me passou ele seria para substituir o primeiro que passei?

Olá, boa noite.

Sim, isso mesmo !!

Olá, boa noite.

Sim, isso mesmo !!

Ve este meu exemplo pode ser que gostes.

https://www.maximoaccess.com/t9333p3-botoes-minimizar-restaurar#77380

Boa tarde!

Silvio, seu exemplo funcionar, mais não abre a minha tela posterior.

Estou usando esse comando em um formulário de login, e depois quero abri a minha tela principal. E com teu código não conseguir abrir o formulário principal depois que faço o login.

teria como?

Bom dia !

Então,poste o comando que está no teu formulário de login, provavelmente......você "comeu bronha" no código.
O fato dele estar transparente, em nada interfere nos códigos que estão no teu formulário de login !

Abaixo segue um "pedaço" do código que utilizo, usando a tela transparente.

If Not IsNull(Me.senha) Then
Me![senha] = UCase$([senha])
If Me.senha = DLookup("[SENHA]", "USUARIOS", "[USER] = '" & Me.USER & "'") Then
Me.DATAIN = Now()
Me.HORAIN = Time()
Me.FALHOU = False
Me.Refresh
DoCmd.Minimize


DoCmd.OpenForm "FrmAvisoVisita", , , stLinkCriteria
DoCmd.SetWarnings False
DoCmd.OpenQuery "CONS_DTA"
DoCmd.SetWarnings True


Note que em vermelho e se a senha estiver correta, ele abre o formulário que preciso, no teu caso o formulário principal.

Boa tarde

If IsNull(cbxLogin) Then
MsgBox "Por favor, informe um nome de usuário!", vbExclamation, "Login Inválido"
cbxLogin.SetFocus
ElseIf IsNull(txtSenha) Then
MsgBox "Por favor, informe a senha!", vbExclamation, "Senha Inválida"
txtSenha.SetFocus
ElseIf verificaLogin(cbxLogin, txtSenha) Then
DoCmd.Close
'DoCmd.OpenForm "FRM_MOV_BarraProgresso_Bolas"
DoCmd.OpenForm "FRM_Tela_Principal"
'MsgBox "Dando certo!"
Else
MsgBox "Senha incorreta! Por favor, tente novamente.", vbExclamation, "Login"
txtSenha.SetFocus
End If

Utilizo esse comando no meu login, ao clica no botao entra ele verifica codigo e abre a minha tela principal (FRM_Tela_Principal).

Boa noite...

Não sei de onde pegou o código...mas tem algo errado nele...preste atenção a lógica do mesmo.

Abraços.

Bom dia!

O código ele faz verificação de acesso do usuário o nível de autorização do mesmo, A questão é que com seu código ele não funcionar, sem o seu código ele funcionar perfeitamente.

Zipa o que tens no teu formulário e coloca ele aqui.

OK! Segue o arquivo.

usuario e senha

admin

12345