[Resolvido]Registro duplicado

Boa noite a todos!

Tenho um banco de dados onde controlo a entrada e saída de veículos em minha empresa. Diariamente cadastro várias saídas e cada saída gera um código.
Como fazer para, quando eu digitar a data e o código nos campos do formulário e esse código já tiver sido cadastrado naquele dia, aparecer uma mensagem alertando que "Esse código já foi cadastrado nessa data"?

Obrigado

Bom dia, Dílson!

Muito obrigado pela ajuda, mas não consegui fazer funcionar, não sei se fiz certo.
A tabela a qual esses dados pertencem é a "Cad_Ocor".
O campo data esta na "txtdata" e o código na "txttalao

Coloquei o código abaixo no formulário.

Private Function VerSeJaExiste(argCod, argData) As Boolean
Dim rs As DAO.Recordset
Dim nSql As String
nSql = "SELECT * FROM Cad_Ocor WHERE DataOcorr=" & argData & " AND Talão=#" & argCod & "#"
Set rs = CurrentDb.OpenRecordset(nSql)
If rs.RecordCount > 0 Then
MsgBox "Esse código já foi cadastrado nessa data.", vbCritical, "Atenção"
VerSeJaExiste = True
Else
VerSeJaExiste = False
End If
rs.Close
Set rs = Nothing

End Function

Coloquei o código abaixo no evento "Antes de atualizar" da txttalao e nada aconteceu.

If VerSeJaExiste(Me!txtdata, Me!txttalao) = True Then
Exit Sub
End If

O que pode ser?

Obrigado

Boa dia, Dilson!

Fiz exatamente como falou, mas o programa executou normalmente, passou direto pelo código e não impediu e registro duplicado.
Segue me bd.

Obrigado

https://mega.nz/#!MV12gIxT!1SEoZpcpfnXsRr7DLCrD6W8ZGqu4l0qGHgL-6G7_fJg

Boa noite, Dilson!

Funcionou. Só não ficou 100% porque após digitar a data e o código, se for repetido, emite a mensagem de registro duplicado e se clico no botão cancelar o sistema fica emitindo a mensagem de registro duplicado. Se apago o número do código, dá erro de sintaxe. Se após a mensagem de erro, eu verificar que o código esta correto e a data esta errada, não consigo retornar ao campo data.
O que pode ser?
Só tem esse detalhe a reparar.

https://mega.nz/#!NMU3iaKJ!rV9JUPCxJQUIm3ioAGww8CmU22OmKgjXbra4Bxbu8QA

Obrigado

use o método undo:

If VerSeJaExiste(Me!txttalao, Format(Me!txtdata, "yyyy/mm/dd")) = True Then
          MsgBox "Esse código já foi cadastrado nessa data.", vbCritical, "Atenção"
          Me.txttalao.Undo
          Cancel = True
End If

Boa noite, Dilson!

Muito obrigado, funcionou perfeitamente. Estou começando nesse mundo de programação e ainda tenho muito a aprender.

Obs: você poderia me ajudar em mais dois tópicos?
https://www.maximoaccess.com/t26503-salvar-dados-em-duas-tabelas-e-retornar-dado-do-utimo-registro


https://www.maximoaccess.com/t26530-atualizar-campo-de-uma-tabela-com-base-em-outros-campos-de-outra-tabela  (Tópico desse link foi removido por estar com assunto duplicado no fórum)

Desde já, agradeço.