ashraf zain eddin قام بنشر يناير 28, 2017 مشاركة قام بنشر يناير 28, 2017 الله يعطيكو العافية الجميع و اذا ممكن تساعدوني : كل جملة من هاي الجمل بتعمل فلتر: strmcount وstrmcount متغيران يدخلهم المستخدم كعدد للسجلات اللي بدي اياهن يظهروا strtotal1وstrtotal2 معايير عرفتهن قبل ويعملان بشكل جيد task1 = "select top " & strmcount & " * from nregistration where " & strtotal1 وبترجع عدد متغير من سجلات الذكور task2 = "select top " & strfcount & " * from nregistration where " & strtotal2 بترجع عدد متغير من سجلات الاناث - بدي اياهن يشتغلو سوا ويظهروا النتائج في جدول واحد الفكرة كيف بدي اربط هاتين الجملتين رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 28, 2017 مشاركة قام بنشر يناير 28, 2017 وعليكم السلام تفضل (طبعا غير معروف عندنا المعايير بالضبط ، فهناك احتمال محتاج تغيير حسب المعايير) task1 = "select top " & strmcount & " * from nregistration where " & strtotal1 & " And " & strtotal2 جعفر 2 رابط هذا التعليق شارك More sharing options...
ashraf zain eddin قام بنشر يناير 28, 2017 الكاتب مشاركة قام بنشر يناير 28, 2017 (معدل) جهودك مشكورة (strmcount)هذا الكود يأخذ عدد السجلات من تكست بوكس خاص للذكور لذلك لازم اعمل جملتين تتنفذان مع بعضهما لتعرض سجلات الذكور والاناث اما بالنسبة للمعايير (strfcount) عدد السجلات من تكست بوكس خاص للاناثو فإن لها كود خاص عندي هذا هو البرنامج filter.zip تم تعديل يناير 28, 2017 بواسطه ashraf zain eddin ارفاق البرنامج رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 28, 2017 مشاركة قام بنشر يناير 28, 2017 الآن سؤالك اصبح غير واضح!! رجاء شرح ما تريد وبالتفصيل ، وابدء باسم النموذج واسم الحقل واسم الجدول ن ثم ماذا يجب ان نرى ، وماذا تريد ان يصير انت صاحب البرنامج وادرى به منا جعفر 2 رابط هذا التعليق شارك More sharing options...
ashraf zain eddin قام بنشر يناير 28, 2017 الكاتب مشاركة قام بنشر يناير 28, 2017 (معدل) اسم النوذج :filter_form4 الجدول :nregistration يحتوي على 3 حقول (الرقم , الاسم ,القرية) يحتوي النموذج على text box اسمه mcount وهو لادخال عدد من قبل اليوزر ويحدد عدد السجلات اللي لازم تظهر للذكورمن قرية 3 وايضا يحتوي النموذج على text box اخر اسمه fcount وهو لادخال عدد من قبل اليوزر ويحدد عدد السجلات اللي لازم تظهر للاناث من قرية 3 انا كتبت كود واضطريت الى تصميم نموذجين فرعين و كل نتيجة ظهرت بنموذج فرعي فأصبح عندي نموذج بيطلع عدد معين من الذكور والنموذج الاخر بيطلع الاناث المطلوب من هذا انو يعمل فلترة ويظهر كل من الذكور والاناث بنموذج واحد *ملاحظة :يوجد بالكود رقم 3 للدلالة على القرية لأنو مطلوب مني اعمل نفس الخاصية لقرى اخرى *ملاحظة : القرى بالارقام سوف ابعث البرنامج ....... اشكرك على جهودك filter.zip تم تعديل يناير 28, 2017 بواسطه ashraf zain eddin رابط هذا التعليق شارك More sharing options...
ashraf zain eddin قام بنشر يناير 29, 2017 الكاتب مشاركة قام بنشر يناير 29, 2017 مسا الخير اخواني اذا في مجال واحد يععطيني الحل رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 بعد اذن اخي جعفر جرب هذا السكريبت في استعلام جديد لفهم اكثر للجملة select top 1 * from nregistration where v='3' and gender='male' union select top 1 * from nregistration where v='3' and gender='female' هذا يسمى استعلام توحيد وهو دمج نتائج استعلامات بكلمة union . هذا الاستعلام ليس له عرض تصميم وانما عرض سكريبت وبهذا اضف هذا السطر في نهاية كود الدالة result وبعد نهاية الجملة الشرطية الاخيرة ليصبح شكل نهاية الكود MsgBox "see your subforms first" Me.child6.Form.RecordSource = task1 & " union " & task2 Me.child6.Requery End Function هنا تظهر رسالة لترى شغلك القديم ثم التاثير الجديد وتم تطبيقه على النموذج الثاني وبالطبع يمكن ان تطبقه على نموذج جديد لديك باتوفيق 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 السلام عليكم اعمل حقل في النموذج باسم v لرقم القرية ، ثم استخدم هذا الكود: Private Sub fcount_AfterUpdate() Call result Call Make_SQL End Sub Private Sub mcount_AfterUpdate() Call result Call Make_SQL End Sub Function Make_SQL() m_SQL = "SELECT TOP " & Me.mcount & " ibv, [name#], gender, v " m_SQL = m_SQL & "FROM nregistration " m_SQL = m_SQL & "WHERE gender = 'male' And v ='" & Me.v & "'" 'm_SQL = m_SQL & " ORDER BY [name#], gender" 'Debug.Print m_SQL f_SQL = "SELECT TOP " & Me.fcount & " ibv, [name#], gender, v " f_SQL = f_SQL & "FROM nregistration " f_SQL = f_SQL & "WHERE gender = 'Female' And v ='" & Me.v & "'" f_SQL = f_SQL & " ORDER BY gender Desc, [name#]" 'male First 'f_SQL = f_SQL & " ORDER BY gender, [name#]" 'Female First 'Debug.Print f_SQL u_SQL = m_SQL & vbCrLf & "Union All" & vbCrLf & f_SQL 'Debug.Print u_SQL Me.join.Form.RecordSource = u_SQL End Function . هذا عبارة عن 3 استعلامات ، استعلام للرجال ، وثاني للنساء ، وثالث يجمعهم (استعلام توحيد Union Query) ، وفرز النساء يأتي اولا بسبب ان الجنس موجود بطريقة تصاعديه ، فاذا اردت ان تجعل الرجال اولا، فغير بين هذين السطرين: f_SQL = f_SQL & " ORDER BY gender Desc, [name#]" 'male First 'f_SQL = f_SQL & " ORDER BY gender, [name#]" 'Female First جعفر 560.filter.accdb.zip 1 رابط هذا التعليق شارك More sharing options...
ashraf zain eddin قام بنشر يناير 29, 2017 الكاتب مشاركة قام بنشر يناير 29, 2017 الف شكر الكم وجهودكم مشكورة .......بارك الله فيكم رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 7 دقائق مضت, رمهان said: بعد اذن اخي جعفر جرب هذا السكريبت في استعلام جديد لفهم اكثر للجملة select top 1 * from nregistration where v='3' and gender='male' union select top 1 * from nregistration where v='3' and gender='female' هذا يسمى استعلام توحيد وهو دمج نتائج استعلامات بكلمة union . هذا الاستعلام ليس له عرض تصميم وانما عرض سكريبت وبهذا اضف هذا السطر في نهاية كود الدالة result وبعد نهاية الجملة الشرطية الاخيرة ليصبح شكل نهاية الكود MsgBox "see your subforms first" Me.child6.Form.RecordSource = task1 & " union " & task2 Me.child6.Requery End Function هنا تظهر رسالة لترى شغلك القديم ثم التاثير الجديد وتم تطبيقه على النموذج الثاني وبالطبع يمكن ان تطبقه على نموذج جديد لديك باتوفيق حيا الله اخوي رمهان وينك يا رجال ، طوّلت الغيبة سبحان الله ، نفس الفكرة ، ولكن كالعادة انت بطريقة مختصرة شئ واحد ناقص في الكود عندك وهو عدد الرجال وعدد النساء جعفر رابط هذا التعليق شارك More sharing options...
ashraf zain eddin قام بنشر يناير 29, 2017 الكاتب مشاركة قام بنشر يناير 29, 2017 الف شكر الكم جربتوا وزبط جهوودكم مشكورة اخواني رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 11 دقائق مضت, jjafferr said: حيا الله اخوي رمهان وينك يا رجال ، طوّلت الغيبة حياك اخي جعفر ودمتم بخير انا بخير 12 دقائق مضت, jjafferr said: شئ واحد ناقص في الكود عندك وهو عدد الرجال وعدد النساء جعفر انا ما حبيت اغير في العمل اسابق ولم اتعمق! هو عامل الشروط وانا فقط دمجت له في الكود تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان