المساعدة في حذف مربع صف

[ازهر عبد العزيز]

السلام عليكم لدي نموذج يحتوي على مربع نص عدد 2 الاول اسمة b1 والثاني اسمة  b2 ويوجد تحت زر بعد التحديث لمربع النص p1  الكود في الاسفل  .....وهو عند الادخال في مربع النص p1  يقوم بالتاكد من وجود هذا الرقم في السجلان في جدول at وواذا لم تكن موجودة يظهر رسالة خطا  انا بحاجة لتخلص من مربع النص الثاني مع ابقاء عملية التحقق

On Error Resume Next
'''''''''''''''''''''''
Me.p2 = DLookup("[serial number]", "at", "[serial number]='" & Me.p1 & "'")
''''''''''''''''''
If Len(Me.p2 & "") = 0 Then
MsgBox "error"
Undo
Exit Sub
End If

 

New Microsoft Access Database.accdb

[essam rabea]

أ.ازهر عبد العزيز

أرجو ان اكون وفقت فى فهم السؤال

جرب ووافنى بالنتيجة

 

New Microsoft Access Database.accdb

[ازهر عبد العزيز]

الاستاذ المبدع  @essam rabea