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

[ahmed sherif]

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

gstorm.rar

تم تعديل أكتوبر 10, 2020 بواسطه ahmed sherif
تكملة اسم

[محمد أبوعبدالله]

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

3 ساعات مضت, ahmed sherif said:

التحدى الثانى

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

3 ساعات مضت, ahmed sherif said:

هل من الممكن نعمل عميلة جمع لكل ربع سنه على حدة

سنفرض انا لدينا كومبوبوكس باسم Combo11

نضع الامر التالي به

    If Me.Combo11.Value = 1 Then
        myCriteria = ""
        myCriteria = "("
        myCriteria = myCriteria & "[التاريخ] between #" & Format("01/01/2020", "mm/dd/yyyy") & "# and #" & Format("31/03/2020", "mm/dd/yyyy") & "#"
        myCriteria = myCriteria & ")"
    
    ElseIf Me.Combo11.Value = 2 Then
        myCriteria = ""
        myCriteria = "("
        myCriteria = myCriteria & "[التاريخ] between #" & Format("01/04/2020", "mm/dd/yyyy") & "# and #" & Format("30/06/2020", "mm/dd/yyyy") & "#"
        myCriteria = myCriteria & ")"
    
    ElseIf Me.Combo11.Value = 3 Then
        myCriteria = ""
        myCriteria = "("
        myCriteria = myCriteria & "[التاريخ] between #" & Format("01/07/2020", "mm/dd/yyyy") & "# and #" & Format("30/09/2020", "mm/dd/yyyy") & "#"
        myCriteria = myCriteria & ")"
    
    ElseIf Me.Combo11.Value = 4 Then
        myCriteria = ""
        myCriteria = "("
        myCriteria = myCriteria & "[التاريخ] between #" & Format("01/10/2020", "mm/dd/yyyy") & "# and #" & Format("31/12/2020", "mm/dd/yyyy") & "#"
        myCriteria = myCriteria & ")"
    End If
     
    Debug.Print myCriteria
    
    Me.[التخصص]![الادخال Subform].Form.Filter = myCriteria
    Me.[التخصص]![الادخال Subform].Form.FilterOn = True

gstorm_2.rar

تحياتي

[ahmed sherif]

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

[shajan]

السلام عليكم اخواني الكرام ورحمة الله وبركاته ... مبدئيا بارك الله فيكم جميعا وجعل الله هذا العمل البديع في ميزان حسناتكم باذنه تعالى ... ولكن اريد ان استفسر من الاخ الفاضل محمد ابو عبد الله فيما يخص السطر الرابع (التاريخ) انت كتبت mm/dd/yy ولكني اعتقد ان الصحيح كما قصدته انت هو dd/mm/yy وللتاكد راجع السطر التاسع حيث انك كتبت في قيمة الشهر 30 وفي قيمة اليوم 6 . مع كامل تقديري

[محمد أبوعبدالله]

منذ ساعه, shajan said:

ولكني اعتقد ان الصحيح كما قصدته انت هو dd/mm/yy

لهذا استخدمنا Format للحقل لكي يقوم بتنسيق التاريخ كما نريد اياً كانت طريقة كتابة التاريخ

Format("31/12/2020", "mm/dd/yyyy")

ولهذا ايضاً استخدمنا Debug.Print myCriteria لكي يعرض طريقة تنفيذ العملية

بعد تنفيذ العملية اضغط ctrl + G في محرر الاكود سترى النتيجة

تحياتي

[shajan]

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

[ahmed sherif]

استاذ محمد عندما قمت بنقل الملف من الجهاز على اللاب وضغطت على النموذج ظهرت لى هذه الرسالة

microsoft access connot save the form or report because it displays characters form a language that connot be saved in your current system locale
switch your system locale to the language in the form and the try again

تأكدت من اعدادات النظام  لقبت متعرف على اللغة العربية ما المشكلة

 

[محمد أبوعبدالله]

تأكد من اعدادات اللغة كما بالصور

 

تحياتي

[ahmed sherif]

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

[محمد أبوعبدالله]

هذه المشكلة بسبب ان لديك اسم عناصر ( مربع نص - كومبوبكس - زر امر ... الخ ) باللغة العربية

لذلك قم بتعديل هذه الاسماء الى اللغة اللاتينية اولاً قبل تحويل الملف الى accde او mde

تحياتي

[ahmed sherif]

السلام عليكم استاذ محمد معلش بخصوص ملف الاكسيس اللى مش عايز يشتغل عندى على الللاب فى مشكلة غريبة بعد الدخول على قائنة tools فى المطور واختيار  editor format tab font لا يظهر سهم منسدل لاختيار لغة Courier New (Arabic هذه  صورة لعدم وجود سهم منسدل

[ahmed sherif]

السلام عليكم استاذ محمد بخصوص ملف الاكسيس اللى حضرتك ساعدتنى فيه لم افهم المقصود بتعديل الاسماء الى اللغة اللاتينية اضطرت الى اعادة التصميم من جديد وادخال الكود يدويا ظهرت لى هذه الرسالة invalid procedure callorargument وكلمة Private Sub sceh_Change() مظلله باللون الاصفر انا بعتذر لحضرتك جدا اننى اثقلت عليك لكن الموضوع شديد الاهمية بالنسبة لى الغريب فى الامر انه لايوجد مشكلة على الجهاز بينما على اللاب لا يعمل بالرغم تطابق كل شئ من اعدادات اللغة على الجهاز و نسخة الويندز والاوفيس انا عملت اقصى ما لدى لحل المشكلة قبل اللجوء الى حضرتك مرة اخرى

[محمد أبوعبدالله]

13 ساعات مضت, ahmed sherif said:

افهم المقصود بتعديل الاسماء الى اللغة اللاتينية

قصدت بذلك تغيير اسماء العناصر من العربي الى الانجليزي مثلا@ لديك حقل باسم "التاريخ" استبدله باسم txtDate مثلاً

حاول ايضاً انشاء قاعدة بيانات جديدة ثم استورد الكائنات من قاعدة البيانات القديمة ( جداول - استعلامات - نماذج - تقارير - وحدات نمطية )

13 ساعات مضت, ahmed sherif said:

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

اكيد شىء غريب

جرب وباذن الله تنحل المشكلة

تحياتي

[ahmed sherif]

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

[محمد أبوعبدالله]

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

تظهر التخصصات عند التنقل من الاسهم التي في الصورة

قمت بتصغير النماذج قليلاً حتى يتم اظهار المؤشر جيداً

Up-gstorm.rar

تحياتي

[ahmed sherif]

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