MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Abrir login fora da interface do Access

    Compartilhe
    avatar
    LEAM
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Abrir login fora da interface do Access

    Mensagem  LEAM em Dom 18 Out 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

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  cleverson_manaus em Dom 18 Out 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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

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

    Respeito às Regras 100%

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

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

    Mensagem  LEAM em Dom 18 Out 2015, 14:10

    Obrigado Fera! Muito bom era o que precisava


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

      Data/hora atual: Sab 22 Jul 2017, 05:33