Formulário - Mensagem quando campos já existirem

Pessoal,

Tenho um formulário com 5 campos.

Preciso que seja exibida a mensagem: "Já existe um registro com estes campos.",
se 3 dos 5 campos já estiverem sido inseridos e também exibir na mensagem o REGISTRO
que contém estes campos.

Alguém já fez isso ou algo parecido?


Grato,
lfreitas.

Freitas,

Veja se consegue adaptar a sua necessidade.

Código:

Dim rst As DAO.Recordset
Dim strCriteria As String
'verifica duplicidade
strCriteria = "[CNPJ] Like '*" & Me.txtCNPJ & "*'"

Set rst = Me.RecordsetClone
   rst.FindFirst strCriteria
       If rst.NoMatch Then
'MsgBox "Exibe mensagem se for o caso"
   Else
   MsgBox " Cliente CNPJ " & Me.txtCNPJ & " já cadastrado, verifique...", vbCritical, "Integ v1.0"
   Me.txtCNPJ.Value = ""
   Me.btCadastrar.Enabled = False
   Me.txtCNPJ.SetFocus
Me.Undo
End If
Cancel = True
Set rst = Nothing

Abraços,

Freitas,

houve avanço?


Abraços,

Uilson Brasil,

eu não entendi a pesquisa: strCriteria = "[CNPJ] Like '*" & Me.txtCNPJ & "*'"

A pesquisa é feita na tabela de onde vem o formulário, isso?
O campo "[CNPJ]" é um campo da tabela, certo? Ele é comparado com o campo do formulário?

Tem como me explicar melhor?


Grato,
lfreitas.

IFreitas,

Justamente.

"CNPJ" é o nome do campo na tabela e "txtCNPJ" é o nome do objeto no formulário.


Abraços,