[Resolvido]Evitar duplicidade em Sala, Data, Hora Inicio e Hora Fim

Boa tarde pessoal do Grupo,

Mais uma vez necessitando da ajuda dos amigos para o seguinte problema:

Tenho um Formulário frmReservaChaves e um frmSubChaves  gostaria que ao cadastrar uma nova reserva de sala o Sistema não aceitasse registros duplicados tais como:

1 - Sala
2 - Data da Reserva
3 - Hora Ini Reserva
4 - Hora Fim Reserva

Gostaria que o Sistema Não aceitasse cadastrar para uma mesma Sala: Data da Reserva, Hora Ini da Reserva e Hora Fim da Reserva já cadastrada anteriormente e sim aceitar somente Sala, DataReserva, horaini e horafim quando forem diferentes do registro já cadastrado anteriormente.

Segue em anexo cópia do BD

Obrigado pela atenção de todos

Não sei se é a melhor forma de fazer, esta só uma entre muitas que deve existir, mas teste o código abaixo

coloque no evento após atualizar do campo horário final da reserva

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM qry014_Reserva_Salas WHERE [cli_Nome]='" & Me.cli_Nome & "' and [chav_Data_Reserva]=#" & Me.txtchav_Data_Reserva & "#")

Do While Not rs.EOF
    If Me.txtchav_Hora_Ini_Reserva >= rs!chav_Hora_Ini_Reserva And Me.txtchav_Hora_Ini_Reserva <= rs!chav_Hora_Fim_Reserva Then
        MsgBox "Horario indisponivel para reserva!"
        Me.chav_Hora_Fim_Reserva = ""
        Me.txtchav_Hora_Ini_Reserva = ""
        Me.txtchav_Hora_Ini_Reserva.SetFocus
    ElseIf Me.chav_Hora_Fim_Reserva >= rs!chav_Hora_Ini_Reserva And Me.chav_Hora_Fim_Reserva <= rs!chav_Hora_Fim_Reserva Then
        MsgBox "Horario indisponivel para reserva!"
        Me.chav_Hora_Fim_Reserva = ""
        Me.txtchav_Hora_Ini_Reserva = ""
        Me.txtchav_Hora_Ini_Reserva.SetFocus
    End If
    rs.MoveNext
Loop

Set rs = Nothing

Boa tarde Fabio,

Muito obrigado pela ajuda, sua contribuição está no caminho certo só que lembrando que temos 3 salas ou seja: Auditório, Estúdio e Sala 05. Acontece que para auditório quando tento incluir uma data, horaini e horafim já registradas, beleza fez certinho a crítica e não deixa cadastrar. No entanto se for para Sala 05 e tentar gravar uma data, horaini e horafim já cadastrada em Auditório ele fala que já existe reserva para esta data ou seja o que peço para você é se tem jeito das salas não dependerem entre si de data, horaini e horafim.
As reservas de salas são independentes.
Obrigado e fico no aguardo de sua gentileza.

print das telas com problema da data, horaini e horafim

Raimundo Bacabal

@Bacabal

Não sei o que está a acontecer ai, mas aqui não me impede cadastrar um horário na mesma data para Sala05 e auditório.

Boa tarde Fabio,

Ok, tudo funcionando perfeitamente, acontece que na hora de copiar o seu código faltou algum comando, refiz copy e cola e deu tudo certo!

Muito obrigado mesmo!

Raimundo Bacabal