[Resolvido]localizar registro duplicado

boa tarde estou usando este codigo para evitar a duplicidade,mas gostaria que nesse mesmo codigo me retornasse o registro duplicado.

Sub verificaRegistro()

Dim criterio As String

If Not IsNull(transportadora) And Not IsNull(dtmanifesto) Then

If IsNull(idmanifesto) Then
idmanifesto = DMax("idmanifesto", "tblmanifesto") + 1
End If

'Aqui montamos o critério de verificação:
'Para campos do tipo texto colocamos entre aspas simples;
'Para campos do tipo data colocamos no formato #mm/dd/yyyy#;
'Para campos do tipo número colocamos de maneira simples.
criterio = "transportadora=" & transportadora & " And dtmanifesto=#" & Format(dtmanifesto, "mm/dd/yyyy") & "#"

'Caso retorne algum registro com o critério especificado
'significa que já existe um registro idêntico.
If DCount("idmanifesto", "tblmanifesto", criterio) > 0 Then

If MsgBox("Já existe um manifesto para essa transportadora nesta data!" & vbCrLf & "Deseja cancelar o preenchimento?", _
vbQuestion + vbYesNo, "Verificação de registro") = vbYes Then


transportadora = Null
dtmanifesto = Null


End If

End If

End If

End Sub

Aqui no Fórum tem vários exemplos. Pesquise, por favor.

Olhe aqui, por exemplo:

https://www.maximoaccess.com/t420-resolvido-exclusao-excluir-duplicidade-impedir-dados-duplicados

Resolveu????

bom dia vieira, nao consegui implementar no codigo que postei, pois gostaria que o mesmo buscasse os dados pela transportadora e pela data.

Boa tarde, meu amigo. Há qualquer coisa que não nos estamos a entender. Vamos clarificar:

1- Você quer impedir que um mesmo registo seja criado na base de Dados em duplicado?

ou

2- Você quer criar uma consulta e pesquisar por dois campos um registo?

Se for a primeira opção a que pretende, é assim:

Private Sub NomedoCampo_BeforeUpdate(Cancel As Integer)
On Error Resume Next
Dim strMsg As String, strTitle As String, intStyle As Integer
   strMsg = "Este item já está cadastrado no sistema..." & esteitem.Value
   strTitle = "Atenção"
   intStyle = vbInformation
   If (Not IsNull(DLookup("[esteitem]", "tbldositens", _
   "[esteitem] ='" & Me!esteitem & "'"))) Then
   MsgBox strMsg, intStyle, strTitle
   Cancel = True
End If
End Sub

Se for a segunda opção a que lhe interessa,  a mais simples é fazer uma consulta e nos campos a filtrar Digitar:

[Digite a Data:]  [Digite esteitem:]