تفضل اخي الفاضل
On Error Resume Next
'''''''''''''''''''''''
Me.txt1 = DLookup("[BARCODEحقل]", "TABOL1 جدول", "[BARCODEحقل]='" & Me.SERH حقل البحث & "'")
''''''''''''''''''
If Len(Me.TXT1 & "") = 0 Then
MsgBox "هذا الباركود غير مسجل"
Undo
Exit Sub
End If
انشأ مربع نص غير منضم وسميه TXT1
ضع هذا الكود حذث بعد التحديث في مربع النص الذي تسميه الصندوك الذي تبحث فيه وهتسميه SERH