أهلا أخي الكريم , الإستعلامات التي تم وضعها في متغيرات هي أصلا لابد أن تكون داخل جملة الإستعلام الأساسيه ولكن لطولها وضعتها في متغيرات على اساس ماتتلخبط وتتضح لديك الأكواد وكل جملة إستعلام تأتي بناتج جمع لعدد الطلاب وعدد الذكور منهم وعدد الإناث منهم , لذلك التاريخ لابد أن يكون في جميع الإستعلام لأنها إحصائيه واحده . وبالنسبه لكود الزر هو نفس الكود الموجود في حدث الـChange إذا لا ترغب به فأمسحه وأترك كود الـChange سيقوم بالعمل عند كتابة أي قيمة في التكست1 .
لكن اخي الملف الذي ارفقته انت بعد التعديل لم ياتي باي قيم ابدا ولا اي حركه
بحاول انا فيه وبشوف اين الخطا
اماانت علمتني ان الصبر مفتاح الفرج ، لم اكن متوقع ابدا انك ستصبر عليا وتواصل معي والتعديل علي برنامجي الي هنا
فعلا انت انسان فريد من نوعك جزاك الله خير الله يجعله في ميزان حسناتك
اريدك ان تعلم امرين:
الامر الاول انك علمتني الكثير واستفذت منك الكثير ولك جزيل الشكر
والامر الثاني ان هذا البرنامج سيفك كربه اخيك awidan76 وسااخبر ماهي في رساله خاصه
جزاك الله خيرا اخي احمد منصور
جزاك الله خيرامحمد يحي
جزاك الله خيرا sniper.ps
علما بان اخي سنايبر لما اتواصل معه ابدا في هذا المنتدي الجديد لااعلم متي سيدخل ،
الف شكر لكم
28-12-15, 02:40 AM (آخر تعديل لهذه المشاركة : 28-12-15, 03:33 AM {2} بواسطة awidan76.)
اولا الشكر والتقدير دائما وابدا للاخ احمد منصور علي المساعده المستحيله والصبر التي قامه بهما في تعليمي
حد يخلصنا,بقى لي كود استعلام واحد فقط
الله يستر عليكم ويحفظكم ويسعدكم وينور طريقكم في كل خطوه
اريد الثلاثة الاكواد التاليه في استعلام واحد باي طريقه تحبونها
كود :
(1)Count(stuid) as Total From stuTable where stupartnumber =" & Val(Trim$(Text1.Text)) & " And studateregs BETWEEN #" & DTPicker1.Value & "# AND #" & DTPicker2.Value & "#)"
(2)Count(stuid) From stuTable Where stusex='f' And stupartnumber =" & Val(Trim$(Text1.Text)) & " And studateregs BETWEEN #" & DTPicker1.Value & "# AND #" & DTPicker2.Value & "#)"
(3)Count(stuid) From stuTable Where stusex='m' And stupartnumber =" & Val(Trim$(Text1.Text)) & " And studateregs BETWEEN #" & DTPicker1.Value & "# AND #" & DTPicker2.Value & "#)"
RS2.Open "SELECT (frist cod As Total)(the Second cod As Totalfemal)(the third cod As Totalmale) where(نفس الثلاثة الشروط اعلاه),Db, adOpenStatic, adLockOptimistic