أحمد محمد عبد المعبود قام بنشر يناير 4, 2017 مشاركة قام بنشر يناير 4, 2017 أريد طريقة لعدم عرض تذييل الصفحة في حالة وجود تذييل للمجموعة أو عرض تذييل المجموعة في كل صفحة وليس آخر المجموعة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 4, 2017 مشاركة قام بنشر يناير 4, 2017 وعليكم السلام واهلا وسهلا بك في المنتدى المنتدى غني بالمواضيع ، والكثير منها متكرر ، فالبحث سيكون اسهل طريقة لك للوصول لما تريد هذا رابط احد المواضيع جعفر رابط هذا التعليق شارك More sharing options...
أحمد محمد عبد المعبود قام بنشر يناير 4, 2017 الكاتب مشاركة قام بنشر يناير 4, 2017 جزاك الله خيرا الموضوع المشار إليه يتكلم عن الصفحة الأخيرة أنا عندي التقرير فيه أكثر من مجموعة أريد أن أحذف تذييل الصفحة في صفحة آخر المجموعة أو عرض تذييل المجموعة في كل صفحة أنا بحثت فلم أجد ما أريد وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 4, 2017 مشاركة قام بنشر يناير 4, 2017 اذا سمحت ترفق جزء من قاعدة بياناتك ، الجزء المطلوب مع بعض البيانات ، ومثال فيما تريد من برنامجك ، حتى نحاول ان نساعدك جعفر رابط هذا التعليق شارك More sharing options...
أحمد محمد عبد المعبود قام بنشر يناير 4, 2017 الكاتب مشاركة قام بنشر يناير 4, 2017 50 دقائق مضت, jjafferr said: اذا سمحت ترفق جزء من قاعدة بياناتك ، الجزء المطلوب مع بعض البيانات ، ومثال فيما تريد من برنامجك ، حتى نحاول ان نساعدك جعفر Sheet.zip رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 4, 2017 مشاركة قام بنشر يناير 4, 2017 اذا تحذف تذييل المجموعة ، فتذييل الصفحة يظهر لك في كل صفحة ، هل هذا الحل مقبول؟ جعفر رابط هذا التعليق شارك More sharing options...
أحمد محمد عبد المعبود قام بنشر يناير 4, 2017 الكاتب مشاركة قام بنشر يناير 4, 2017 14 دقائق مضت, jjafferr said: اذا تحذف تذييل المجموعة ، فتذييل الصفحة يظهر لك في كل صفحة ، هل هذا الحل مقبول؟ جعفر بيظهر آخر الصفحة أنا أريده أن يظهر عقب نهاية الجدول مباشرة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 4, 2017 مشاركة قام بنشر يناير 4, 2017 تفضل انا غيّرت اسماء الحقول التالية كما هو باللون الاحمر: . والكود التالي يقوم بالعمل المطلوب Option Compare Database 'have the value of show_Footer availabe, always in the Report Private show_Footer As Integer 'if we have the GroupFooter visible, we turn PageFooter items invisible Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer) show_Footer = 1 End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) If show_Footer = 1 Then Me.lbl_School_Footer.Visible = False Me.lbl_2.Visible = False show_Footer = 0 Else Me.lbl_School_Footer.Visible = True Me.lbl_2.Visible = True End If End Sub . والنتيجة . جعفر 521.Sheet.accdb.zip رابط هذا التعليق شارك More sharing options...
أحمد محمد عبد المعبود قام بنشر يناير 4, 2017 الكاتب مشاركة قام بنشر يناير 4, 2017 شكراً جزاك الله خيرا تم المطلوب جربت الكود التالي ولم يظهر التذييل في صفحة واحدة لو تفسر لي السبب جزاك الله خيرا Option Compare Database Private show_Footer As Integer Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer) show_Footer = 1 End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) If show_Footer = 1 Then Me.PageFooterSection.Visible = False show_Footer = 0 Else Me.PageFooterSection.Visible = True End If End Sub 521.Sheet.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 4, 2017 مشاركة قام بنشر يناير 4, 2017 عفوا ، لوسمحت توضح اكثر ، وبما اننا عندنا المرفق ، فاخبرني برقم الصفحة من التقرير ، ووو ، ورجاء بالتفصيل جعفر رابط هذا التعليق شارك More sharing options...
أحمد محمد عبد المعبود قام بنشر يناير 6, 2017 الكاتب مشاركة قام بنشر يناير 6, 2017 الصفحة 3 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 7, 2017 مشاركة قام بنشر يناير 7, 2017 السلام عليكم تم تغيير الكود الى: Option Compare Database 'have the value of show_Footer availabe, always in the Report Private show_Footer As Integer 'if we have the GroupFooter visible, we turn PageFooter items invisible Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer) show_Footer = 1 End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) If show_Footer = 1 Then Cancel = True show_Footer = 0 End If End Sub Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) ' If Me.RowCount Mod 47 = 0 Then ' Detail.ForceNewPage = 2 ' after section ' Else ' Detail.ForceNewPage = 0 ' none ' End If End Sub . جعفر 521.1.Sheet.accdb.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.