في حدث "عند الخطأ" في النموذج وضعت هذا الكود
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 0 Then
Response = False
End If
Response = True
End Sub
سالة الاكسس وقفت
بس هل الكود صحيح البناء و لا لاء لا اعرف
شكرا اخي العزيز و معلمي الكريم
لقد حاولت تنفيذ ما قرأتة و لكن لم استطع حل المشكله للاسف و لكن قمت ببعض التغييرات علي الملف و لكن ليس لها علاقة بالموضوع و هذا هو الملف الجديد و ارجو المساعده
Database4.rar
اسف لقد غيرت اسم النموذج الي frmDa2wa