[Resolvido]Validação data

Bom dia Amigos

Estou a criar uma nova base de dados, comecei por criar uma tabela em que se poderia inserir manualmente a data e a hora de uma suposta carga, porem gostaria de validar da seguinte maneira o campo "marcar hora para carga" desta maneira:

se [marcar data para carga]=data de hoje, então, [marcar hora para carga]> hora atual

Ambos os campos estão na mesma tabela ^^
Muito Obrigado por tudo
Com os melhores Cumprimentos
Oliveira

Boa noite, Oliveira

Trabalha na tabela ou no formulário?

Olá..

Se for em consulta, no campo Hora fica assim

Hora: SeImed([CampoData]=0;0;Agora())
ao digitar a data o campo hora se completa com a hora atual


Se For em formulário, no evento apos atualizar do campo Data fica assim

Me.Hora = Now
ao digitar a data o campo hora se completa com a hora atual

Espero que seja isto

Abraços

Desculpe Alexandre, quando vi que postou já tinha ido

Abraços

Bom dia amigo Alexandre e amigo Celso

vou fazer a validação através do formulário vou voltar a explicar um pouco mais simples:

se [(data marcada)]=data de hoje, então, [(hora marcada)]> hora atual


[(data marcada)]-> data marcada através de calendário
[(hora marcada)]->hora escrita no formato hh:mm:ss

Muito Obrigado
Com os melhores Cumprimentos
Oliveira

Olá então faça:

No evento ao alterar do seu campo data

Private Sub SeuCampoData_Change()
Me.SeuCampoHora = Format(Now, "hh:mm:ss")
End Sub

Substitua "SeuCampoData", pelo nome de seu campo Data
substitua "SeuCampoHora", pelo nome de seu campo Hora

Abraços

Boa tarde Sr. Celso


Private Sub SeuCampoData_Change()
Me.SeuCampoHora = Format(Now, "hh:mm:ss")
End Sub

Está óptimo, mas este código vai aparecer a hora de agora, eu queria o seguinte.
caso a data que seja introduzida seja a de hoje a hora inserida tem de ser sempre maior que a de agora, pois não faz sentido fazer uma carga há uma hora atrás. tem sempre de ser desta hora para a frente.
Tenho 2 campos no formulário para preenchimento. 1 para a data e outro para a hora, independentes um do outro. quero assim criar uma dependência um do outro, ou seja a hora depende da data. se marcar uma data de amanha por exemplo posso marcar a hora que quiser, mas caso marque a data de hoje tenho que inserir uma hora superior há de agora.

Muito Obrigado
Com os melhores Cumprimentos
Oliveira

Olá..

O exemplo que te passei esta exatamente para campos diferentes, veja que o campo Hora esta sendo alterado pelo campo data(Colocar código no evento ao altera campo data).
Quanto ao introduzir data de amanha, ira mostra hora atual do seu computador, é só alterar para Hora desejada.

Quanto ao introduzir data de hoje a hora tem que ser maior que hora atual, tem que se saber quantas Horas?
Sabendo isto, Use no Mesmo evento ao alterar data

Me.Hora = DateAdd("h", 1, Format(Now, "hh:mm:ss")) ' Acrescenta 1 Hora a hora atual
ou
Me.Hora = DateAdd("n", 30, Format(Now, "hh:mm:ss")) ' Acrescenta 30 minutos a hora atual

Espero que seja isto

Abraços

Muito Obrigado amigo é isto mesmo
Com os melhores cumprimentos
Oliveira

Olá Oliveira,

O Fórum agradece seu retorno

Abraços