[Resolvido]comando ou formula para evitar repetição de nomes

Option Compare Database
Option Explicit

Private Sub form_nome_BeforeUpdate(Cancel As Integer)
  If Me.form_nome = Me.form_nome.OldValue Then Exit Sub
  If Not IsNull(DLookup("[nome]", "Tab_Clientes", "[nome] ='" & Me!form_nome & "'")) Then
    Cancel = True
    Me.form_nome.Undo
    MsgBox "Cliente já cadastrado."
  End If
End Sub

Código:


Private Sub Combinação53_NotInList(NewData As String, Response As Integer)

  If MsgBox("Deseja adicionar " & NewData & " ao cadastro de Clientes?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Tab_Clientes")
    rs.AddNew
    rs!Nome = NewData
    rs.Update
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
    Response = acDataErrAdded
  Else
    Response = acDataErrContinue
    Me.Combinação53.Undo
  End If

End Sub