[Resolvido]Verificar se dois registros existem na tabela

Boa noite amigos!
Tenho uma tabela "TblAluguel" onde armazeno a data em que um brinquedo foi alugado.
Preciso de um código para analisar se o brinquedo já está alugado para uma determinada data.

Os dois campos tem que ser analisados na tabela para que não se alugue o mesmo brinquedo para o mesmo dia.

Algo parecido com isso:


Private Sub Brinquedo_BeforeUpdate(Cancel As Integer)

If (Not IsNull(DLookup("[Brinquedo]", "[DataAlug]", "TblAluguel", _
"[Brinquedo] ='" & Me.Brinquedo & " And [DataAlug]='" & Me.DataAlug & "'"))) Then

MsgBox "Este brinquedo já está alugado para esta data." _

vbInformation , "Brinquedos"

Cancel = True

Me!Brinquedo.Undo

End If
End Sub

Esse é o meu problema.
Obrigado a todos!!!!

Bom dia
Já fez procura no fórum?
https://www.maximoaccess.com/t34032-resolvidoimpedir-e-avisar-se-registro-duplicado-com-mais-de-um-criterio-na-mesma-tabela

Bom dia Alexandre!
Desde já agradeço a sua atenção.
De acordo com o exemplo que você indicou no link o que consegui fazer foi isso:

Private Sub Brinquedo_BeforeUpdate(Cancel As Integer)
If DCount("*", "TblAluguel", "Brinquedo=" & Brinquedo & "and DataAlug=" & DataAlug) > 0 Then
MsgBox "Este Brinquedo já está alugado para esta data"
Me.Undo
End If
End Sub

Só que ele não está encontrando nenhum registro. A prova disso é que quando troco o sinal de ">0" pelo o de "=0" , aí sim ele me mostra a mensagem.
Onde estou errando, você pode me ajudar? Lembrando que o campo "DataAlug" é texto.

Tente assim;

Código:

If DCount("*", "TblAluguel", "Brinquedo='" & Me!Brinquedo & "' and DataAlug='" & Me!DataAlug & "'") > 0 Then

Texto e sempre com aspas simples.

Boa Tarde Mestre JPaulo!

O que acontece agora é que ao inserir um brinquedo, mesmo que ainda esse brinquedo não tenha nenhum outro registro, mas na mesma data onde haja um evento já cadastrado, recebo a seguinte mensagem de erro: "Tipo de dados incompatível na expressão critério"
Resumindo: O código só me permite fazer um agendamento por data. Ele não me deixa alugar dois brinquedos diferentes na mesma data.
Obrigado pela atenção!!!

Sem dados de exemplo fica difícil

Anexe aqui parte do seu banco por favor.

Bom dia JPaulo!

Aqui o link do dropbox:

https://www.dropbox.com/s/rx3ac9mz6cv59np/TEMPO%20DE%20BRINCAR.accdb?dl=0

Infelizmente não tenho como desmembrar o banco. A senha 1

Clique em agendamentos e escolha uma data e então abrirá o formulário "FrmSamples". E nele está o subform Formulário16 que é onde se encontra o meu problema.

Toda essa parte de agendamento foi adaptado do BD postado por David Rocha.

É importante ressaltar que usei aqui outros nomes de tabela e campos para tentar explicar melhor o meu problema. Então a tabela Brinquedos que me referi aqui na verdade chama-se TblDetSample.

Você irá reparar que no formulário16 que na verdade é a TblDetSample existe o campo BrinqSpl que é uma caixa de combinação que busca o brinquedo na tabela Serviço1. Pois bem, o certo seria que ela mostrasse somente os brinquedos que estivessem disponíveis para alugar naquela data e não mostrando todos os brinquedos. Mas infelizmente para mim isso se tornou impossível de ser feito. Então busquei a tentativa de bloquear os brinquedos já alugados e dessa maneira enviando a mensagem de que o brinquedo já estaria agendado para aquela determinada data.Pois bem, como percebe, também não tive êxito.
Estou tentando fazer esse bd pois estou começando um novo negócio. Gosto muito de "fuçar" no Access mas infelizmente não me resta quase tempo nenhum para estudar e quando aparecem esses problemas recorro sempre aqui. Então só me resta agradecer a todos!!!!!

Essa caixa de combinação "BrinqSpl" no Formulário16, quando você escolhe um brinquedo vai dar erro, porque o formulario "Formulário33" não existe.

Você testou ?

O amigo vai-me desculpar, mas este banco está na maior bagunçada e extremamente dificil trabalhar em cima dele.
Vontade de ajudar eu tenho, mas não assim.

Ok Mestre JPaulo. De qualquer maneira agradeço muito o seu empenho. O BD está bagunçado mesmo, mas é por falta de tempo, não é desleixo não. Desculpa aí o mau jeito.
Vou dar o caso como resolvido.
Obrigado e boa noite!!!!