أبو امين

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

انار الله دربك كما انرتنا بعلمك

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

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

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

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

استاذي الكريم هناك تعديل بسيط وهو مبين بالصورة ادناه و لقد ارفقت لك مثالا : حقل العدد الجملي للمرسمين : هو في الحقيقة حقل لجميع التلاميذ ( المباشرين اي الذين لا يزالون يدرسون // و المنقطعين ) و بالتالي الاعداد التي يجد ان توجد في هذا الحقل هي اعداد موجودة في جدولين جدول : 01 / Tb_donnéesEleveArchives 02/ Tb_donnéesEleve مع العلم ان الجدول الاول هو جدول مرتبط باستعلام الحاقي للتلاميذ المنقطعين وهو الجدول الذي اشتغلنا عليه سابقا معنى لدينا 507 تلميذ بالجدول الرئيسي Tb_donnéesEleve نضيف لهم 105 تلميذ بجدول المنقطعين : Tb_donnéesEleveArchives Database3133.rar

يبقى لي سؤال واحد استاذي العزيز : هل الكود التالي في زر الامر مرتبط بالجدول ام الاستعلام و اذا كان مربوط بالاستعلام ماهو و شكرا مسبقا **** اتعبناك معانا صديقي 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

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

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

اولا شكرا على مرورك ثانيا : الانقطاع القانوني : عندما يتغيب تلميذ لمدة 21 يوم و نستوفي كل المراسلات القانونية : المراسلة الاولى و المراسلة الثانية و المراسلة الثالثة بعد ذلك يقع شطب التلميذ ثالثا : الانقطاع التلقائي : تلميذ يدرس عادي و فجاة سحب الشهادة المدرسية و انقطع تلقائيا دون غياب اما عن جدول حركة التلاميذ ففي المثال يوجد جدول mouvment eleve مربوط بجدول tb_donnee eleves archives و هذا المرفق رفعته من جديد ستجد فيه عما سئلت جعل الله اعمالك في ميزان حسناتك و قد ارفقت لك الصور و المثال فيه تعديل جديد Database3.rar

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

مبدع اسناذ على التطوير : جعله الله في ميوان حسناتك

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

استاذي الكريم لقد جربت كود الاضافة و اعطاني ه>ا الخطا : قد ارفقت لك المثال بالخطا للتعديل عليه انشاء استعلام الحاقي و نقل البيانات من جدول الى جدول.accdb

مشكور استاذ

الى الخبير العزيز : د.كاف يار صراحة امثلتكم جيدة و شيقة و جميلة لكنها معقدة لمن هو مبتدا و اريد ان اسوق لكم ملاحظة ان مستوى المنتدى عالي جدا و قوي و يصعب على كل مبتدئ مجاراتكم صراحة و نحن المبتدئين نلتجئ دائما الى البساطة و الوضوح و ما يهمنا هنا ليس الاضافة او الح\ف او ما شابه و انما هي عملية الالحاق و ان كان المثال لا يروق لكم فانني بالفعل وقفت عند حدود الخطا و عجزت عن ايجاد حل له و سيتوقف المثال شكرا لكم على كل حال

كنا قد انشانا القاعدة و هي تحتوي على جدولان : الجدول الرئيسي : جدول معطيات التلاميذ TblInfo الجدول الفرعي : جدول الارشيف : TblInfoArchvs اضفنا ايضا حقل لكلا الجدولان وهو حقل حركة التلاميذ : الان بعد ان تقدمنا شوطا في الاستعلام الالحاقي و حققنا نتيجة جيدة خاصة لمن هو مبتدئ في مجال الاكسيس مثلي بالطبع : نقوم بانشاء جدول جديد لحركة التلاميذ تحت اسم : mvmnt يتضمن حقلان : 1. IDmvmnt /// NuméroAuto 2. Mvmnt //// Texte نضيف لهذا الحقل المعطيات التالية : IDmvmnt Mvmnt 1 انقطاع 2 مباشر نقوم برط هذا الجدول مع الجدول الرئيسي نفتح الان الاستعلام و نضيف جدول Mvmnt لتغيير انتماء جدول : Mvmnt من الانتماء للجدول الرئيسي الى الانتماء لجدول Mvmnt نت\كر جيدا اننا اضفنا رقم /// 1 /// في كريتار حقل : Mvmnt نغير هذا الرقم الى كلمة انقطاع نكتبها مكان رقم 1 نقوم بمعاينة الاستعلام سنجد المعلومات الموجودة صحيحة و رقم 1 تغير الى كلمة انقطاع يبقى الان تغيير الكود : نضيف هذا الكود مكان الكود السابق : DoCmd.RunSQL " INSERT INTO TblInfoArchvs ( NEleves, NmPrnm,mvmnt) " & _ "SELECT TblInfo.NEleves, TblInfo.NmPrnm, mvmnt.mvmnt, " & _ "FROM mvmnt INNER JOIN TblInfo ON mvmnt.IDmvmnt = TblInfo.mvmnt" & _ "WHERE (((mvmnt.mvmnt) = انقطاع));" لكن بعد كل هذا الجهد ظهر لنا الخطا المبين في الصورة : المثال موجود بالمرفقات مع الخطا : انشاء استعلام الحاقي و نقل البيانات من جدول الى جدول.accdb ننتضر الحل من الاساتذة الكرام لاصلاح الخطا

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

الجزء الثاني من البرنامج : ذكرنا ان الهدف من قاعدة البيانات هي نقل مثلا بيانات التلامذة المنقطعون الى جدول ثاني : نضيف الان للجدول الرئيسي لقاعدة البيانات وهوو جدول : TblInfo حقل تحت اسم : mvmnt ثم نضيف نفس الحقل الى الجدول الفرعي بنفس الخصائص ننتقل الى الاستعلام الالحاقي و نضيف له نفس الحقل و في critere نكتب رقم 1 تحت حقل : mvmnt في الجدول الفرعي ننتقل الان الى النموذج و نقوم باضافة الحقل لجملة SQL في امر الزر ليصبح الكود كالاتي : DoCmd.RunSQL "INSERT INTO TblInfoArchvs ( NEleves, NmPrnm,mvmnt) SELECT TblInfo.NEleves, TblInfo.NmPrnm,TblInfo.mvmnt FROM TblInfo WHERE (((TblInfo.mvmnt)=1)); " قاعدة البيانات بالاضافات في المرفقات : انشاء استعلام الحاقي و نقل البيانات من جدول الى جدول.accdb

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

نظرا لشح الردود و التفاعل من الزملاء لاجاد الحلول الممكنة : توصلت بعد عناء شديد و طويل للتوصل الى الحل نظرا للزاد الضعيف : اولا نقوم بانشاء استعلام الحاقي : 01/نفتح قاعدة بيانات جديدة 02/ نقوم بنصميم جدول تحت اسم : TblInfo 03 / ننسخ هذا الجدول و نغير اسمه الى : TblInfoArchvs 04/ نقوم بانشاء استعلام و نضيف له حقول الجدول الرئيسي : TblInfo 04 / نضغط على ايقونة الاستعلام الالحاقي : يظهر لنا مربع حوار يطلب منا تحديد قاعدة البيانات الحالية او الاخرى : نحدد على قاعدة البيانات الحالية و نختار من القائمة المنسدلة الجدول الجديد : TblInfoArchvs و نضغط على ok ثم ننشئ نموذج و نضيف له زر امر و للزر الكود التالي : DoCmd.RunSQL "INSERT INTO TblInfoArchvs ( NEleves, NmPrnm) SELECT TblInfo.NEleves, TblInfo.NmPrnm FROM TblInfo; " نفتح الان النموذج و نضغط على زر الامر : مبروك تم نقل جميع السجلات الموجودة بالجدول الرئيسي للجدول الثاني اي جدول الارشيف هذه المرحلة الاولى : يبقى ان نضيف حقل للجدول الرئيسي لنرمز فيه للتلاميذ المنقطعون و نقوم بتعديل الاستعلام لكي لا يضيف الا التلاميذ المنقطعون : في القادم ان شاء الله ملاحظة يوجد في تونس مثال يقول : " ايغني و ايرد على جناحوا " يضرب هذا المثل على من يسال و يجيب بمفرده على السؤال وهو ما اقوم به انا الان : للطرفة قاعدة البيانات في المرققات : انشاء استعلام الحاقي و نقل البيانات من جدول الى جدول.accdb

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

للرفع

احذف label و سيشتغل البرنامج