moho58

4 ساعات مضت, شايب said:

لا لا اكمل باقي الرد

الفكرة انه يمكن تنفيذ عدة امور واختصار بعض الاجراءات

مثلا بدلا من الحقل المحسوب نستفيد من حدث بعد التحديث لتنفيذ عدة عمليات

الحصول على ترقيم بالكود غير قابل للتكرار

الحصول رمز الكتاب بنفس الطريقة بدون الحاجة الى حقل محسوب في الجدول

امكانية  تعديل رمز الكتاب وفقا لطلبك

مع ذلك ننتظر رأي الاساتذة ربما لديهم افكار افضل

فإنْ يكُ صدرُ هذا اليوم ولّى .. فإنّ غدًا لناظِرِه قريبُ

 

أخونا @شايب ربما لمستواي المحدود في الأكسيس لم افهم ما ذكرته من قبل

أنا أريد في نموذج رمز الكتب : عند تغيير حقل "الرمز "

يتغير حقل " رمز الكتاب" في جميع السجلات الموجودة في الموذج kitab وبما أنه حقل محسوب لا يمكن تعديله فهل يمكن تغيير حقل"الرمز" في النموذج kitab

للوصول لنفس النتيجة

- أما فيما يخص حقل "الرقم " فتعمت جعله عبارة عن رقم وليس ترقيم تلقائي بناء على حاجتي اليه هكذا

وإن أمكن تضع لنا المرفق الذي وضعته في الشرح

وبارك الله فيك

2 ساعات مضت, شايب said:

مصدر سجلات النموذج كتاب هو جدول كتاب وهذا ما يقوم به الكود

وهو يقوم بتغير اي رمز من ت الى ت-خ

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

ولكن لابد من الانتباه لنقطة مهمة

رمز الكتاب مصدره حقل محسوب ياخذ قيمته من خلال حقل الرمز وحقل الرقم

[الرمز] & "" & [الرقم

وهذ النوع من الحقول لايتم التعديل عليه وانما يتم التعديل على مصدره

وهذا ماعملته في الكود اعلاه وللتوضيح اكثر لنتمكن من تعديل الحقل رمز الكتاب لابد من تعديل مصدره لكونه حقل محسوب

وهو متوافق مع ما اشار اليه الاستاذ محمد في الصورة المرفقة

سواء كان التعديل بالكود او بالاستعلام

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

الشايب

مشكور الأخ  @شايب على التوضيح بم أن الحقل محسوب ولا يمكن التعديل

ممكن التعديل على حقل " الرمز" وهو غير محسوب في جدول كتاب

وبارك الله فيك

9 ساعات مضت, شايب said:

مشاركة مع الاستاذ خليفة

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

الملف مرفق

اخونا شايب

 

gestion(1).accdb 864 kB · 10 downloads

الأخ @شايب بعد تجربة الكود مطولا شغال وبامتياز واكثر من رائع

هذا المطلوب بالتدقيق وبالتفصيل

يعني لا تكفي الكلمات لشكرك - ان شاء الله أجرك تجده عند الله وصدقة جارية عن كل من يستعمله

- كما أشكر كذلك الأستاذ @kkhalifa1960على المحاولات وعلى الصبر معي

- ورربي يبارك في هذا المنتدى الرائع

10 ساعات مضت, شايب said:

مشلركة مع الاساتذة يمكن كما اشار الاساتذة باستعلام تحديث

ويمكن بكود يتعامل مع مصدر السجلات

Dim rs As DAO.Recordset
Dim a As Integer
Set rs = CurrentDb.OpenRecordset("كتاب")
For a = 0 To rs.RecordCount - 1
rs.Edit
If rs!الرمز = "ت" Then
rs!الرمز = rs!الرمز & " - خ "
End If
rs.Update
rs.MoveNext
Next a
rs.Close
Set rs = Nothing
Me.Refresh

الملف مرفق

اخونا الشايب

 

basep.accdb 512 kB · 6 downloads

أستاذ @شايب جربت لكن لم أفهم

اريد تغيير رمز الكتاب في النموذج : رمز الكتاب

فتــــتــــغير في جميع سجلات النموذج kitab

هل الكود الذي وضعته لي خاص بتغيير حرف واحد فقط؟؟ 

أم كيف يعمل

- وإن أمكن تجربة طريقة الاستعلام على برنامجي

الرجاء الافادة وربي يجازيك خير الجزاء

23 ساعات مضت, kkhalifa1960 said:

تفضل استاذ @moho58 محاواتي بعد التعديل . ووافني بالرد .

-اذا كان هذ طلبك لا تنسى الضغط على أفضل اجابة .

gestion (2).rar 70.07 kB · 6 downloads

الأستاذ @kkhalifa1960   مرة أخرى بارك الله فيك على كل شئ وعلى كل ما تقدمه في هذا المنتدى من اجل مساعدة الناس - جعلها الله في ميزان حساناتك ورزقك من حبث لا تحتسب

بعد التجربة أخي لا حظت مايلي:

في حالة إضاغة درجة جديدة ولتكن مثلا مساعد معلم  وإضافة موظف جديد بها وهو عادل وعند تحديدها هذه الدرجة من مربع القائمة

التقرير يقوم بعرض جميع الدرجات والأسماء كما في الصورة 1 - هذه هي الاشكالية فقط -

مرة أخرى ألف شكر وتقدير

منذ ساعه, kkhalifa1960 said:

تفضل استاذ @moho58 محاواتي بعد التعديل . ووافني بالرد .

-اذا كان هذ طلبك لا تنسى الضغط على أفضل اجابة .

gestion (2).rar 70.07 kB · 1 download

مشكور أخي  وربي يجازيك

جاري التجريب

2 ساعات مضت, Foksh said:

نيابة عن الأخ @Hamtoooo ،

اخي الكريم @moho58 في أي جدول تريد التغيير أن يتم ؟ وليس في أي نموذج 

مشكور أخي و بارك الله فيك

اريد أن يكون  التغيير في جدول كتاب

واليك المرفق للتعديل

basep.accdb

2 ساعات مضت, Hamtoooo said:

شوف المرفق طبقه في برنامجك نفس الفكرة

 

أخي ممكن تعدل على برنامجي

وبارك الله فيك

6 ساعات مضت, moho58 said:

السلام عليكم

الإخوة الأفاضل في هذا المنتدى الجميل

أريد في هذا الموضوع تحديث بيانات حقل في جدول  لتشمل جميع الحقول في جدول ثاني

مثال:

في النموذج : رمز الكتب

رمز الكتاب: ت    تخصص الكتاب: تاريخ

هنا اريد تغيير رمز الكتاب من : ت   إلى  ت- خ

فتــــتــــغير في جميع سجلات النموذج kitab

يعني أين موجود الرمز : ت يصبح ت-خ في جميع سجلات النموذج kitab

 

 وبارك الله فيكم وربي يجازيكم خير الجزاء

28 دقائق مضت, Hamtoooo said:

انشأ نموذج بسيط فيه حقلين 
حقل يكون فيه اسم الرمز الحالي 
حقل يكون فيه اسم الرمز الجديد 

واضف زر عند الضغط عليه يشغل استعلام تحديث 
واضف المعايير بناء على النموذج المفتوح الان

بسوي لك مثال ..

مشكور أخي على الرد والمتابعة

والله نسيت البارحة  رفع المثال الخاص بي

وإليك المرفق

basep.accdb

السلام عليكم

الإخوة الأفاضل في هذا المنتدى الجميل

أريد في هذا الموضوع تحديث بيانات حقل في جدول  لتشمل جميع الحقول في جدول ثاني

مثال:

في النموذج : رمز الكتب

رمز الكتاب: ت    تخصص الكتاب: تاريخ

هنا اريد تغيير رمز الكتاب من : ت   إلى  ت- خ

فتــــتــــغير في جميع سجلات النموذج kitab

يعني أين موجود الرمز : ت يصبح ت-خ في جميع سجلات النموذج kitab

 وبارك الله فيكم وربي يجازيكم خير الجزاء

في 15‏/12‏/2023 at 23:06, kkhalifa1960 said:

تفضل استاذ @moho58 محاواتي ووافني بالرد .

-اذا كان هذ طلبك لا تنسى الضغط على أفضل اجابة .

gestion (1).rar 59.34 kB · 7 downloads

الأستاذ الطيب @kkhalifa1960 لظروف...  و على غير العادة تأخرت في الرد

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

مرة أخرى .. كباقي المرات ربما لا أجيد الشرح و ربما ستصبح عندي عقدة

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

مثال: عند اختيار متعدد من مربع القائمة : أستاذ + معلم

يظهر في التقرير(محموع الساعات)  مايلي:

عبد الله  6

عبد الله 2

أريد أن يظهر في التقرير : : عبد الله 8

نفس الشئ لبقية الأسماء .

أما في حالة إختيار واحد فيعطيني النتيجة صحيحة وبدون مشاكل: أي أذا أخترت (أستاذ) من القائمة - عند عرض التقرير تكون النتيجة صحيحة وكذلك عند اختيار (مفتش) من القائمة عند عرض التقرير تكون النتيجة صحيحة

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

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

الأخ @kkhalifa1960 بعد تجربة محاولتك لا حظت أنه دائما يعطينا المجموع 8 في

عند اختيار الدرجة أستاذ من القائمة نلاحظ يعطيك مثل ما هو في موضح في الصورة 3 ومن المفروض يكون كمايلي:

عبد الله 2

عبد المطلب 6

عبد المنعم 2

** الخلاصة :في موضوعي هذا  عند  اختيار واحد من القائمة الكود شغال جيد - اريد أن أعدل عليه ليصبح شغال في حالة اختيار متعدد**

كما اريد في التقرير أن يظهر في مربع النص c  ما يتم اختياره من النموذج من مربع القائمة lst_XX  هكذا : ( استاذ - مفتش)

وبارك الله فيك الأستاذ خليفة وربي يجازيك خير  الجزاء

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

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

في هذا الموضوع أريد ما يلي:

عند الاختيار المتعدد من مربع القائمة من النموذج

 أريد في التقرير الموضح في الصورة 2 جمع عدد ساعات العمل الاجمالية :

في التقرير يعرض مايلي:

عبد الله  المجموع 6

عبد الله المجموع 2

* و أنا اريد أن يظهر  ما يلي : عبد الله 8

نفس الشئ بالنسبة لبقية الأسماء

الإخوة الأفاضل سبق لي وأن طرحت موضوع يشبه بعض الشئ هذا الموضوع الشكل متعلق بحساب تعداد الذكور والاناث  والكود الرائع لأخونا @شايب

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

* كما اريد في هذا  التقرير أن يظهر في مربع النص c  ما يتم اختياره من النموذج من مربع القائمة lst_XX  هكذا : ( استاذ - مفتش)

لقد حاولت لكن ، في هذا الموضوع المثال مختلف ولم استطع  عمل نفس الطريقة التي عملها أخونا @شايبفي موضوع حساب عدد الذكور والانات في تقرير

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

gestion.accdb

57 دقائق مضت, شايب said:

الشكر لله استاذنا

ايضا ممكن نستخدم الامر التالي للوصول للنتيجة

Dim x As String
Dim i As Integer
For i = 0 To lst_XX.ListCount - 1
If lst_XX.Selected(i) = True Then
x = x & " - " & lst_XX.Column(0, i)
End If
Next i
x = Mid(x, 4)
DoCmd.OpenReport "rap_1", acViewPreview, , , , x

الشايب

مشكور الأخ @شايب  عمل أكثر من  رائع  و ممتاز جدا جدا جدا

هذا هو المطلوب أخي

بارك الله فيك وجعلها الله في ميزان حساناتك ورزقك من حسث لا تحتسب

منذ ساعه, Foksh said:

لعدم توافر جهاز كمبيوتر في الوقت الحالي ، جرب هذا الكود

Private Sub lst_XX_AfterUpdate()
    Dim selectedItems As String
    
    For Each selectedItem In Me.lst_XX.ItemsSelected
        selectedItems = selectedItems & " - " & Me.lst_XX.Column(0, selectedItem)
    Next selectedItem
    
    Me.rap_1.Report.c1.Value = Mid(selectedItems, 4)
End Sub

 

مشكور أخي الكريم على الرد والمتابعة

لكن تظهر رسالة كما في الصورة

السلام عليكم الاخوة الأفاضل في هذا المنتدى الجميل

في هذا المثال البسيط جدا أريد طريقة :

لإظهار ما يتم اختياره من مربع القائمة lst_XX  في النموذج form

في مربع النص c1 في التقرير rap-1

مثال

عندما أختار من النموذج :

الاختيار1

الاختيار2

يظهر في التقرير وفي مربع النص c1 ما يلي: 

  الاختيار1 - الاختيار2

أنا اريد هذه الطريقة فقط لجعله كعنوان فقط في التقرير

لأني سبق لي وطرحت موضوعين لعمل الاحصائيات وآخره منذ أيام  و الحمد لله بالتفاعل مع الموضوع تم التوصل للحل وتم اعتماد الكود الرائع للأخ:  الشايب

لذا أنا أريد فقط طريقة لجعله كعنوان في التقرير

حاولت وبحت  لكن لم أجد حل

الرجاء المساعدة والتوجيه وبارك الله فيكم.

base_1.accdb

أستاذنا الكبير @ابوخليل

الأستاذ @kkhalifa1960

الأستاذ @شايب      

أشكركم جميعا  على التفاعل والمشاركة والصبر معي

ربي يجازيكم خير الجزاء وجعلها الله في ميزان حساناتكم

مرة أخرى أجدد الشكر والتقدير للمشرفين على هذا المنتدى الجميل الذي تعلمنا فيه الكثيييرر  والكثيييرررر

منذ ساعه, شايب said:

ههههه

نعم لدي اكثر من طريقة ولكن الاسهل باستخدام جدول مؤقت ونستخدم معيار القائمة لغرض الحاق البيانات المفلترة

اما مصدر التقرير فيكون استعلام جديد مبني على الجدول المؤقت

جرب المرفق لعله يكون المطلوب ولي عود غدا ان اراد الله

الشايب

 

basey(٢).accdb 584 kB · 4 downloads

الأخ والأستاذ  @شايب  

روعة و إبداع و عمل ممتاز --- شغال بامتياز بامتياز---

جعله الله في ميزان حساناتك أخي شايب

و ربي يبارك فيك ويجازيك خير الجزاء

ننتظر الأخ  @شايب   ان شاء الله يحرر الفتوى

2 ساعات مضت, ابوخليل said:

بارك الله فيك ولماذا اغضب ؟ غفر الله لي ولكم

انا اعطيتك اجابات حسب فهمي للسؤال

الآن اتضح جيدا ما تريد

برمجيا يمكن تنفيذ الفكرة ولكن بطريقة تحتاج الى وقت وصبر ويتم تنفيذها على النحو التالي:

1- تصبح السجلات في التقرير  ثلاثة فقط ثابتة ( يمكن نضعها في رأس الصفحة بدلا من مقطع التفصيل )

2- تكون الحقول غير منضمة .. ( مصدر بياناتها متغيرات )

3- المسميات ثابتة للدرجات ( الاستاذ والمعلم والمفتش) كل واحد عبارة عن ليبل

4- عمل كود خاص يأخذ جميع البيانات من الاستعلام  ( الأعداد حسب النوع والفوج ) على هيئة متغيرات .. حسب الاختيار من القائمة .

عند نقر زر فتح التقرير تكون المتغيرات تحمل القيم المختارة

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

 

بارك الله فيك استاذنا وربي يجازيك خير الجزاء

ربما الأخ شايب عنده فتوى...

1 ساعه مضت, ابوخليل said:

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

اما الدمج الذي اتكلم عنه فهو دمج المعيار

الآن انت تطلب شيئا جديدا آخر

تريد دمج الدرجات المتشابهه  وغض النظر عن الفوج

 

bzy.rar 47.35 kB · 0 downloads

أستاذنا الكبير لا تغضب مني أن أكثرث عليك بالأسئلة أنا لم أغير السؤال ربما لم أجد طريقة طرح السؤال و سامحني كثيرا كثيرا من أمس و أنت تتابع معي

ربي يبارك فيك وفي أهلك ومالك وأولادك و ربي يرزقك من حيث لا تحتسب

ما أقصده  دمج الدرجات المتشابهه  وغض النظر عن الفوج في التقرير فقط أما في النموذج ترك الدرجات والفوج

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

أستاذنا الكبير إن لم تفهم عليا أو لم أستطع ايصال الفكرة  أو لم بكن لديك الوقت فهذا يفي بالغرض .

3 دقائق مضت, شايب said:

ولك مثلها واطيب

هو مثل دارج

ابحث عنه ان اردت وستجد بعون الله تفسير مالم تحط به خبرا

تحياتي

إن شاء الله

مشكور كثيرا الأستاذ شايب  على المتابعة والاهتمام.  جزاء الله خير الجزاء ا وجعلها في ميزان حساناتك أخي

2 ساعات مضت, شايب said:

اعتقد الصورة المتحركة في ردي السابق تحقق المطلوب

وتعطي نفس العدد المطلوب مثلا استاذ1 واستاذ2 ومساعد معلم 2 تعطي نفس النتيجة في صورتك اعلاه 89 ومثلها للاحتمالات الاخرى

ولكن اذا اعتمدنا مبدأ لا يفتى ومالك في المدينة فقد آن للشايب ان يتوقف

تحياتي

 

الأخ الشايب تحية طيبة

لم أفهم مبدأ لا يفتى ...

منذ ساعه, ابوخليل said:

تفضل 

تم الضبط والاستفادة من  فكرة الأخ الشايب في الدمج وبتعديل طفيف على كود الاستاذ جعفر

اتمنى ان تكون النتيجة 100%

تم ارفاق ملف خطأ

تمت الازالة ورفع المرفق الصحيح

bzy.rar 47.35 kB · 3 downloads

أستاذنا الكبير لم يتم دمج الدرجات المتشابهة أم الحساب شغال بامتياز

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

5 دقائق مضت, شايب said:

 

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

على كل حال انا اجريت تعديل وفقا لفهمي للطلب والنتيجة في الصورة المرفقة

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

 

تحية طيبة الأخ شايب

معك حق لم يتم دمج الدرجات

ربما أستاذنا أبو خليل لم يرفق الملف المعدل الجديد

1 ساعه مضت, ابوخليل said:

myWhere = myWhere & "'" & Me.lst_XX.Column(3, varItem) & "', "

انا احرص على كتابة الاكواد النادرة هنا من اجل الرجوع اليها وقت الحاجة

أستاذنا أبو خليل  أن شاء الله بقي استفسار

بالنظر إلى الكود الأخير  قبل اعتماده

هل طلبي هذا منطقي

مثلا اختيار:

الدرجة أستاذ الفوج 1

الدرجة استاذ الفوج 2

الدرجة مساعد معلم الفوج 1

الدرجة مفتش الفوج 1

هناك تكرار في الدرجات عند عرض التقرير كما في الصورة

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

الدرجة أستاذ تكون مذكورة مرة واحة في التقرير  وبه مجموع الفوج 1 و 2  وهكذا.............

منذ ساعه, شايب said:

سبق ان اشرت اليها

في مشاركتي الاولى وكذلك في ردي على مشاركة استاذنا ابو خليل

لذا جرب المرفق

نفس كود اخي جعفر ولكن يفلتر الحقل المجمع في Column(3)

الاخ شايب يفضل النظر في الملاحظات التي اشار اليها ولكن النفس وما تريد

الشايب

 

 

 

 

basey(1).accdb 672 kB · 6 downloads

الأستاذ شايب معذرة على الـتأخر في الرد

لقد اخترت حسب ما في الصورة

الدرجة أستاذ الفوج1

الدرجة أستاذ الفوج 2

و ظهر في التقرير

الدرجة معلم  مذكورة مرتين

ممكن تكون الدرجة معلم مذكورة مرة واحدة في التقرير  وتكون مجموع فوج 1 + فوج

وبارك الله فيك

منذ ساعه, ابوخليل said:

نعم هو ما تفضلت به

عملت لك كودا آخر يحدد الفوج ايضا  هكذا

وانظر الى المعيار في سطر فتح التقرير

Dim myWhere As String
Dim intNumColumns As String
Private Sub funGrop()
Dim varItem As Variant
     myWhere = ""
    For Each varItem In Me.lst_XX.ItemsSelected
      myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', "
    Next varItem
    myWhere = Left(myWhere, Len(myWhere) - 2)
End Sub

Private Sub fungrid()
 On Error Resume Next
 Dim varItem As Variant
 intNumColumns = ""
 If Me.lst_XX.ItemsSelected.Count > 0 Then
 For Each varItem In Me.lst_XX.ItemsSelected
 intNumColumns = intNumColumns & "'" & Me.lst_XX.Column(1, varItem) & "', "
 Next varItem
 intNumColumns = Left(intNumColumns, Len(intNumColumns) - 2)
 End If
End Sub

Private Sub cmd_Preview_Click()
  Call funGrop
  Call fungrid
    DoCmd.OpenReport "rap_stat_situat", acViewPreview, , "[groupe] in (" & intNumColumns & ")" & "And [grade] in (" & myWhere & ")"
End Sub

 

 

basey_2023.rar 34.69 kB · 2 downloads

أستاذنا بعد التجربة 

مثلا اختيار:

الدرجة أستاذ الفوج 1

الدرجة استاذ الفوج 2

الدرجة مساعد معلم الفوج 1

الدرجة مفتش الفوج 1

هناك تكرار في الدرجات عند عرض التقرير كما في الصورة

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

الدرجة أستاذ تكون مذكورة مرة واحة في التقرير  وبه مجموع الفوج 1 و 2  وهكذا.............

48 دقائق مضت, شايب said:

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

الان ترغب في فلترة حقلين

وهنا ممكن عملها بطريقتين

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

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

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

الشايب

 

مشكور الأخ شايب على الرد والمتابعة

نعم هذا الكود خاص بالاستاذ جعفر ربي يجزيه خير الجزاء  ويجعله في ميزان حساناته

وهو شغال و رائع جدا جدا جدا  و أكثر من ممتاز وما زلت أعمل به حاليا

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

وليس الرتبة فقط لوحدها

جاري تجربة الكود الخاص باستاذنا أبو خليل