[Resolvido]Avisar dados existentes

Bom dia

Como eu faço para ao salvar indentificar que os dados já existenten na tabela ,baseado em 3 campos?

campo1
campo2
campo3

serão forem identicos emitir aviso

Teste assim, mudar nomes

Dim rs As DAO.Recordset
Dim sql as string

Sql = ("select * from Suatabela where campo1 = " & campoform1 & " and campo2 = " & campoform2 & " and campo3 = " & campoform3 ) ' aqui vai verificar os campos do registo
Set rs = CurrentDb.OpenRecordeset(sql)

If rs.recordcount = 1 then
Msgbox" registo ja existe"
Me.undo
Else
Deixa inserir registo
End If

da erro nesta linha

Set rs = CurrentDb.OpenRecordeset(sql)

Boa noite
Quer postar a tabela e o formulário

Bom dia,

Passando aqui apenas para uma observação. Está faltando as aspas no final da instrução:

Sql = ("select * from Suatabela where campo1 = " & campoform1 & " and campo2 = " & campoform2 & " and campo3 = " & campoform3 & "" )



É isso!

[]'s

FIM

Não deu certo

Funcionou (Access 97)!

Código:


Private Sub usuário_AfterUpdate()
   If NewRecord And Len(DLookup("Usuário", "tbl_users", "Usuário = forms.frm_users.usuário.text")) > 0 Then
      MsgBox ("Esse usuário já foi cadastrado")
      Me.Undo
   End If
End Sub


Olá,

Segue exemplo com as devidas validações.

Faça o teste e qualquer problema nos retorne.

[]'s

FIM

Perfeito obrigado Alexandre Fim!

Valeu Alexandre

O fórum agradece !!!

Sucesso !!