فكرة حلوة وهذه فكرة أخرى وبشكل تاني لعدم تكرار نفس القيمة ونفس التاريخ .
نفرض أنه لدينا حقل اسمه hanaki_snd وحقل التاريخ date . ضع الكود التالى فى حدث عند الخطأ للنموذج .
Select Case DataErr
Case 3022
MsgBox "أنت تحاول إدخال سند قد تم ادخاله بالفعل ... !!", vbExclamation, "تنبيه"
hanaki_snd = Null
hanaki_snd.SetFocus
Case 3058
MsgBox "لا يمكنك ترك حقل ( إشعار الحناكي ) فارغاً .. يجب ادخال قيمة له ...", vbExclamation, "تنبيه"
hanaki_snd.SetFocus
Case Else
MsgBox DataErr & AccessError(DataErr), vbExclamation
End Select
Response = acDataErrContinue
نرجو ممن يجرب أحدى الطريقتين أو كلاهما بأن يخبرنا بالنتيجة .
أشرف خليل