MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    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.

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    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!!! Tópico resolvido!!!!

    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: Dom 04 Dez 2016, 01:53