Evitar duplicidade de registro (com base em três campos)

Bom dia,

estou tentando implementar um forma de evitar a duplicidade de registro em uma agenda para marcação de consultas baseada na data, hora e médico.

tentei de várias formas, mas com certeza por ignorância da minha parte, não obtive sucesso.

Eu tentei da seguinte forma:

Private Sub numero_AfterUpdate()
Dim Rst As Recordset, strHora As String
Dim strData As String, strMed As String

strHora = Me.Horário
strData = Me.txtData
strMed = Me.cbxMedico

'Abre o recordset do tipo Table.
Set Rst = CurrentDb.OpenRecordset("SELECT Horário, Dia, Medico From Agenda WHERE Horário='" & strHora & "' AND txtData='" & strData & "' AND cbxMedico='" & strMed & "' ")

If Not Rst.EOF Then
   MsgBox "Registro já cadastrado no sistema! Preencha os dados novamente.", vbCritical, "Registro..."
   Cancel = True
   Me.Undo
   'Else
   'MsgBox "Registro não encontrado"
End If

Set Rst = Nothing
End Sub

Qualquer ajuda agradeço.

Obrigado!

Olá, seja bem vindo ao fórum!

Dê uma pesquisada por "evitar duplicidade". Há vários tópicos resolvidos no fórum. Na minha assinatura ↓abaixo↓ tem o link para um vídeo que mostra como fazer pesquisas mais eficientes.

Caso ainda reste dúvidas, poste os tópicos pesquisados e aonde ficou em dúvidas.

Então amigo, na linha que você abre o recordset e diz que o registro já existe, aparentemente não tem erro, o que parece acontecer é que você tentou cadastrar uma consulta com um horário, médico e data iguais.

Uma pergunta besta minha, você definiu esse 3 campos como chave na tabela né?


Att,

Marco Messa