تنبيه عند تشغيل البرنامج بالمعاملات غير المسددة

[ابو سفاري]

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

اي باختصار بمجرد ما يعمل البرنامج يقوم البحث عن المعاملات الت لا يوجد امامها علامة صح واذا وجد ها يخرج قائمة باسماء هذه المعاملات ... وشكر لكم .

[سهل احمد العريشي]

بسم الله الرحمن الرحيم

أخي العزيز أرجو أرفاق مثالك حتى نتمكن من التعديل عليه حسب طلبك

وبأمكانك أن تقوم بعمل ماكرو وتضع به شرط اختبار لعدد سجلات استعلام

(الذي سيتضمن السجلات التي قيمة حقل المعاملات فيها هو False) فإذا كان أكبر من صفر يقوم بتشغيل نموذج معين

للأخ مهند عبادي

أخيك سهل أحمد ( ابو نعيم )

[امير عاطف]

وبأمكانك أن تقوم بعمل ماكرو وتضع به شرط اختبار لعدد سجلات استعلام

(الذي سيتضمن السجلات التي قيمة حقل المعاملات فيها هو False) فإذا كان أكبر من صفر يقوم بتشغيل نموذج معين

بحيث يكون مصدر سجل هذا النموذج استعلام به جدول المعاملات بحيث سكون به شرط false عند خانة التسديد

[سهل احمد العريشي]

بسم الله الرحمن الرحيم

مشكور أخي أمير على المتابعة والتوضيح الله يوفقك ياليت الكل يحذو حذوك في المتابعة وشكرا لك أخي العزيز وخليك عندنا هنا وبلاش تفارقنا

أخيك سهل أحمد ( ابو نعيم )

[ابو سفاري]

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

[الدكتور خضر الرجبي]

السلام عليكم

أخي أبا سفاري ، أود أن أقدم لك هذا الحل أملا أن يحقق المطلوب.

الشرح :

عندما يكون هناك نموذج نريد أن نعرض فيه السجلات (في مثالك معاملات) مفروزة ( أي عرض جزء منها) حسب حقل معين (في مثالك مسدد) فإننا نقوم بتصميم زر أمر ذو حالة متبدلة كلما نضغط عليه يغير طريقة الفرز وبالتالي يعرض مجموعة سجلات ( معاملات) مختلفة.

وقد قمت بعمل مثال لمجموعة من المعاملات المسددة وغير المسددة والمثال يعمل كما يلي :

• عند فتح النموذج ( أنت أسميته البرنامج) يتم عرض المعاملات غير المسددة.
• عند الضغط على زر التبديل ( بين المعاملات المسددة أو المعاملات غير المسددة) يتم عرض المعاملات المسددة وإذا ضغطنا عليه مرة أخرى يعرض الغير مسددة وهكذا ... هذا ما قصدته بالحالة المتبدلة.

طريقة الحل :

يجب عمل شيئين أثنين وهما:

1. حدث عند الفتح للنموذج كما يلي :

Private Sub Form_Open(Cancel As Integer)
Me.Filter = "paid = False"
Me.FilterOn = True
End Sub

ونلاحظ هنا أن paid هو حقل المسدد ونوعه نعم أو لا 2. حدث عند النقر لزر الحالة المتبدلة أو الفرز وأسميته CMDFILTER

Private Sub CMDFILTER_Click()
If Me.CMDFILTER.Caption = "المعاملات المسددة" Then

 Me.Filter = "paid = true"
 Me.CMDFILTER.Caption = "المعاملات غير المسددة"
Else
 Me.Filter = "paid = false"
 Me.CMDFILTER.Caption = "المعاملات المسددة"
End If

End Sub

ونلاحظ هنا أننا نقوم بتغيير الفرز وكذلك عنوان الزر

ما هو المطلوب منك لإتمام الحل:

• دراسة المثال المرفق.
• بناء زر الامر وجعل عنوانه (المعاملات المسددة) واسمه CMDFILTER
• نسخ الكود من المثال إلى نموذجك وتغيير اسم الحقل paid إلى الاسم الذي استخدمته أنت في نموذجك.

مع الاحترام

KR_Officena_2.rar