[Resolvido]Evitar sobreposição de horários.

Olá Feras de Plantão, boa tarde.

Possuo um formulário em que cadastro as solicitações de serviços e neste possuo um procedimento no evento Após Atualizar do campo txtTipoServiço que funcionava muito bem, contudo, de uma hora para outra parou de funcionar.

Procedimento:

If DCount("*", "TAB_RESERVA", "Data_Evento=#" & TxtDataEvento & "# and ((Hora_inicio<=#" & TxtHoraInicial & "# and Hora_final>=#" & TxtHoraInicial & "#) or (Hora_inicio<=#" & TxtHoraFinal & "# and Hora_final>=#" & TxtHoraFinal & "#)) and ID_Serviço ='" & TxtTipoAgendamento & "'") > 0 Then 'existe incompatibilidade de agendamento
MsgBox "Atenção: " & Chr(13) & "Já existe um evento agendado para o mesmo dia, horário e tipo de serviço...   ", vbExclamation, "  InfoBasic Smart System"
Me.Undo
Me.ID_Solicitante.SetFocus
DoCmd.CancelEvent
Else
Me.Solicitante = Me.ID_Solicitante.Column(1)
Me.SUBFORM_RESERVA.Requery
Me.Observ_Serviço.SetFocus
End If

O que poderia ter acontecido?

Abraços, WSenna

Olá, Mestre WSenna
Terá a ver com formatação de data/hora?
O ID_Serviço é texto? ou será número?
If DCount("*", "TAB_RESERVA", "Data_Evento=#" & Format(TxtDataEvento,"formato) & "# and ((Hora_inicio<=#" & TxtHoraInicial & "# and Hora_final>=#" & TxtHoraInicial & "#) or (Hora_inicio<=#" & TxtHoraFinal & "# and Hora_final>=#" & TxtHoraFinal & "#)) and ID_Serviço ='" & TxtTipoAgendamento & "'") > 0 Then 'existe incompatibilidade de agendamento
MsgBox "Atenção: " & Chr(13) & "Já existe um evento agendado para o mesmo dia, horário e tipo de serviço... ", vbExclamation, " InfoBasic Smart System"

Grande Abraço,
Alexandre

Olá Alexandre, boa tarde.

Meu Amigão, o campo ID_Serviço é do tipo Texto.

Apliquei a sua sugestão mas a coisa teima em não impedir que se cadastre novo registro com o horário de início entre outro registro para o mesmo ID_Serviço.

Aguardo novas instruções.

WSenna

Um pitaco;

Teste por favor e retorne;

Código:

If DCount("*", "TAB_RESERVA", "Data_Evento=#" & Format(TxtDataEvento, "mm-dd-yyyy") & "# and ((Hora_inicio<=#" & TxtHoraInicial & "# and Hora_final>=#" & TxtHoraInicial & "#) or (Hora_inicio<=#" & TxtHoraFinal & "# and Hora_final>=#" & TxtHoraFinal & "#)) and ID_Serviço ='" & TxtTipoAgendamento & "'") > 0 Then

Amigo JPaulo, bom dia.

Testei, mas o código está deixando passar todos os registros, mesmo aqueles com horário inicial entre o período de um registro anterior, ou seja, está sobrepondo os horários.

O que me deixa perplexo é que até uns cinco dias atrás a "coisa" funfava legal e de repente parou de funcionar.

Veja abaixo um modelo que desmembrei do BD principal.

Abraços, WSenna

Amigão;

Com esta formatação data americana, funfou na hora aqui;

"Data_Evento=#" & Format(TxtDataEvento, "mm-dd-yyyy") & "#

Amigo JPaulo, Muitíssimo obrigado.

Mesmo com sua outra formatação a coisa funfou, bastou que eu desacoplasse o campo TxtTipoServiço e adicionasse o campo ID_Serviço e fizesse referência a ele no evento Após Atualizar de TxtTipoServiço.
Mais algumas modificações no evento Após Atualizar do campo TxtTipoServiço e a coisa funfou legal.

Veja o modelo:

Abraços, WSenna