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


    Como coletar valor de outro banco de dados

    avatar
    bernardweger
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Como coletar valor de outro banco de dados Empty Como coletar valor de outro banco de dados

    Mensagem  bernardweger 14/9/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
    avatar
    bernardweger
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Como coletar valor de outro banco de dados Empty Re: Como coletar valor de outro banco de dados

    Mensagem  bernardweger 28/9/2015, 14:15

    Apenas dando um up no tópico Smile

    Ajudem PLIS

      Data/hora atual: 22/11/2024, 12:24