فكرة حلوة وهذه فكرة أخرى وبشكل تاني لعدم تكرار نفس القيمة ونفس التاريخ .  
نفرض أنه لدينا حقل اسمه 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
 
نرجو ممن يجرب أحدى الطريقتين أو كلاهما بأن يخبرنا بالنتيجة .  
أشرف خليل