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

**ازهر عبد العزيز** · مايو 6, 2020

السلام عليكم لدي نموذج يحتوي على مربع نص عدد 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