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]Filtro com o Dlast....não executa, não aparece nada de nada

    Compartilhe
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Filtro com o Dlast....não executa, não aparece nada de nada

    Mensagem  Silvio em Qui 15 Maio 2014, 15:23

    Essa duvida é de deixar qualquer um...careca mesmo !

    Tenho o código abaixo....

    Private Sub LstPrNor_Click()
    Dim d1, d2 As Date
    Dim d3
    d1 = Now
    d2 = LstPrNor.Column(5) ' data vigência
    d3 = Me.LstPrNor.Column(3) ' motivo


    If d1 > d2 Then
    If MsgBox("Você escolheu um preço PASSADO !" & vbCrLf _
    & "O Preço Vigente é :" & vbCrLf _
    & "Data: " & DLast("nordtvig & ' Hora: '& NORHVIG", "[QryAtzNor]", "NORMOTEXT='d3'") & 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

    O que ocorre é que eu preciso " pegar " o texto filtrar pela última data e hora referente aquele texto.
    Se eu retirar o d3 da expressão o mesmo me traz um outro valor de dia e hora que não são referentes ao d3 que esta na lstbox, mas sim de outro motivo.

    Desde já eu agradeço a ajuda.


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2292
    Registrado : 21/04/2011

    Re: [Resolvido]Filtro com o Dlast....não executa, não aparece nada de nada

    Mensagem  Marcelo David em Qui 15 Maio 2014, 15:40

    Grande Silvio, veja algumas considerações:

    Código:
    Private Sub LstPrNor_Click()
           Dim d1, d2 As Date
           Dim d3

    Você não declarou que d1 é do tipo Date.

    Quando usamos a sequencia: Dim d1, d2 As Date
    você está apenas declarado que a variável d2 é do tipo date e a d1 é uma variant, pois essa você não especificou qual seu tipo e o
    VBA não entende como a última declarado, que no caso é do tipo Date...

    O correto é: Dim d1 As Date, d2 As Date

    Você também não declarou o tipo da variável d3.

    Outra coisa é que sempre que trabalho com datas, formato elas para o padrão americano (mm/dd/yyyy),
    ou seja: Format(d1, "mm/dd/yyyy").

    Teste essas dicas, pode ser que de certo.

    DLast("nordtvig & ' Hora: '& NORHVIG", "[QryAtzNor]", "NORMOTEXT=#"& d3 & "#")

    Está trabalhando com expressão no DLast? Acho que está meio estranho, ou não entendi...
    E quando se compara datas, temos que envolver-las entre "#", como fiz acima.


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Filtro com o Dlast....não executa, não aparece nada de nada

    Mensagem  Silvio em Qui 15 Maio 2014, 15:55

    Boas Marcelo...

    D3 é uma coluna (Column(3)) da LstPrNor onde esta o motivo no formato texto. É através desse motivo que eu preciso filtrar usando o Dlast.

    As correções propostas já estou realizando.



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

    Respeito às Regras 100%

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

    Re: [Resolvido]Filtro com o Dlast....não executa, não aparece nada de nada

    Mensagem  Silvio em Qui 15 Maio 2014, 17:50

    Resolvido...ficando dessa forma:

    & "Data: " & DLast("nordtvig & ' Hora: '& NORHVIG", "[QryAtzNor]", "NORMOTEXT= forms!frmcadastro!motoculta") & vbCrLf _


    .................................................................................
    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: Seg 25 Set 2017, 17:50