nomes duplicados, como tratar esse  erro? na hora de gravar exibi msg de viso nome ou codigo já existe

private sub incluir()

  on error goto erro

.... codigo do programa

 

erro:

    msgbox err.number & "-" & err.description

end sub

 

Se o motivo da pesquisa não for um campo indexado pode ser feito assim:

Set Rc_Temp = Base_Cidade.OpenRecordset("SELECT Estado.* From Estado WHERE (((Estado)='" & Estado & "'));")
If Rc_Temp.RecordCount > 0 Then
 msgbox"Já existe um Estado com esta Sigla"

 Estado.SetFocus
 Exit Sub
end if

 

Se for um campo indexado poderia ser feito:

        If Rc_Estado.Index <> "PrimaryKey" Then Rc_Estado.Index = "PrimaryKey"
        Rc_Estado.Seek "=", Rt_Estado.Text
        If not Rc_Estado.NoMatch Then
            Msgbox "Estado Já cadastrado"

            Exit Sub
        End If