goldposition قام بنشر أبريل 16, 2019 مشاركة قام بنشر أبريل 16, 2019 (معدل) السلام عليكم ورحمة الله وبركاته في الملف المرفق محتاج احدد الاعمد المراد طباعتها واحذف باقي الاعمده مع العلم اني لو حذفت عمود من النص كلهم يترتبو جمب بعضهم وشكرا Database1.accdb تم تعديل أبريل 16, 2019 بواسطه goldposition add رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 16, 2019 مشاركة قام بنشر أبريل 16, 2019 وعليكم السلام ورحمة الله وبركاته 🙂 عملت تغيير في اسماء الحقول في النموذج ، حتى تشير الى نوع الحقل المطلوب العمل عليه ، والنتيجة: . . وهذا هو الكود في حدث فتح التقرير Private Sub Report_Open(Cancel As Integer) 'keep orignal widths in a temp place 'num If Len(Me.num.Tag & "") = 0 Then Me.num.Tag = Me.num.Width End If 'name If Len(Me![name].Tag & "") = 0 Then Me![name].Tag = Me![name].Width End If 'tel If Len(Me.tel.Tag & "") = 0 Then Me.tel.Tag = Me.tel.Width End If 'now take the required fields from Form1 'num If Forms!Form1!chk_num = -1 Then Me.num.Width = Me.num.Tag Me.num.Visible = True Else Me.num.Width = 0 Me.num.Visible = False End If 'name If Forms!Form1!chk_name = -1 Then Me![name].Width = Me![name].Tag Me![name].Visible = True Else Me![name].Width = 0 Me![name].Visible = False End If 'tel If Forms!Form1!chk_tel = -1 Then Me.tel.Width = Me.tel.Tag Me.tel.Visible = True Else Me.tel.Width = 0 Me.tel.Visible = False End If End Sub جعفر 1039.Database1.accdb.zip 1 رابط هذا التعليق شارك More sharing options...
goldposition قام بنشر أبريل 18, 2019 الكاتب مشاركة قام بنشر أبريل 18, 2019 تسلم هو ده المطلوب جراك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان