[Resolvido]Intervalo de Horas

Boa Noite

Peco ajuda novamente.

Preciso preencher um campo na tabela Data do Plantao da seguinte forma.

Se o atendimento for no intervalo de hora entre 00:00 e as 07:00 da manha a data do plantao tem que ser a data do dia anterior.

Se o intervalo for outro a data do plantao tem que ser a data de hoje.

Tente assim:

If Time >= "00:00:00" And Time <= "07:00:00:" Then
    Me.CampoData = Date() - 1
Else
    Me.CampoData = Date()
End If

Boa Noite

Um lancamento feito agora as 21:28 nada acontece

Sera que tem algo errado?

Private Sub Hora_de_Entrada_AfterUpdate()
If Hora_de_Entrada >= "00:00:00" And Hora_de_Entrada <= "07:00:00:" Then
Me.[Data_do_Plantao] = Date - 1
Else
Me.[Data_do_Plantao] = Date
End If
End Sub

Fiz assim e tambem nao consegui

Private Sub Hora_de_Entrada_AfterUpdate()
If Hora_de_Entrada >= "00:00" And Hora_de_Entrada < "07:00" Then
Me.[Data do Plantao] = Now() - 1
Else
Me.[Data do Plantao] = Now()
End If
End Sub

Seu campo data está formatado como Data/Hora? Se a data vai ser a de ontem entre 00:00:00 e 07:00:00, então o que for cadastrado agora será na data de hoje mesmo e não de ontem, certo?

Criquio

Todos os meus campos sao data/hora.

O meu problema e o seguinte. O Plantao inicia as 07 da manha e termina as 07 do outro dia.

vamos considerar hoje dia 17. Eu gravo na tabela a hora e a data atual. E tenho um campo que quero gravar a data do plantao.

Os atendimentos apos 00:00 e 06:59 do outro dia, precisam estar com data do plantao a data do dia 17 tambem, embora ja seja dia 18.

Assim

Paciente Hora atendimento Data do atendimento Data Plantao

15 02:00 18/05/2011 17/05/2011
14 21:39 17/05/2011 17/05/2011

Então a sintaxe está correta. Tentou colocar a hora do sistema entre 00:00 e 06:59 para testar? Só mude o <= "07:00" para < "07:00".

funcionou. Obrigado. Demorei, pois estava de ferias. Abraco a todos

Obrigado a todos