استبدال كود حذف سجل بكود تفريغ للحقول

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

DoCmd.SetWarnings off
  If Me.ysno.Value = True Then
  DoCmd.RunSQL "UPDATE [ميزانية] SET [مبلغ] = null"
  DoCmd.RunSQL "UPDATE [ميزانية] SET [مستندات] = null"
  DoCmd.RunSQL "UPDATE [ميزانية] SET [بند] = null"
  DoCmd.RunSQL "UPDATE [ميزانية] SET [تفاصيل] = null"
  DoCmd.RunSQL "UPDATE [ميزانية] SET [تاريخ] = null"
  DoCmd.RunSQL "UPDATE ميزانيةSET ميزانية.ysno = false"

  Else
  Me.ysno.Value = False
  Stop
  End If

End Sub

لانه يمسح الحقول المحدة و غير المحددة حيث ان ysno هو مربع checkbox

السلام عليكم ورحمة الله وبركاته

أخي أو أختي الكرام

قم بعمل استعلام جديد من نوع "استعلام تحديث" Update واختر الحقول المراد تحديثها أي تغييرها

الآن قم بإضافة الحقل ysno واذهب الى المعايير Criteria واكتب القيمة True وأما في باقي الحقول فاكتب القيمة Null في مكان التحديث الجديد "Update To" كما هو مبين في الصورة

يبقى الآن معلومة صغيرة ولكنها مهمة للغاية يجب أن تحدث الحقل YsNo الى False وذلك بكتابة كلمة False في مكان التحديث الجديد

احفظ هذا الاستعلام وقم بتشغيله (طبعاً هو لن يقوم بتحديث إلا البيانات التي قمت بالتأشير عليها في حقل الخيار YsNo )

بعد التأكد من أن الاستعلام يتم بشكل صحيح يمكنك الذهاب إلى تصميم الاستعلام مرة أخرى ثم في شاشة العرض View اختر SQL

ستلاحظ صيغة التحديث الصحيحة التي يجب وضعها في التعليمات البرمجية والتي استفسرت عنها في مشاركتك

أرجو أن أكون قد وفقت بالشرح

وسلامي لك وللجميع

إياد بيك كتب:

السلام عليكم ورحمة الله وبركاته

أخي أو أختي الكرام

قم بعمل استعلام جديد من نوع "استعلام تحديث" Update واختر الحقول المراد تحديثها أي تغييرها

الآن قم بإضافة الحقل ysno واذهب الى المعايير Criteria واكتب القيمة True وأما في باقي الحقول فاكتب القيمة Null في مكان التحديث الجديد "Update To" كما هو مبين في الصورة

يبقى الآن معلومة صغيرة ولكنها مهمة للغاية يجب أن تحدث الحقل YsNo الى False وذلك بكتابة كلمة False في مكان التحديث الجديد

احفظ هذا الاستعلام وقم بتشغيله (طبعاً هو لن يقوم بتحديث إلا البيانات التي قمت بالتأشير عليها في حقل الخيار YsNo )

بعد التأكد من أن الاستعلام يتم بشكل صحيح يمكنك الذهاب إلى تصميم الاستعلام مرة أخرى ثم في شاشة العرض View اختر SQL

ستلاحظ صيغة التحديث الصحيحة التي يجب وضعها في التعليمات البرمجية والتي استفسرت عنها في مشاركتك

أرجو أن أكون قد وفقت بالشرح

وسلامي لك وللجميع

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

اخيكم نجوم الكون

من وجهة نظرى الأفضل هو فصل المخصص فى جدول اخر

ستجد بالمرفق تطبيق سريع لذلك

تم تقسيم جدول الميزانية الى جدولين MEZANIA و MOKHASAS

و تم اضافة نموذج SARD للتطبيق

بالتوفيق

1ميزانية.rar

ممتاز جدا اخي اياد بيك وفقك الله لمايحبه و يرضاه

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

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

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

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

مثلا نموذج التدريب الفرعي اضفت عامل تصفية وهو بجمع المخصص فقط الذي يكون البند فيه يساوي تدريب لكن عندما تكون قيمة البند Null تختفي المربعات :huh:

بصراحة مرت عليه برامج خيارات كثيرة و واجهت بعض المشاكل

لكن هذا بالرغم من بساطته ماشفت اصعب منه :wacko:

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

new.zip

Abo_Yossof كتب:

من وجهة نظرى الأفضل هو فصل المخصص فى جدول اخر

ستجد بالمرفق تطبيق سريع لذلك

تم تقسيم جدول الميزانية الى جدولين MEZANIA و MOKHASAS

و تم اضافة نموذج SARD للتطبيق

بالتوفيق

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

وفقكم الله اخواني

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

اشكركم جميعا من اعماق قلبي والله انكم خير معين بعد الله سبحانه :blush:

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

Dim sespc As Integer
Me.Filter = True
If Me.Filter = Me.بند = التدريب Then
Me.sespc = DSum("[مبلغ]", "MEZANIA")
Else
Me.sespc = 0
End If
End Sub

اخى

ضع الملف بعد التعديل

لتوضيح ما تريده لعمل المطلوب

ملحوظة (يقضل أخى ان تستخدم الاحرف الانجليزية فى التسمية بدلا من العربية لأن ذلك سيسهل عليك فى كتابة الاكواد )

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

ميزانية11.zip

للتوضيح اريد فرز المبالغ لكل بند في النماذج الفرعية حتى تكون ناتج العملية صحيح

مثال بند التدريب مخصص 3000 اريد مجموع فقط المبالغ الخاصة به و يكون الناتج في خانة مصروف وفي خانة متبقي يكون المخصص منقوصا منه مجموع المبالغ المصروفه للبند و ليس كل البنود

وسبب هذا كله انه عند استخدام عامل تصفيه في نموذج فرعي تختفي المربعات الملف مرفق بالرد الاعلى :mellow: