كيفية استدعاء استعلام في نموذج احصائي

[أبو امين]

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

الرجائ من اشاتذتي الكرام التكرم بمساعدتي في اجاد حل للمثال المرفق : 

المطلوب موجود في الصورة المرافقة 

 

Database3.accdb

[kanory]

اخي الكريم حتى لا تزعل من عدم الرد ..... كيف يتم التفريق بين :

بقرار من مجلس التربية ( الانقطاع القانوني ) 

انقطاع تلقائي

لكي تكون الاحصائية صحيحة ..... اين حقل الانقطاع في الجدول لديك ....

انظر الصورة ::::::

 

[أبو امين]

اولا شكرا على مرورك 

ثانيا : الانقطاع القانوني : عندما يتغيب تلميذ لمدة 21 يوم و نستوفي كل المراسلات القانونية : المراسلة الاولى و المراسلة الثانية و المراسلة الثالثة 

بعد ذلك يقع شطب التلميذ 

ثالثا : الانقطاع التلقائي : تلميذ يدرس عادي و فجاة سحب الشهادة المدرسية و انقطع تلقائيا دون غياب 

اما عن جدول حركة التلاميذ ففي المثال يوجد جدول mouvment eleve مربوط بجدول tb_donnee eleves archives 

و هذا المرفق رفعته من جديد ستجد فيه عما سئلت 

جعل الله اعمالك في ميزان حسناتك 

و قد ارفقت لك الصور و المثال فيه تعديل جديد 

 

Database3.rar

[Eng.Qassim]

اخي الكريم . .. لا تعطي افضل اجابة حتى يتم الرد على سؤالك بشكل كامل

مع كل ودي واحترامي لاستاذنا @kanory

[أبو امين]

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

شكرا على كل حال 

 

[kanory]

5 ساعات مضت, derbali ammar said:

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

شكرا على كل حال 

 

جرب الملف واعلمنا بالنتيجة .......

 

 

KAN_Database31.rar

تم تعديل يوليو 28, 2022 بواسطه kanory

[أبو امين]

الى الاستاذ الفاضل : kanory

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

صراحة تستحق وسام شرف استاذي الكريم 

و لا في الاحلام ... كانت مجرد فكرة و كنت شاك في تنفيذها ارحتني الله يس

[kanory]

منذ ساعه, derbali ammar said:

الى الاستاذ الفاضل : kanory

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

صراحة تستحق وسام شرف استاذي الكريم 

و لا في الاحلام ... كانت مجرد فكرة و كنت شاك في تنفيذها ارحتني الله يس

جزاك الله خيرا على الاطراء الذي لا استحقه ... رجم الله والديك ...

الحمد لله رب العالمين ...

[أبو امين]

يبقى لي سؤال واحد استاذي العزيز : 

هل الكود التالي في زر الامر مرتبط بالجدول ام الاستعلام و اذا كان مربوط بالاستعلام  ماهو و شكرا مسبقا **** اتعبناك معانا صديقي 

Private Sub Command107_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Tb_StatAbandons.ID FROM Tb_StatAbandons;"
DoCmd.RunSQL "INSERT INTO Tb_StatAbandons ( niveau, NbrTotaleEleves, MalKhanouni, FemKhanouni, FemTilkhai, MalTilkhai, Etablissement ) " & _
             " SELECT Tb_donnéesEleveArchives.niveau, Count(DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] =[niveau]"")) AS TOT, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2  And [sexe] =1 "") AS MAN1, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2  And [sexe] =2 "") AS WOM1, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1  And [sexe] =2 "") AS WOM2, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1  And [sexe] =1 "") AS MAN2, Tb_donnéesEleveArchives.niveau AS D " & _
             " FROM Tb_donnéesEleveArchives " & _
             " GROUP BY DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2  And [sexe] =1 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2  And [sexe] =2 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1  And [sexe] =2 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1  And [sexe] =1 ""), Tb_donnéesEleveArchives.niveau, Tb_donnéesEleveArchives.niveau;"
DoCmd.SetWarnings True
DoCmd.Close
DoCmd.OpenForm "Tb_StatAbandons1", acNormal
End Sub

 

[أبو امين]

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

حقل العدد الجملي للمرسمين : هو في الحقيقة حقل لجميع التلاميذ ( المباشرين اي الذين لا يزالون يدرسون // و المنقطعين ) و بالتالي الاعداد التي يجد ان توجد في هذا الحقل هي اعداد موجودة في جدولين جدول : 

01 / Tb_donnéesEleveArchives

02/ Tb_donnéesEleve

مع العلم ان الجدول الاول  هو جدول مرتبط باستعلام الحاقي  للتلاميذ المنقطعين وهو الجدول الذي اشتغلنا عليه سابقا

معنى  لدينا 507 تلميذ بالجدول الرئيسي Tb_donnéesEleve

  نضيف لهم 105 تلميذ بجدول المنقطعين : Tb_donnéesEleveArchives

 

 

Database3133.rar

تم تعديل يوليو 28, 2022 بواسطه derbali ammar

[kanory]

هذا الكود بارك الله فيك من شقين :

الاول :

DoCmd.RunSQL "DELETE Tb_StatAbandons.ID FROM Tb_StatAbandons;"

ووظيفته تفريغ الجدول Tb_StatAbandons من البيانات الاحصائية السابقة

والثاني :

DoCmd.RunSQL "INSERT INTO Tb_StatAbandons ( niveau, NbrTotaleEleves, MalKhanouni, FemKhanouni, FemTilkhai, MalTilkhai, Etablissement ) " & _
             " SELECT Tb_donnéesEleveArchives.niveau, Count(DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] =[niveau]"")) AS TOT, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2  And [sexe] =1 "") AS MAN1, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2  And [sexe] =2 "") AS WOM1, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1  And [sexe] =2 "") AS WOM2, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1  And [sexe] =1 "") AS MAN2, Tb_donnéesEleveArchives.niveau AS D " & _
             " FROM Tb_donnéesEleveArchives " & _
             " GROUP BY DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2  And [sexe] =1 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2  And [sexe] =2 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1  And [sexe] =2 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1  And [sexe] =1 ""), Tb_donnéesEleveArchives.niveau, Tb_donnéesEleveArchives.niveau;"

وهو عبارة عن كود استعلام لجلب البيانات الاحصائية المطلوبة من الجدول Tb_donnéesEleveArchives والحاقها في الجدول Tb_StatAbandons في كل مرة تضغط فيها على موافق تتم مسح البيانات من الجدول ثم الحاق البيانات من جديد ...

>>>>>>>>>>>>>>>>>>>>>

[kanory]

7 ساعات مضت, derbali ammar said:

 

هل تريدها بهذا الشكل ....................

 

[أبو امين]

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

و اعتذر عن ازعاجك 

تكرم اخي لو فيه مجال المثال لانك لم ترسله 

تم تعديل يوليو 28, 2022 بواسطه derbali ammar

[kanory]

11 ساعات مضت, derbali ammar said:

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

و اعتذر عن ازعاجك 

تكرم اخي لو فيه مجال المثال لانك لم ترسله 

تفضل <><><><><>

 

Database3133.rar

[أبو امين]

شكرا استاذي و الله مكسوف من حضرتك اتعبناك معانا 

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

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

اعانك الله و سدد خطاك 

[kanory]

56 دقائق مضت, derbali ammar said:

شكرا استاذي و الله مكسوف من حضرتك اتعبناك معانا 

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

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

اعانك الله و سدد خطاك 

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

[أبو امين]

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

على كل انا ارفقت لك صورة و مثال لقاعدة البيانات فان تكرمت و حللت المشكل شكرا و ان لم تتمكن فالف شكر لاننا صراحة اتعبناك معانا 

 

 

Kan.rar

[أبو امين]

استاذي الكريم kan شكرا على مساعدتك 

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

[kanory]

3 ساعات مضت, derbali ammar said:

استاذي الكريم kan شكرا على مساعدتك 

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

ممتاز ... هذا هو الهدف من المنتدى ...