عندما أخذف جميع السجلات لا أستطيع الإضافة

طبعا هذا الكود هو الي يعرفك بوصولك الى اخر سجل

If Data1.Recordset.EOF Then MsgBox "وصل لاخر السجل"

وهذا الكود للوصول الى اول سجل

If Data1.Recordset.BOF  Then MsgBox "وصل لاول سجل"

وبعدين في طريقة اخرى ان تتجاهل الخطاء والذي اظن ان رقمه 91

يعني ضع في اول الكود

On Error GoTo er

وضع في اخر الكود

Exit Sub

er:

    If Err.Number= 91 Then Exit Sub

وبذلك سيتجاهل هذا الخطاء الذي يظهر عند الوصول لاخر او اول سجل

ياأخ محمد شكرا لك على الرد ، ولكن هذه الأكواد لاأجهلها ، وهذه المشكلة أول مرة تحصل معي ، ورقم الخطأ ليس 91 وإنما بالآلاف .

لقد جربت إضافة سجل في form جديد ونجحت الإضافة ، ولكنه لايضيف

في الفورم الحالي ، يبدو أن هناك مشكلة في هذا الورم الذي يحتوي على عدة عمليات من فرز واستفسار وغيرها على نفس القاعدة.

أنا أريد أمر يجعل القاعدة data1 أكثر مرونة وتقبل للاضافة .

خلاص حليت المشكلة ، السبب هو وضع قيم صفرية في بعض الحقول قبل الإضافة .

وشكرا ،،