Ola Pessoal
coloquei esse código no meu cadastro de fornecedor exemplo
quando digito um nome de fornecedor que tem na tabela ele acha ok , mas esta substituindo pelo que cadastro
exemplo ele acho marcio silveira e digito ricardo ele substitui o marcio
acho que fui claro
Dim Fornecedor As Variant
Fornecedor = DLookup("Fornecedor", "Tbl_Fornecedor", "txtFornecedor ='" & Me!txtFornecedor & "'")
Me.RecordsetClone.FindFirst "Fornecedor = '" & Me!Fornecedor & "'"
If Not Me.RecordsetClone.NoMatch Then
MsgBox ("Fornecedor já está Cadastrado:" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & txtFornecedor), vbInformation, "Atenção"
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.Bookmark = Me.RecordsetClone.Bookmark
end if
end sub
coloquei esse código no meu cadastro de fornecedor exemplo
quando digito um nome de fornecedor que tem na tabela ele acha ok , mas esta substituindo pelo que cadastro
exemplo ele acho marcio silveira e digito ricardo ele substitui o marcio
acho que fui claro
Dim Fornecedor As Variant
Fornecedor = DLookup("Fornecedor", "Tbl_Fornecedor", "txtFornecedor ='" & Me!txtFornecedor & "'")
Me.RecordsetClone.FindFirst "Fornecedor = '" & Me!Fornecedor & "'"
If Not Me.RecordsetClone.NoMatch Then
MsgBox ("Fornecedor já está Cadastrado:" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & txtFornecedor), vbInformation, "Atenção"
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.Bookmark = Me.RecordsetClone.Bookmark
end if
end sub