MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Coletar valor na função

    Compartilhe
    avatar
    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: Qui 17 Ago 2017, 12:48