أريد طريقة عمل فرز لأسماء المتقدمين على دورات تدريبية "آلية"

[ابوآمنة]

السلام عليكم 

أريد طريقة عمل فرز لأسماء المتقدمين على دورات تدريبية تكون ( آلية ) :

عوامل الفزر هي كالتالي :

الأولى : تاريخ التقديم المبكر .

الثانية : تحقيق الرغبة الأولى هو الدورة الأولى الأساسية والانتقال إلى الثانية والثالثة والرابعة والخامسة تكون الأولية للثلاثة الأولى .

 

كل دورة يدخل فيها من الجهات ( 28 مقعد ) فقط حسب التالي : 

14 من "إدارة" and "مكتب"

14 من "مدرسة"

وهذه القاعدة بعد التعديل بالمرفق

 

 

الدورات.rar

تم تعديل ديسمبر 29, 2017 بواسطه saleh204

[ابوآمنة]

إلى الأخوة الخبراء

لا نعدم جميلكم

ونطمع في لمساتكم

 

[ابوآمنة]

اريد منكم المساعدة في تحديد 14 من "إدارة" و "مكتب"

14 من "مدرسة"

هذه محاولاتي حتى الآن بالمرفق

 

 

الدورات.rar

تم تعديل ديسمبر 30, 2017 بواسطه saleh204

[jjafferr]

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

 

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

لذا عملت لك التعديل في الجدول tbl_Training

.

انت محتاج تعمل استعلام لكل جهة (يعني 3 استعلامات) ، ثم تستعمل الامر Union لتجمع الاستعلامات الثلاث في استعلام واحد ،

ولكن المشكلة هي العدد المطلوب ، فلا يمكننا ان نجعل العدد رقم متغير في الاستعلام ، وهو ما يشار الى بـ TOP n (اذا العدد معروف مسبقا ، فالاستعلامات الثلاث سهله ، ثم نعمل استعلام Union يجمعها) ،

لذا وجب علينا ان نعمل الاستعلامات في الكود

Private Sub cmd_Training_Records_Click()
    
    mySQL1 = "SELECT TOP " & Forms!Q1!iSchool & " الوقت, الاسم, الجهة, الدورة"
    mySQL1 = mySQL1 & " FROM tbl_Training"
    mySQL1 = mySQL1 & " WHERE الجهة = 'مدرسة' And الدورة ='" & [Forms]![Q1]![T1] & "'"
    mySQL1 = mySQL1 & " ORDER BY الوقت"
    'Debug.Print mySQL1
    
    mySQL2 = "SELECT TOP " & Forms!Q1!iAdmin & " الوقت, الاسم, الجهة, الدورة"
    mySQL2 = mySQL2 & " FROM tbl_Training"
    mySQL2 = mySQL2 & " WHERE الجهة = 'إدارة' And الدورة ='" & [Forms]![Q1]![T1] & "'"
    mySQL2 = mySQL2 & " ORDER BY الوقت"
    'Debug.Print mySQL2
    
    mySQL3 = "SELECT TOP " & Forms!Q1!iOffice & " الوقت, الاسم, الجهة, الدورة"
    mySQL3 = mySQL3 & " FROM tbl_Training"
    mySQL3 = mySQL3 & " WHERE الجهة = 'مكتب' And الدورة ='" & [Forms]![Q1]![T1] & "'"
    mySQL3 = mySQL3 & " ORDER BY الوقت"
    'Debug.Print mySQL3
    
    mySQL_union = mySQL1 & " union all " & mySQL2 & " union all " & mySQL3
    'Debug.Print mySQL_union
    
    Me.f1.Form.RecordSource = mySQL_union
    Me.f1.Form.OrderBy = "الجهة, الوقت"
    Me.f1.Form.OrderByOn = True
    
End Sub

.

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

.

جعفر

837.الدورات.accdb.zip

[ابوآمنة]

أكون عاجز عن شكرك يا أستاذي الفاضل 

فعلاً كنت اجلس وقت طويل لمفاضلة أسماء المتقدمين 

الآن بلمسة زر تظهر النتائج في اقل من ثواني .

شيء مبهر أستاذي الفاضل جعفر

لك مني الدعاء أن يعطيك خيري الداريين في الدنيا والآخرة 

[ابوآمنة]

 

ما فكرة هذا الزر

هل يقوم باستيراد بيانات المتقدمين 

لكن بعد التجربة وإفراغ حقول جدول tbl_Training  تظهر السجل فارغ 

هل بالإمكان يقوم الزر بجلب البيانات من جدول المتقدمين إلى جدول tbl_Training 

تم تعديل ديسمبر 30, 2017 بواسطه saleh204

[ابوآمنة]

تظهر لي في حال الضغط الرسائل التالية

تم تعديل ديسمبر 30, 2017 بواسطه saleh204

[jjafferr]

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

هذا الزر هو الذي قام بتنظيم الدورات ونقلها إلى حقل واحد.

لاستخدامه:

1. أعمل نسخه من جدول المتقدمين، واسميه tbl_Training ،

2. غيّر اسم الحقل دورة1 الى دورة ،

3. اضغط على هذا الزر ،

4. ارجع الى الجدول tbl_Training ، سترى السجلات الجديدة، وهي نسخة من الدورات دورة2 الى دورة5 تم تصفيفها في حقل دورة، مع الأخذ في الاعتبار التاريخ والأيام و الجهة ،

5. احذف حقول دورة2 الى دورة5.

 

بعد تحويل الجدول بهذه الطريقة، ينتهي دور النموذج، ولا تستعمله مرة ثانية.

 

جعفر

[ابوآمنة]

سأقوم بذلك الآن

[jjafferr]

بس مافي داعي، لأني عملته انا، وعليه أصبح عندنا الجدول tbl_Training .

 

ولكن لا بأس بعمله، ليطمئن قلبك

 

جعفر

[ابوآمنة]

6 دقائق مضت, jjafferr said:

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

هذا الزر هو الذي قام بتنظيم الدورات ونقلها إلى حقل واحد.

لاستخدامه:

1. أعمل نسخه من جدول المتقدمين، واسميه tbl_Training ،

2. غيّر اسم الحقل دورة1 الى دورة ،

3. اضغط على هذا الزر ،

4. ارجع الى الجدول tbl_Training ، سترى السجلات الجديدة، وهي نسخة من الدورات دورة2 الى دورة5 تم تصفيفها في حقل دورة، مع الأخذ في الاعتبار التاريخ والأيام و الجهة ،

5. احذف حقول دورة2 الى دورة5.

 

بعد تحويل الجدول بهذه الطريقة، ينتهي دور النموذج، ولا تستعمله مرة ثانية.

 

جعفر

هناك تشابه في الاسماء في الجدولين 

[jjafferr]

قلت لك اني عملته !!

لازم تغير اسم الجدول الموجود tbl_Training الى اسم آخر، وبعدين تقوم بهذا العمل.

طبعا، اذا بدأت استعمال البرنامج، فيجب عليك حذف جدول المتقدمين، والعمل فقط على الجدول tbl_Training

[ابوآمنة]

شكراً أستاذي ومعلمي الفاضل 

ضبط معي 100 %

 

[ابوآمنة]

سؤال 

إذا أردت إضافة حقلين في الجدول tp1_training

هل اضيفه في جميع الاكواد والاستعلامات

الحقول المراد اضافتها:

السجل_المدني

اسم_الجهة

[jjafferr]

اذا تريد بيانات هذه الحقول تظهر تظهر لك في النموذج، فنعم يجب إدخالها في الكود

[ابوآمنة]

شكراً لك

قمت بإدخالها في الكود 

والنتائج 100 %

[jjafferr]

[ابوآمنة]

استفسار استاذي جعفر

إذا أردت تصدير النتائج إلى Exsl 

ما هو الكود المناسب لذلك ؟

[jjafferr]

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

 

الاربع اسطر الاخيرة:

2. نعمل الاستعلام qry_NewQry من جملة mySQL_Union ،

3. نصدر بيانات الاستعلام الى D:\Test\abc.xls ،

4. نحذف الاستعلام.

Private Sub cmd_Training_Records_Click()
    
    mySQL1 = "SELECT TOP " & Forms!Q1!iSchool & " الوقت, الاسم, الجهة, الدورة"
    mySQL1 = mySQL1 & " FROM tbl_Training"
    mySQL1 = mySQL1 & " WHERE الجهة = 'مدرسة' And الدورة ='" & [Forms]![Q1]![T1] & "'"
    mySQL1 = mySQL1 & " ORDER BY الوقت"
    'Debug.Print mySQL1
    
    mySQL2 = "SELECT TOP " & Forms!Q1!iAdmin & " الوقت, الاسم, الجهة, الدورة"
    mySQL2 = mySQL2 & " FROM tbl_Training"
    mySQL2 = mySQL2 & " WHERE الجهة = 'إدارة' And الدورة ='" & [Forms]![Q1]![T1] & "'"
    mySQL2 = mySQL2 & " ORDER BY الوقت"
    'Debug.Print mySQL2
    
    mySQL3 = "SELECT TOP " & Forms!Q1!iOffice & " الوقت, الاسم, الجهة, الدورة"
    mySQL3 = mySQL3 & " FROM tbl_Training"
    mySQL3 = mySQL3 & " WHERE الجهة = 'مكتب' And الدورة ='" & [Forms]![Q1]![T1] & "'"
    mySQL3 = mySQL3 & " ORDER BY الوقت"
    'Debug.Print mySQL3
    
    mySQL_union = mySQL1 & " union all " & mySQL2 & " union all " & mySQL3
    'Debug.Print mySQL_union
    
    Me.f1.Form.RecordSource = mySQL_union
    Me.f1.Form.OrderBy = "الجهة, الوقت"
    Me.f1.Form.OrderByOn = True
    
    Dim qdf As QueryDef
    Set qdf = CurrentDb.CreateQueryDef("qry_NewQry", mySQL_union)
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "qry_NewQry", "D:\Test\abc.xls"
    CurrentDb.QueryDefs.Delete "qry_NewQry"
    
End Sub

 

جعفر

[ابوآمنة]

أنت رائع أستاذي جعفر

[jjafferr]

السلام عليكم اخي صالح 🙂

 

شو اللي جاب هذا الموضوع على بالك بعد حوالي سنتين 

 

جعفر

[أبوبسمله]

4 دقائق مضت, jjafferr said:

السلام عليكم اخي صالح 🙂

 

شو اللي جاب هذا الموضوع على بالك بعد حوالي سنتين 

 

جعفر

حتى نراه ونتعلم اخى واستاذى العزيز جعفر 😀

جزاكم الله كل خير اخوانى واساتذتى

تقبلوا تحياتى

 

[ابوآمنة]

دائما نتذكر حلولك المبدعة يا معلمنا جعفر 

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

ما نستغني عن لمساتك الجعفرية 

 

ولي طلب لو سمحت وهو يراودني من زمان .

نريد إصدارك الثاني من مسقط التقارير

مع إضافة  استيراد وتصدير البيانات إلى اكسيل  .