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

    [Resolvido]DLast retorna valor falso

    Compartilhe
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3568
    Registrado : 20/04/2011

    [Resolvido]DLast retorna valor falso

    Mensagem  Silvio em Qui 1 Maio - 8:52

    Prezados colegas, bom dia e bom feriado a todos.

    Tenho o seguinte código que estou a desenvolver :

    Private Sub LstPrNor_Click()
    Dim d1, d2 As Date
    d1 = CDate(Date)
    d2 = CDate(LstPrNor.Column(5))

    ' Caso escolha uma data passada....
    If (d1 > d2) Then
    If MsgBox("Você escolheu um preço PASSADO !" _
    & "A mais recente é:" _
    = DLast("[nordtvig]", "[tblatznor]", "[nordtvig)]" < Date) _
    & vbCrLf & "Confirme se é esse mesmo que deseja !", vbYesNo, "ATENÇÃO") = vbYes Then
    Forms!frmcadastro.Form!NORMOTEXT = Me.LstPrNor.Column(3)
    Forms!frmcadastro.Form!PRVIG = Me.LstPrNor.Column(4)
    Forms!frmcadastro.Form!PRLQD = Me.LstPrNor.Column(4)
    DoCmd.Close
    End If
    End If

    O que ocorre, é que ao executar essa consulta, o Dlast me retorna uma msg " falso " e não a última data.
    Eu preciso apenas que na msgbox, me retorne a última data que está na tabela.

    Grato desde já.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1845
    Registrado : 12/04/2012

    Re: [Resolvido]DLast retorna valor falso

    Mensagem  Fernando Bueno em Qui 1 Maio - 9:12

    Grande Silvio bom dia..

    Ja tentou assim?

    = DLast("[nordtvig]", "[tblatznor]", "[nordtvig)] < Date") _


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1153
    Registrado : 21/01/2012

    Re: [Resolvido]DLast retorna valor falso

    Mensagem  Cláudio Más em Qui 1 Maio - 9:39

    & DLast("[nordtvig]", "[tblatznor]", "[nordtvig)]" < Date) _
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6306
    Registrado : 05/11/2009

    Re: [Resolvido]DLast retorna valor falso

    Mensagem  Alexandre Neves em Qui 1 Maio - 9:42

    Boa tarde,
    Private Sub LstPrNor_Click()
    Dim d1, d2 As Date
    d1 = CDate(Date)
    d2 = CDate(LstPrNor.Column(5))

    ' Caso escolha uma data passada....
    If d1 > d2 Then
    If MsgBox("Você escolheu um preço PASSADO !" _
    & "A mais recente é:" _
    & DLast("[nordtvig]", "[tblatznor]") _
    & vbCrLf & "Confirme se é esse mesmo que deseja !", vbYesNo, "ATENÇÃO") = vbYes Then
    Forms!frmcadastro.Form!NORMOTEXT = Me.LstPrNor.Column(3)
    Forms!frmcadastro.Form!PRVIG = Me.LstPrNor.Column(4)
    Forms!frmcadastro.Form!PRLQD = Me.LstPrNor.Column(4)
    DoCmd.Close
    End If
    End If
    ...


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3568
    Registrado : 20/04/2011

    Re: [Resolvido]DLast retorna valor falso

    Mensagem  Silvio em Qui 1 Maio - 20:23

    Boa noite aos colegas.

    Desculpe a demora em responder, mas hoje foi dia de mudanças por aqui, casa nova !

    Show de bola mesmo, valeu a todos que me ajudaram.

    Alexandre, dei uma incrementada no DLast, pois dessa forma pude pegar a hora também, evitando erros do utilizador, portanto ficou assim:

    ' Caso escolha uma data passada....
    Dim d1, d2 As Date
    d1 = CDate(Date)
    d2 = CDate(LstPrNor.Column(5))

    ' Caso escolha uma data passada....
    If d1 > d2 Then
    If MsgBox("Você escolheu um preço ULTRAPASSADO !" & vbCrLf _
    & "O mais recente é :" & vbCrLf _
    & "Data: " & DLast("[nordtvig]", "[tblatznor]") & " Hora : " & DLast("[NORHVIG]", "[tblatznor]") _

    & vbCrLf & "Confirme se é esse mesmo que deseja !", vbYesNo, "ATENÇÃO") = vbYes Then
    Forms!frmcadastro.Form!NORMOTEXT = Me.LstPrNor.Column(3)
    Forms!frmcadastro.Form!PRVIG = Me.LstPrNor.Column(4)
    Forms!frmcadastro.Form!PRLQD = Me.LstPrNor.Column(4)
    DoCmd.Close
    End If
    End If

    Deixo aqui, meus agradecimentos ao Claudio, Alexandre e ao Fernando pela força.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sex 18 Ago - 12:31