99عمرو قام بنشر يناير 17, 2017 قام بنشر يناير 17, 2017 (معدل) الاخوه الافاضل انا اريد عمل تقرير بعدد كل الخانات الموجوده بالجدول عندى ولكن بعض الخانات فارغه لا اريد ظهورها فى الطباعه ايه الحل تم تعديل يناير 17, 2017 بواسطه 99عمرو
Shivan Rekany قام بنشر يناير 18, 2017 قام بنشر يناير 18, 2017 16 ساعات مضت, 99عمرو said: الاخوه الافاضل انا اريد عمل تقرير بعدد كل الخانات الموجوده بالجدول عندى ولكن بعض الخانات فارغه لا اريد ظهورها فى الطباعه ايه الحل استخدم هذا الكود عند فتح التقرير Private Sub Report_Load() Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then ctl.Visible = False Else ctl.Visible = True End If End If Next ctl End Sub ووافينا بالنتيجة
99عمرو قام بنشر يناير 19, 2017 الكاتب قام بنشر يناير 19, 2017 تمام اخى ظبط الكود معظم الخانات ما عادا خانتان 0موظفين.rar
Shivan Rekany قام بنشر يناير 20, 2017 قام بنشر يناير 20, 2017 3 ساعات مضت, 99عمرو said: فى انتظار ردك غدا ان شاء الله راح اشوفه
Shivan Rekany قام بنشر يناير 21, 2017 قام بنشر يناير 21, 2017 20 ساعات مضت, 99عمرو said: فى انتظارك شوف النتيجه ووافينا 0موظفين.rar
99عمرو قام بنشر يناير 21, 2017 الكاتب قام بنشر يناير 21, 2017 تمام ظبطت بس هى نفس الكود لا تغيير فكيف ظبطت! وتصادف مشكله انه لايظهر البيانات الموجوده بالفعل
Shivan Rekany قام بنشر يناير 21, 2017 قام بنشر يناير 21, 2017 27 دقائق مضت, 99عمرو said: تمام ظبطت بس هى نفس الكود لا تغيير فكيف ظبطت! وتصادف مشكله انه لايظهر البيانات الموجوده بالفعل افتح التقرير بواسطة النموذج ووافيني بالنتيجة
99عمرو قام بنشر يناير 21, 2017 الكاتب قام بنشر يناير 21, 2017 عند فتح التقرير من النموذج يظهر اماكن لبعض الاماكن الان وقمت بانشاء تقرير جديد من الجدول وعند فتحه لاتظهر البيانات الموجوده 0موظفين.rar
Shivan Rekany قام بنشر يناير 21, 2017 قام بنشر يناير 21, 2017 30 دقائق مضت, 99عمرو said: عند فتح التقرير من النموذج يظهر اماكن لبعض الاماكن الان وقمت بانشاء تقرير جديد من الجدول وعند فتحه لاتظهر البيانات الموجوده 0موظفين.rar اذا تشوف نظرة الى استعلام الاول راح تشوف ان بها عدد 2 من كومبوبوكس وحين انت قلت لي بيظهر حقلين وبيختفي الاخر انا عملت تحويل ذاك الحقلين كومبوبوكس الى حقل تيكست بوكس وبعدين بيختفي كل الحقول لانه كان كله من نوع تيكست بوكس الان تقرير الثاني بها نفس الشي حقلين من كومبوبوكس لكن بدل ان تستخدم تحويل الى نوعية تكست بوكس استخدم هذا الكود بدل الكود السابق Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If IsNull(ctl) Then ctl.Visible = False Else ctl.Visible = True End If End If Next ctl لكن بعد بها حقل اخر وهو حقل اتيجمانت اي يعني للصور و ايكونات لذا ما عرفت كود للتطبيق على كل حقول اتيجمانت لذا اكتب هذا الكود If Me.m15.AttachmentCount = 0 Then Me.m15.Visible = False Else Me.m15.Visible = True End If مع تقدير
99عمرو قام بنشر يناير 21, 2017 الكاتب قام بنشر يناير 21, 2017 (معدل) سلمت يدالك اخى فعلا تتبقى مشكلة اخيره و هى الليبل مسمى الخانات بجانب الخانات يظل موجود ولا يختفى مع الخانات المختفيه تم تعديل يناير 21, 2017 بواسطه 99عمرو
Shivan Rekany قام بنشر يناير 21, 2017 قام بنشر يناير 21, 2017 11 دقائق مضت, 99عمرو said: سلمت يدالك اخى فعلا تتبقى مشكلة اخيره و هى الليبل مسمى الخانات بجانب الخانات يظل موجود ولا يختفى مع الخانات المختفيه الليبل العناوين مش خاليه لذا ما يضبط ذاك الكود عليه لكن انتظرني لعل اجد له الحل 1
99عمرو قام بنشر يناير 21, 2017 الكاتب قام بنشر يناير 21, 2017 (معدل) ما رايك بالكود هكذا ولكن به شيىء ناقصDim ctl As ControlDim strLabel As StringFor Each ctl In Me.Detail.Controls If ctl.ControlType = acTextBox And IsNull(ctl) Then strLabel = ctl.Name & " Label" ctl.Visible = False End IfNext تم تعديل يناير 21, 2017 بواسطه 99عمرو
jjafferr قام بنشر يناير 21, 2017 قام بنشر يناير 21, 2017 السلام عليكم هل هذا الكود سيحل المشكلة؟ Private Sub Report_Load() Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then ctl.Visible = False If ctl.Name = "m7" Then Me.Label4.Visible = False If ctl.Name = "m8" Then Me.Label5.Visible = False If ctl.Name = "m9" Then Me.Label6.Visible = False Else ctl.Visible = True End If 'IsNull End If 'ControlType Next ctl End Sub . جعفر
Shivan Rekany قام بنشر يناير 21, 2017 قام بنشر يناير 21, 2017 (معدل) الحل الوحيد امامي هو ان تضيف هذا الكود في اسفل الكود السابق اي في اسفل كلمة نيكست لكن انا مش راضي لهذا الكود لان لازم تكتب لكل ليبل لنفسه If Me.m1.Visible = False Then Me.Label1.Visible = False مثلا اسم عنوان حقل مي 1 هو ليبل 1 لذا كتبنا اذا مى 1 بيكون مخفي خلي ليبل 1 بيكون مخفي ولازم تكتب لكل حقول هكذا احنا نكدر ان نخفي كل ليبل بسوى لكن بها اسماء لذا انا اجد بس هذه الطريقة لذا ارجوا من اساتذنا من لدية طريقة افضل ان يخبرنا مع تقدير اسف استاذي جعفر القدير بعد انا عملت مشاركة رأيت مشاركتك تم تعديل يناير 21, 2017 بواسطه Shivan Rekany 1
jjafferr قام بنشر يناير 21, 2017 قام بنشر يناير 21, 2017 9 دقائق مضت, Shivan Rekany said: مثلا اسم عنوان حقل مي 1 هو ليبل 1 لذا كتبنا اذا مى 1 بيكون مخفي خلي ليبل 1 بيكون مخفي ولازم تكتب لكل حقول هكذا احنا نكدر ان نخفي كل ليبل بسوى لكن بها اسماء بالضبط اخي شفان ، هذه الطريقة اللي اقترحها انا كذلك ، ولك السبق فيها الطريقة هي ان تسمي كل ليبل بمسمى الحقل الذي يرافقه ، هكذا الحقل: m5 الليبل: lbl_m5 فاذا عملنا هذا ، فيمكن استخدام هذا الكود المختصر on error resume next Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then ctl.Visible = False Me("lbl_" & ctl.Name).Visible = False Else ctl.Visible = True End If 'IsNull End If 'ControlType Next ctl جعفر 1
Shivan Rekany قام بنشر يناير 21, 2017 قام بنشر يناير 21, 2017 1 دقيقه مضت, jjafferr said: بالضبط اخي شفان ، هذه الطريقة اللي اقترحها انا كذلك ، ولك السبق فيها الطريقة هي ان تسمي كل ليبل بمسمى الحقل الذي يرافقه ، هكذا الحقل: m5 الليبل: lbl_m5 فاذا عملنا هذا ، فيمكن استخدام هذا الكود المختصر on error resume next Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then ctl.Visible = False Me("lbl_" & ctl.Name).Visible = False Else ctl.Visible = True End If 'IsNull End If 'ControlType Next ctl جعفر فكرة حلوة استاذ شكرا لك لهذه الفكرة
jjafferr قام بنشر يناير 21, 2017 قام بنشر يناير 21, 2017 السلام عليكم اخي عمرو حاولت ارسل لك رسالة على الخاص ، ولكن الظاهر انك لا تسمح بالرسائل الخاصة !! رجاء الكتابة لي على الخاص ، حتى تستطيع استلام رسالتي شكرا جعفر
99عمرو قام بنشر يناير 21, 2017 الكاتب قام بنشر يناير 21, 2017 (معدل) اخى جعفر للاسف لا اعرف كيف ارسل لك على الخاص لا ارى اى رسائل او خيارات تتيح ليح التحكم فى فتح الرسائل ]ممكن التواصل على الاميل اذا رغبت 2 ساعات مضت, Shivan Rekany said: فكرة حلوة استاذ شكرا لك لهذه الفكرة هذا الحل اخى نجح بالفعل و لكن يتبقى جزء اخير ليكمل ففى حاله الكتابه فى خانه واحده لاول شخص تظهر جميع الخانات الفارغه لبقية الاشخاص تم تعديل يناير 21, 2017 بواسطه jjafferr تم حذف الايميل الخاص
jjafferr قام بنشر يناير 21, 2017 قام بنشر يناير 21, 2017 هكذا ترسل الرسائل الخاصة: 1. تضع الفأرة على الاسم او الشعار ، فتأتيك النافذة التالية ، 2. تضغط على الرسالة ، ثم تكتب الرسالة . جعفر
99عمرو قام بنشر يناير 22, 2017 الكاتب قام بنشر يناير 22, 2017 اخى جعفر لقد حاولت بالفعل ولكن لا يوجد و انظر بنفسك
jjafferr قام بنشر يناير 22, 2017 قام بنشر يناير 22, 2017 1 ساعه مضت, 99عمرو said: وهذه هى المشكله الاخيره اخى جعفر عفوا اخي عمرو ، فسؤالك موجه الى للأستاذ شفان ، حيث انه هو الذي ساعدك في الاجابة ، وانا تطفّلت بالجزئية الاخيرة فقط هذا السوال راح يسألك الاستاذ شفان كذلك: الاسم موجود ، فهل تريد ان تخفي السطر كاملا؟ جعفر
99عمرو قام بنشر يناير 22, 2017 الكاتب قام بنشر يناير 22, 2017 الاسم كما هو فى الصوره موجود ولكن الخانه بجانبه ليس مكتوب بها شيىء و لذلك اريدها ان تكون غير ظاهره
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.