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

    Coletar valor na função

    Compartilhe

    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 09/04/2012

    Coletar valor na função

    Mensagem  jamesacdc em Qua 17 Fev 2016, 00:10

    Boa noite,

    Gostaria de coletar uma informação do campo atraves da função abaixo:
    Na tbUsuario tem um campo funcionario (int).
    É esse campo eu necessito coletar, mas não tenho nem ideia de como coletar.
    Sei que a getUsuarioAtual me retorna o login do usuário e isso já funciona.


    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", "tbUsuario", 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

      Data/hora atual: Dom 04 Dez 2016, 20:17