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

    Como coletar valor de outro banco de dados

    Compartilhe

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    Como coletar valor de outro banco de dados

    Mensagem  bernardweger em Seg 14 Set 2015, 17:27

    Olá pessoal, boa tarde!

    Eu dei uma pesquisada aqui no forum más não encontrei o que eu precisava, então venho pedir a ajuda de vocês mais uma vez

    eu tenho 8 programas (Financeiro, Rh, Compras, ETC...) e para tantos programas, estava ficando confuso, então fiz uma central onde eu executo um botão aonde ele abre o programa selecionado.

    más ai me surgiu um problema, eu preciso digitar usuário e senha em todos eles, todas as vezes que eu for entrar.

    Como eu posso fazer login apenas uma vez e os outros programas carregam o usuário atual. já feito logon na outra sessão

    Obrigado pessoal. eu uso este módulo, fornecido aqui mesmo no forum pelo nosso amigo Avelino

    Código:
    Option Compare Database
    Option Explicit

    Private strUsuarioAtual As String

    Function verificaLogin(argLogin As String, argSenha As String) As Boolean

        Dim criterio As String
       
        criterio = "login='" & argLogin & "' And senha='" & argSenha & "'"
       
        If Nz(DCount("login", "Tbl_Usuário", criterio), 0) > 0 Then
            verificaLogin = True
            setUsuarioAtual argLogin
        Else
            verificaLogin = False
        End If

    End Function

    Sub setUsuarioAtual(argUsuario As String)
        strUsuarioAtual = argUsuario
    End Sub

    Function getUsuarioAtual() As String
        getUsuarioAtual = strUsuarioAtual
    End Function

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    Re: Como coletar valor de outro banco de dados

    Mensagem  bernardweger em Seg 28 Set 2015, 14:15

    Apenas dando um up no tópico Smile

    Ajudem PLIS

      Data/hora atual: Sex 09 Dez 2016, 11:35