[Resolvido]VBA Horas Criterio

Preciso que no formulário, numa lista suspensa ao selecionar "Manhã" lance numa caixa de texto "< 12:00", "Tarde" seja "> 12:00" porém ao colocar o campo como um dos critérios de consulta não funciona!

Consegui fazer

Código:

If me.turno = "manhã" then
me.validaturno = "< 12:00"
end if

Já tentei de todas as formas. Com format, com "' & mas nada funcionou na hora da consulta.

Não sei se fui claro.

O valor é preenchido na caixa de texto, mas ao utilizar essa caixa de texto como um dos critérios a consulta não funciona.

entendi bem nao... rerererererere

Vc quer lançar esse Valor < 12:00 em uma caixa de texto... E em seguida utilizar esse Valor como Critério de Consulta é isso?

isso. O critério não está funcionando

E nao ira funcionar mesmo amigo... pois veja brm...

Qnd na consulta vc coloca o criterio: forms!nomeformulario!nomeCampo.  Esse criterio assumira = ao que tiver no Campo...

No caso o valor campo e < 12:00 entao no sql da consulta ficara assim:

Selec....... Where NomeCampo=< 12:00


Daee nao funciona.

Como posso fazer então?

Preciso que eu selecionar "Manhã" filtre todos os horários menores que 12:00, se for "Tarde" maior que 12:00 e menor que 16:40 e se for "Noite" >= 16:40

Amigo, construa a consulta direto no VBA e aplique no Formulario, se for o Caso...

Ex:

Apos atualizar...

Dim F as String

If me.turno = "manhã" then
F = "SELECT * FROM TbTurno WHERE hora < #'12:00:00'#"
Me.RecordSource= F

....


Pode ate fazem aplicando filtro no Formulario tambem... Veja como fazer aqui:
https://www.maximoaccess.com/t26778-resolvidofiltrar-exemplo

Me enrolo um pouco para fazer consulta via vba, mas pq consigo fazer funcionar a consulta se eu mesmo digitar < "12:00" no critério?

é o que te Expliquei na Mensagem anterior amigo...

Faça com Filtro então... e mais simples! Veja a dica da mensagem anterior...

Muito bom mestre, Duas cabeças pensam mais do que uma...
assim também Funciona né rererere!

Ótimo