[Resolvido]pesquisar duplicata

On Error GoTo TrataErro
Dim db As DAO.Database
Dim RS As DAO.Recordset
Dim dup
dup = Dupl
' Testa se o nome já existe na tabela
If IsNull(DLookup("Duplicata", "duplicatas", "([Duplicata] = '" & Dupl & "')")) Then
GoTo SAIDA
End If
' Dá opção de alterar dados
If MsgBox("A Duplicata Informada " & UCase(Me.Dupl) & " já está cadastro, Deseja visualizá-lo?", vbExclamation + vbYesNo, "Duplicação...") = vbNo Then
' DoCmd.RunCommand acCmdUndo
' me.empregado.SetFocus
'Cancel = True
GoTo SAIDA
End If
'Abre o registro já existente
Set RS = Me.RecordsetClone
RS.FindFirst "duplicata = '" & dup & "'"
Me.Undo
Me.Bookmark = RS.Bookmark
Set RS = Nothing
SAIDA:
Exit Sub
TrataErro:
'MsgBox "NF - PNF_BeforeUpdate" & vbCrLf & Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If desenv Then
Stop
Resume
#End If
Resume SAIDA
Me.Caption = "Fornecedor.:" & [Historico] & " - Numero da Dupicata.: " & [Dupl] & ""

End Sub

uso essa funcao pra buscar nota fiscal ja lancada mas com duplicatas nao ta buscando
o formanto na tabela fica assim 123456-1

Olá Nadir

o formanto na tabela fica assim 123456-1

Este formato está gravado mesmo na tabela ou só é exibido no formulário
O número 1 é um número verificador, ele teria relevância na pesquisa?
Se não, poderá usar somente a primeira parte (123456) para pesquisar.
Ou ainda, pode ser que o campo não esteja nulo na tabela.
Experimente trocar a linha:

Código:


If IsNull(DLookup("Duplicata", "duplicatas", "([Duplicata] = '" & Dupl & "')")) Then

Para:
If Dcount("*", "duplicatas", "[Duplicata] = '" & Dupl & "'") = 0 then


Abraços

nao funcionou a tabela no formato do campo eu coloquei assim 000000-0
e eu tenho vamos falar 3 duplicatas da mesma nota
123456-1
123456-2
123456-3

e eu tenho o campo dupl onde eu jogo o numero da duplicata e onde ta esse codigo ai emcima

Veja se os nomes da tabela e campos estão corretos, eu mesmo me confundo ao enviar o exemplo.

Editando:

Se são notas promissórias de uma mesma nota fiscal e eu não tendo idéia da tua pretensão,
pergunto
Porque não faz um formulário principal para as notas fiscais com um subformlário já mostrando as duplicatas relacionadas a essa notas?

Abraços