[Resolvido]Dcount com critério de Data

Boa noite !

Estou a usar um Dcount onde preciso COntar um campo onde o criterio é uma data... se a data for maior a data informada entao conta..

O problema é que meu campo data é do tipo texto e quando faco teste ele nao conta coerente apresenta numero nao compativel com o que realmente é.

Estou a usar o seguinte codigo..

Qtde_saida = DCount("Tem_Dt_Fim", "Tbl_Manutencao", " Tem_Dt_Fim > '" & Txt_Dt_Inicio & "'
And '" & ComBox_Status & "' = 'Emand' And Tem_Equip_Nome = '" & CBox_Equipamentos & "' ")

Tentei também convertendo o campo Tem_Dt_Fim para data Cdate( Tem_Dt_Fim)... e nada


Alguém tem uma sugestão ?

Saudações !

Bom dia Avelino !

Desculpe mas nunca utilizei campo virtual , nao sei como funciona .
Você tem algum exemplo ?


Tentei também usar o Dmax,porque o que eu preciso saber e se existe algum registro onde a data e maior do que a o que o usuário esta informando então pode ser tanto o Dcount ( se maior que 0 e porque tem) ou a Dmax (maior data para comparar com o que o usuário esta digitando )

Saudações !

Boa Noite Avelino !

Desculpe a demora pela resposta.
Nao entendi quando voce disse.
Crie a consulta , então no campo limpo digite:


Na verdade estava usando no VBA, antes de inserir um registro verifico se a data informada pelo usuário é maior que a ultima Tem_Dt_Fim. caso seja menor não poderá inserir.
Baseado no que você sugeriu tentei algo assim (Nao da erro mas pelo o Campo Tem_Dt_Fim Ser do tipo String não reconhece como data e mostra uma data não coerente)


Ultima_saida = DMax("Format(Tem_Dt_Fim,'dd/mm/yyyy hh:nn')", "Tbl_Manutencao", " '" & ComBox_Status & "' = 'Emand' And Tem_Equip_Nome = '" & CBox_Equipamentos & "' ")


Alguma Sugesta?

Saudacoes !

Faça o teste dando o CDate antes do format;

Ultima_saida = DMax("CDate(Format(Tem_Dt_Fim,'dd/mm/yyyy hh:nn'))", "Tbl_Manutencao", " '" & ComBox_Status & "' = 'Emand' And Tem_Equip_Nome = '" & CBox_Equipamentos & "' ")

Obrigado Senhores pela atencao!


JPaulo,

Sua sugestão funcionou mas quando tenho um campo Null ou Vazio (No meu caso acontece) ai da erro, Fiz o teste preenchendo todos os campos e funcionou beleza mas quando tem alguma campo null da erro de incompatibilidade. tentei colocar um iif isnull... na condição mas me perdi e acabei não conseguindo.


Avelino,
Em que lugar da instrução abaixo informo a tabela a ser verificada ?
filtro = "val(format(Tem_Dt_Fim,'yyyymmdd')) > " & val(format(me!Txt_Dt_Inicio,"yyyymmdd")) & " And ComBox_Status = 'Emand' And Tem_Equip_Nome = '" & me!CBox_Equipamentos & "'")


Saudações !

Ola Rafael;

Tem uma oportunidade de evoluir com a instrução do Avelino, faça o teste primeiro.

Para os Nulos utiliza-se a função interna Nz.


Ultima_saida = DMax("CDate(Format(Nz(Tem_Dt_Fim,0),'dd/mm/yyyy hh:nn'))", "Tbl_Manutencao", " '" & ComBox_Status & "' = 'Emand' And Tem_Equip_Nome = '" & CBox_Equipamentos & "' ")

Excelente!


As duas alternativas funcionaram.


Muito Obrigado !

Saudações !