[Resolvido]verificar registro consultando 2 campos de uma tabela

boa noite!!!!


Sou novato no forum e um amante do access, porém com pouquíssima experiência.

estou com um projeto para um salao de beleza, coisa da familia mesmo.
tenho um formulário de agendamento o qual estou tendo problemas.
tenho os campos da tabela agendamento "data" e "hora", eu gostaria que no formulário de agendamento nos campos "txtData e txtHora" se
já existir um agendamento com a data no mesmo horário me retornasse uma mensagem de que o horário não esta disponivel para aquela data.
encontrei alguns exemplos mas quando o meu textBox data perde o foco só me dá a mensagem no primeiro registro.

alguém pode me ajudar?
desde já agradeço!!!

Bom dia,
Se você puder postar o seu bd, poderemos ajudar melhor.

Opa. Bom dia

Você vai precisar fazer uma busca na tabela com base no filtro de data e hora. Sugiro que no formulário de agendamento possua um botao para verificar a disponibilidade.

'--------------------------------
'Variaveis
Dim rs As Recordset
'D usada no filtro de busca para verificar se tem disponibilidade pra esta data
Dim D As Date
'Hora inicial do filtro
Dim Hi As Variant
'Hora final do filtro
Dim Hf As Variant
D = Date
'No exemplo ele busca na tabela com base na data de hoje e nas horas entre 11:00 e 13:00
Hi = "11:00"
Hf = "13:00"
'---------------------------------------------

'Faz a busca na tabela com base nos filtros q expliquei
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblDesejada WHERE CampoData= #" & D & "# AND CampoHora BETWEEN #" & Hi & "# " _
& "AND #" & Hf & "#")

'Se achar registro com base nos filtros que você colocou da uma mensagem retornando a data
If rs.EOF = False Then
MsgBox rs!Data
End If





Espero ter ajudado.

Bom dia!

Coloquei o código no evento click do botão verificar, porém se existe o horário e data já cadstrado me retorna a mensagem, mas quando troco o horário
me retorna a mesma mensagem.

Ficou assim!

tentei criar uma variável para armazenar a data digitada no txtData mas não funcionou também.

Private Sub btnVerificar_Click()
Dim rs As Recordset
'D usada no filtro de busca para verificar se tem disponibilidade pra esta data
Dim D As Date
'Hora inicial do filtro
Dim Hi As Variant
'Hora final do filtro
Dim Hf As Variant

D = Date
'No exemplo ele busca na tabela com base na data de hoje e nas horas entre 11:00 e 13:00
Hi = "08:00"
Hf = "18:00"
'---------------------------------------------

'Faz a busca na tabela com base nos filtros q expliquei
Set rs = CurrentDb.OpenRecordset("SELECT * FROM agenda WHERE data= #" & D & "# AND hora BETWEEN #" & Hi & "# " _
& "AND #" & Hf & "#")

'Se achar registro com base nos filtros que você colocou da uma mensagem retornando a data
If rs.EOF = False Then
MsgBox ("Horário não disponível para essa data, favor escolher outro..!"), vbInformation, "Atenção"
End If

End Sub

anexei meu bd
obrigado!

meu bd está anexado para melhor entendimento.

Obrigado!!

Boa noite!

Fiz alguns testes e ficou assim

Private Sub btnVerificar_Click()
Dim rs As Recordset
'D usada no filtro de busca para verificar se tem disponibilidade pra esta data
Dim D As String
'Hora inicial do filtro
Dim Hi As Variant
'Hora final do filtro
Dim Hf As Variant

D = Me.txtData
'No exemplo ele busca na tabela com base na data de hoje e nas horas entre 11:00 e 13:00
Hi = Me.txtHora
Hf = "18:00"
'---------------------------------------------

'Faz a busca na tabela com base nos filtros q expliquei
Set rs = CurrentDb.OpenRecordset("SELECT * FROM agenda WHERE data= #" & D & "# AND hora BETWEEN #" & Hi & "# " _
& "AND #" & Hf & "#")

'Se achar registro com base nos filtros que você colocou da uma mensagem retornando a data
If rs.EOF = False Then
MsgBox ("Horário não disponível para essa data, favor escolher outro..!"), vbInformation, "Atenção"
End If

'Usei a variável "D" para armazenar a data digitada e a variávem "Hi" para armazenar a hora digitada, até aí OK, toda vez que tento inserir
'um agendamento com a data digitada repetindo uma hora me retorna a mesnsagem, perfeito.
'Quando troco a data para o dia seguinte, não dá erro, mas no caso de repetir a hora não retorna a mensagem.

End Sub

Boa tarde!

Obrigado a todos pela atenção, consegui resolver o meu problema com a ajuda de outros mestres assim como vocês.

Ficou assim:

Private Sub Pesquisar_Click()
Dim rs As Recordset
Dim sql As String

Dim D As String
'Hora inicial do filtro
Dim Hi As Variant
'Hora final do filtro
Dim Hf As Variant

'usei a variável D para armazenar a data inserida no txtData
'usei Hi para armazenar a hora inserida no txtHora
D = Me.TxtData.Value
Hi = Me.Txthora.Value
Hf = "18:00:00" 'hora final

sql = "SELECT * FROM tblAgenda WHERE (data= #" & Format(D, "mm/dd/yyyy") & "#) AND (hora BETWEEN #" & Hi & "# " _
& "AND #" & Hf & "#);"
Set rs = CurrentDb.OpenRecordset(sql)

If (rs.EOF And rs.BOF) = False Then
MsgBox ("Horário não disponível para essa data, favor escolher outro..!"), vbInformation, "Atenção"
End If
End Sub

Mais uma vez agradeço!

Obrigado.. Coloque o topico como reslvido para melhor compreensão de todos.