السلام عليكم ورحمة الله وبركاتة
كل عام وحضراتكم بخير واللهم بلغنا رمضان لا فاقدين ولا مفقودين امين يارب العالمين
عندى قاعدة بيانات وللاسف مش هعرف ارفقها لحضراتكم لاحتوائها على بيانات كثيرة جدا ولكن هوصل لحضراتكم المطلوب ان شاء الله
زر بنموذج به كود حذف كافة السجلات بجدول الفواتير وجدول الحركات والكود هو
Dim SQ1 As String
Dim SQ2 As String
Sq1 = "DELETE tblHaraka.* FROM tblHaraka;"
SQ2 = "DELETE tblFatora.* FROM tblFatora;"
If MsgBox("هل تريد حذف كافة السجلات", vbYesNo + vbCritical + vbDefaultButton1 + 1572864, Compan) = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (Sq1)
DoCmd.RunSQL (SQ2)
DoCmd.SetWarnings (warningson)
Me.Requery
MsgBox "تم حذف كافة السجلات"
Else
MsgBox "تم الغاء العملية الحذف"
End If
المطلوب هو لو فيه سجل الجدول الاول ( فاتورة ) ورقمة مثلا 1001 وله سجل فرعى مرتبط به بالجدول ( الحركة ) عاوز استثنى السجل دة من الحذف بالكود اللى ذكرت بالاعلى فهل من طريقة لفعل ذلك