ارجو المساعدة حيث استخدم الكود التالى ولكن لا يعمل عند التعديل على الحقل هل يمكن تعديل لكى ينبه المستخدم بالخطأ مع امكانية قبول او رفض الرقم المدخل
Private Sub Form_Current()
If Me.adadno.Value <> DLookup("[A]", "[Database]", "[crn] ='" & [Forms]![Database1]![crn] & "'") Then
Beep
If MsgBox("إنــتــبــه ...... يوجد خطأ ....... هل تريد إضافة القيمة؟", _
vbQuestion + vbYesNo, _
"تننبيه") = vbYes Then
Exit Sub
Else
Undo
Exit Sub
End If
End Sub