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
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