محمود أبوسيف قام بنشر فبراير 10, 2017 مشاركة قام بنشر فبراير 10, 2017 المطلوب إظهار عدد الأسر أسفل كل صفحة علي حدي ثم عمل إجمالي لجميع الأسر في أخر صفحة عدد الأسر.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 10, 2017 مشاركة قام بنشر فبراير 10, 2017 السلام عليكم اخي محمود مو اتفقنا انه عند وضعك للسؤال ، ان توضح ايش المطلوب بالضبط انا انزلت مرفقك ولكني لم اعرف ما الذي يجب اختياره في النموذج ، وما النتيجة التي تريدها في التقرير جعفر 1 رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر فبراير 10, 2017 الكاتب مشاركة قام بنشر فبراير 10, 2017 السلام عليكم اخي محمود مو اتفقنا انه عند وضعك للسؤال ، ان توضح ايش المطلوب بالضبط انا انزلت مرفقك ولكني لم اعرف ما الذي يجب اختياره في النموذج ، وما النتيجة التي تريدها في التقرير جعفر وعليكم السلام أخي جعفر . إنظر إلي المرفق لعله يوضح المطلوب عدد الأسر.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 10, 2017 مشاركة قام بنشر فبراير 10, 2017 تفضل جعفر 570.عدد الأسر.accdb.zip رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر فبراير 11, 2017 الكاتب مشاركة قام بنشر فبراير 11, 2017 12 ساعات مضت, jjafferr said: تفضل جعفر 570.عدد الأسر.accdb.zip أخي جعفر أنظر إلي الصور بعد إزالة فواصل الصفحات (أصبح رقم المسلسل ثابت علي رقم 1 في جميع الصفوف ) وخانة عدد الأسر التي من المفترض أن تعطي إجمالي الأسر أصبحت ثابت أيضاً عند الرقم (1) . حساب عدد الأسر.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 11, 2017 مشاركة قام بنشر فبراير 11, 2017 وعليكم السلام أخي محمود طبعا الوضع سيختلف لما تعمل تغيير اما العدد المسلسل فلم المسه ، ولكن اعدادات الجمع كانت لجمع المجموعة ، لذا يجب ان تغيره ليكون للكل لوسمحت تأخذ وقتك وترفق الصيغة النهائية التي تريدها في التقرير ، حتى لا نعدل ، وتعدل ، ونعدل جعفر رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر فبراير 11, 2017 الكاتب مشاركة قام بنشر فبراير 11, 2017 الان, jjafferr said: وعليكم السلام أخي محمود طبعا الوضع سيختلف لما تعمل تغيير لوسمحت تأخذ وقتك وترفق الصيغة النهائية التي تريدها في التقرير ، حتى لا نعدل ، وتعدل ، ونعدل جعفر أخي الفاضل جعفر لا يوجد تعديل وإنا المطلوب واحد ( فالمطلوب هو إظهار عدد السجلات الموجودة داخل صفحة التقرير كل صفحة مستقله بعدد السجلات التي بها وإذا كانت السجلات تملئ الصفحة الأولي وإنتقلت إلي صفحة أخري فتظهر عدد سجلات الصفحة الثانية فقط في أسفلها . تقبل تحياتي رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 11, 2017 مشاركة قام بنشر فبراير 11, 2017 أخي محمود نتائج الجمع تختلف بأي تغيير في التقرير (يعني اذا عملت/ازلت مجموعات ، او عملت/ازلت فواصل للصفحات) ، وكما رأيت ، فالمرفق الذي وضعته انا لك ، كان يعمل مثل ما طلبت ، ولكنك قمت بتغيير تصميم التقرير ، فعليه يجب تغيير الطريقة لتتماشى مع هذا التغيير يعني ، لا يوجد حل واحد لكل تصاميم التقارير فالذي اقترحته عليك هو: اعطني التقرير النهائي ، وان شاء الله نغير الكود ليعمل على حساب عدد سجلات كل صفحة جعفر رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر فبراير 11, 2017 الكاتب مشاركة قام بنشر فبراير 11, 2017 23 دقائق مضت, jjafferr said: فالذي اقترحته عليك هو: اعطني التقرير النهائي ، وان شاء الله نغير الكود ليعمل على حساب عدد سجلات كل صفحة جعفر هذا هو الملف المطلوب التعديل عليه حساب عدد الأسر.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 11, 2017 مشاركة قام بنشر فبراير 11, 2017 تفضل غيّرت في طريقة الحساب ، وان شاء الله تشتغل في الطريقتين ، وهذا هو الكود الجديد: Private txtPageCount2 As Integer Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txtPageCount = txtPageCount2 txtPageCount2 = 0 End Sub Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) If PrintCount = 1 Then txtPageSum = txtPageSum + [تسمية79] End If txtPageCount2 = txtPageCount2 + 1 End Sub جعفر 570.1.حساب عدد الأسر.accdb.zip 1 رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر فبراير 12, 2017 الكاتب مشاركة قام بنشر فبراير 12, 2017 18 ساعات مضت, jjafferr said: تفضل غيّرت في طريقة الحساب ، وان شاء الله تشتغل في الطريقتين ، وهذا هو الكود الجديد: Private txtPageCount2 As Integer Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txtPageCount = txtPageCount2 txtPageCount2 = 0 End Sub Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) If PrintCount = 1 Then txtPageSum = txtPageSum + [تسمية79] End If txtPageCount2 = txtPageCount2 + 1 End Sub جعفر 570.1.حساب عدد الأسر.accdb.zip أحسنت أخي جعفر هذا هو المطلوب بارك الله فيك . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان