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


2 participantes

    [Resolvido]Atribuir o Dlookup a uma variável

    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/04/2012

    [Resolvido]Atribuir o Dlookup a uma variável Empty [Resolvido]Atribuir o Dlookup a uma variável

    Mensagem  fieldNome 10/6/2012, 19:11

    Estou tentando atribuir a função Dlookup a uma variável.

    Bom, como estou criando uma tela de Login em que a senha é a partir da data de nascimento do usuário, tenho que criar algumas variaveis, como "dia", "mes" e "ano".

    Como o formato solicitado é assim:

    DDAAMM (dia, ano e mês). Exemplo: Se a data de nascimento da pessoa for 10/06/1996, então será 109606.

    Então, criei 3 variáveis : "dia, mês e ano".

    Utilizei a função Dlookup dentro da função Day, para trazer o dia da data de nascimento.

    Utilizei a função Dlookup dentro de Month para trazer o mês e a função Len com IF, porque a função Month traz o mês com uma casa só, por exemplo, se for mês 5, ele retorna 5, e não 05, que é o que quero, aí ele acrescenta um 0 na frente. Caso já seja mês 10, 11 ou 12, ele não precisará do 0 na frente.

    Utilizei a função Dlookup dentro de Year pra trazer o ano, e usei a função Right pra trazer só os 2 últimos números do ano.

    Se eu botar pra exibir a MsgBox desse jeito assim, funciona.
    Só que quando eu coloco os critérios na Dlookup, dá erro.

    Alguém sabe como fazer pra dar certo?

    Private Sub Comando5_Click()

    dia = Day(DLookup("Data_Nascimento", "Usuários"))
    If Len(Month(DLookup("Data_Nascimento", "Usuários"))) = 1 Then
    mes = 0 & Month(DLookup("Data_Nascimento", "Usuários"))
    Else
    mes = Month(DLookup("Data_Nascimento", "Usuários"))
    End If
    ano = Right(Year(DLookup("Data_Nascimento", "Usuários")), 2)

    If IsNull(Me.txtLogin) Or Me.txtLogin.Value = "" Then
    MsgBox "Você não digitou um usuário. Esse campo é obrigatório", vbCritical, "Usuário"
    Me.txtLogin = Null
    Me.txtLogin.SetFocus

    Dim dia As String
    Dim mes As String
    Dim ano As String


    ElseIf Me.txtSenha = dia + ano + mes Then
    MsgBox "tudo certo"
    DoCmd.Close

    Else

    MsgBox ("não confere")

    End If
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Atribuir o Dlookup a uma variável Empty Re: [Resolvido]Atribuir o Dlookup a uma variável

    Mensagem  JPaulo 11/6/2012, 09:19

    Falta muita coisa ae para funfar, até o Where usuário no DLookup;

    Veja o simples;



    Private Sub Comando5_Click()
    Dim dia As String
    Dim mes As String
    Dim ano As String

    dia = Left(DLookup("Data_Nascimento", "Usuários", "usLogin = '" & Me.txtLogin.Value & "'"), 2)
    If Len(Month(DLookup("Data_Nascimento", "Usuários", "usLogin = '" & Me.txtLogin.Value & "'"))) = 1 Then
    mes = 0 & Mid(DLookup("Data_Nascimento", "Usuários", "usLogin = '" & Me.txtLogin.Value & "'"), 5, 1)
    Else
    mes = Mid(DLookup("Data_Nascimento", "Usuários", "usLogin = '" & Me.txtLogin.Value & "'"), 4, 2)
    End If

    ano = Right(DLookup("Data_Nascimento", "Usuários", "usLogin = '" & Me.txtLogin.Value & "'"), 2)

    If IsNull(Me.txtLogin.Value) Or Me.txtLogin.Value = "" Then
    MsgBox "Você não digitou um usuário. Esse campo é obrigatório", vbCritical, "Usuário"
    Me.txtLogin.Value = Null
    Me.txtLogin.SetFocus
    ElseIf Me.txtSenha.Value = Trim(dia) & Trim(ano) & Trim(mes) Then
    MsgBox "tudo certo"
    DoCmd.Close
    Else
    MsgBox ("não confere")
    End If
    End Sub



    http://dl.dropbox.com/u/771097/Loginn_OLD.rar


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Atribuir o Dlookup a uma variável Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Atribuir o Dlookup a uma variável Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Atribuir o Dlookup a uma variável Folder_announce_new Instruções SQL como utilizar...
    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/04/2012

    [Resolvido]Atribuir o Dlookup a uma variável Empty Re: [Resolvido]Atribuir o Dlookup a uma variável

    Mensagem  fieldNome 12/6/2012, 03:34

    Caraca, muito obrigado.

    Vou estudar agora essas funções TRIM, etc.

    Muito obrigado mesmo, cara.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Atribuir o Dlookup a uma variável Empty Re: [Resolvido]Atribuir o Dlookup a uma variável

    Mensagem  JPaulo 12/6/2012, 09:27

    Valew pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Atribuir o Dlookup a uma variável Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Atribuir o Dlookup a uma variável Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Atribuir o Dlookup a uma variável Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Atribuir o Dlookup a uma variável Empty Re: [Resolvido]Atribuir o Dlookup a uma variável

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 02:09