ظهور رسالة خطأ في كود الحذف عند عدم وجود بيانات في النموذج

za-Inventory System-LAST.rar

بالتوفيق

شكرا لكي اختي زهرة

بس يا ريت يا اختي لو تطولي بالك علي شوي

جيت اطبق الكود على النموذج الثاني ما عرفت لاني ما عرفت شو عدلتي وضفتي بالكود

اقصد النموذج الي اسمه purchase Form

فيه زر حذف بس ما عرفت اطبق يا ريت لو تشرحيلي كيف الطريقة وشو تعدل عليه

اسف على الاطالة اختي

اخي الفاضل

لا يوجد اي صعوبة في الكود كل ما قمنا به هو استبدال الكود القديم الخاص بك بالكود الجديد

لاحظ معي سوف نطبق هذا الكلام على النموذج Purchase Form

هذا الكود القديم الخاص بك

Private Sub Command16_Click()
If MsgBox(" هل تريد حذف الفاتورة الحالية ", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then
   Exit Sub
   Else
   DoCmd.SetWarnings False
   DoCmd.RunCommand acCmdDeleteRecord
   Refresh
   DoCmd.SetWarnings True
   End If
End Sub

سوف نستبدله بهذا الكود الجديد

Private Sub Command16_Click()
On Error GoTo Err_Command16_Click
If MsgBox(" هل تريد حذف الفاتورة الحالية ", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then
   Exit Sub
   Else
   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
   DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
   End If
Exit_Command16_Click:
    Exit Sub
Err_Command16_Click:
    MsgBox Err.Description
    Resume Exit_Command16_Click
End Sub

وهكذا بقية اوامر الحذف التي تريدها في النماذج

za-Inventory System-LAST2.rar

بالتوفيق

[شكرا اختي زهرة

اختي بعد التعديل صادفتني مشكلة اخرى وهي انه عند الموافقة على حذف فاتورة تظهر سالة من الاكسس انه انت تقوم بحذف سجل لم تكن تظهر من قبل

اختي ااااااااااااااسف على الازعاج بس والله اكتشفت انه الجامعة ما علمتنا شي

المشكلة مرفقة بالصورة

Ahmad.Faisal.Khresha كتب:

[شكرا اختي زهرة

اختي بعد التعديل صادفتني مشكلة اخرى وهي انه عند الموافقة على حذف فاتورة تظهر سالة من الاكسس انه انت تقوم بحذف سجل لم تكن تظهر من قبل

اختي ااااااااااااااسف على الازعاج بس والله اكتشفت انه الجامعة ما علمتنا شي

المشكلة مرفقة بالصورة

بعد هذه الخطوات اغلق قاعدة البيانات واعد تشغيلها ثم قم بحذف ما تريد فلن تظهر لك الرسالة

بالتوفيق