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

    Compartilhe

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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.]

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    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)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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.]

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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: Dom 04 Dez 2016, 01:50