[Resolvido]Registro Duplicado em tabela.

Prezados, bom dia,
Estou utilizando o VBA  abaixo para verificar se o registro Nota Fiscal está em duplicidade em toda a tabela, ou seja, se o registro for maior que 1 apresenta MsgBox do registro duplicado.

No evento ao carregar do frm inseri o código abaixo, porém, este não me retorna o registro duplicado.
If DCount("NotaFiscal", "tblContasReceber", "NotaFiscal ='" & Me.NotaFiscal & "'") > 1 Then
MsgBox "Foi encontrado registro em duplicidade para a Nota Fiscal: " & NotaFiscal & "", vbCritical + vbQuestion, "Aviso"

End If


Alguém pode me sugeri alguma adaptação para obter o resultado desejado?

Boa tarde,
O código faz referência ao controlo do formulário que ainda não está preenchido porque o formulário está a carregar.
Tem de colocar o código após a actualização do controlo

Alexandre,

Eu pretendo exibir a MsgBox quando o formulário estiver abrindo.

Quando eu alimento a tabela eu não digito os registros manualmente, eu os importo. Por isso queria que depois de importado os dados para a tabela quando abrir o formulário a mensagem fosse exibida se tiver registro duplicado.

Atenciosamente,

Cole este procedimento e chame-o na abertura do formulário
Sub VerificaDuplicado()
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT Count(NotaFiscal),NotaFiscal FROM tblContasReceber GROUP BY NotaFiscal HAVING Count(NotaFiscal)>1")
Do While Not Rst.EOF
MsgBox "Foi encontrado registro em duplicidade para a Nota Fiscal: " & Rst(1) & " (" & Rst(0) & " registos).", vbCritical + vbQuestion, "Aviso"
Rst.MoveNext
Loop
Set Rst = Nothing
End Sub

Perfeito Alexandre,

Vou é muito sábio, parabéns!

Atenciosamente,