Olã amigo , Coloca este codigo no evento do Campo que você não que a duplicidade.
Dim Busca As String
Dim StLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.txt_nome.Value
StLinkCriteria = "txt_nome='" & Busca & "'"
If DCount("txt_nome", "Nome da Tabela", StLinkCriteria) > 0 Then
Me.Undo
MsgBox "Aqui Amensagem que vai aparecer:.." _
& Busca & " JÁ EXISTE." _
& vbCr & vbCr & "ESCOLHA OUTRO NOME.", vbInformation _
, "DUPLICIDADE"
rsc.FindFirst StLinkCriteria
End If
Set rsc = Nothing
No evento antes de atualizar
