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

    [Resolvido]DLast retorna valor falso

    Compartilhe

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]DLast retorna valor falso

    Mensagem  Silvio em Qui 01 Maio 2014, 13: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.]

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]DLast retorna valor falso

    Mensagem  Fernando Bueno em Qui 01 Maio 2014, 14: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.]

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]DLast retorna valor falso

    Mensagem  Cláudio Más em Qui 01 Maio 2014, 14:39

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

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]DLast retorna valor falso

    Mensagem  Alexandre Neves em Qui 01 Maio 2014, 14: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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]DLast retorna valor falso

    Mensagem  Silvio em Sex 02 Maio 2014, 01: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 09 Dez 2016, 03:51