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

    Problema para manter informações de outro access

    Compartilhe

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Problema para manter informações de outro access

    Mensagem  bernardweger em Qui 03 Set 2015, 14:34

    Olá pessoal, bom dia!

    estou tendo um pequeno problema e gostaria da ajuda de vocês.

    Possuo vários programas criado no access( financeiro, rh, estoque e etc...) e ai eu criei um novo banco de dados(central) aonde eu coloquei botões para que sejam abertos esses outros banco. e Claro fiz também um formulário de login para esta central, más ai eu tenho um problema, quando eu abro estes outros bancos a partir dessa central ele não mantem o mesmo usuário.
    utilizo este módulo

    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

    e este aqui no formulário de login

    Código:
        If Not IsNull(txtlogin) And Not IsNull(txtsenha) Then
            If verificaLogin(txtlogin, txtsenha) Then
              DoCmd.Close
                DoCmd.OpenForm "Frm_menu"
            Else
                MsgBox "Senha inválida!", vbExclamation, "Login"
                txtsenha = ""
                txtsenha.SetFocus
               
               
            End If
            End If

    e então no menu eu coloco uma caixa de texto que mostra qual usuário "=getUsuarioAtual()".
    bom, alguem poderia me ajudar a fazer com que ao abrir este novo access ele inserisse o usuário sem que seja feito o login novamente?

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Problema para manter informações de outro access

    Mensagem  bernardweger em Qui 10 Set 2015, 12:46

    pessoal, alguém poderia me ajudar nisso? estou meio desesperado Smile

      Data/hora atual: Sab 10 Dez 2016, 04:52