MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Abrir login fora da interface do Access

    LEAM
    LEAM
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 696
    Registrado : 02/04/2011

    [Resolvido]Abrir login fora da interface do Access Empty [Resolvido]Abrir login fora da interface do Access

    Mensagem  LEAM 18/10/2015, 02:06

    Boa Noite amigos!

    Estou procurando o exemplo para deixar o BD mais profissional.

    Estou com o formulário " LOGIN"

    Queria que ele abrisse fora da interface do Access como se fosse uma aplicação.

    * Ocultando a tela azul do Access como no exemplo do nosso amigo Silvio mais o BD dele não esta acessível a estrutura

    SISTEMA DO SILVIO



    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    [Resolvido]Abrir login fora da interface do Access Empty Re: [Resolvido]Abrir login fora da interface do Access

    Mensagem  cleverson_manaus 18/10/2015, 04:28


    Brother,


    Salve as funções abaixo em módulo com o nome basAccessHider.

    No evento AoAbrir dos seus forms, chame a função e opções:


    Call basAccessHider.fAccessWindow("Minimize", False, False)


    Código:

    Option Compare Database
    Option Explicit


    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


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    LEAM
    LEAM
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 696
    Registrado : 02/04/2011

    [Resolvido]Abrir login fora da interface do Access Empty Re: [Resolvido]Abrir login fora da interface do Access

    Mensagem  LEAM 18/10/2015, 14:10

    Obrigado Fera! Muito bom era o que precisava


    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.

    Conteúdo patrocinado


    [Resolvido]Abrir login fora da interface do Access Empty Re: [Resolvido]Abrir login fora da interface do Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:52