اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ظهور خانات فارغه بالتقرير


99عمرو

الردود الموصى بها

الاخوه الافاضل انا اريد عمل تقرير بعدد كل الخانات الموجوده بالجدول عندى ولكن بعض الخانات فارغه لا اريد ظهورها فى الطباعه ايه الحل 

تم تعديل بواسطه 99عمرو
رابط هذا التعليق
شارك

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

ووافينا بالنتيجة

رابط هذا التعليق
شارك

27 دقائق مضت, 99عمرو said:

تمام ظبطت بس هى نفس الكود لا تغيير فكيف ظبطت!

وتصادف مشكله انه لايظهر البيانات الموجوده بالفعل

افتح التقرير بواسطة النموذج 
ووافيني بالنتيجة

رابط هذا التعليق
شارك

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

مع تقدير

رابط هذا التعليق
شارك

11 دقائق مضت, 99عمرو said:

سلمت يدالك اخى فعلا تتبقى مشكلة اخيره و هى الليبل مسمى الخانات بجانب الخانات يظل موجود ولا يختفى مع الخانات المختفيه

الليبل العناوين مش خاليه‌ لذا ما يضبط ذاك الكود عليه
لكن انتظرني لعل اجد له الحل

  • Like 1
رابط هذا التعليق
شارك

 

ما رايك بالكود هكذا ولكن به شيىء ناقص
Dim ctl As Control
Dim strLabel As String

For Each ctl In Me.Detail.Controls
    If ctl.ControlType = acTextBox And IsNull(ctl) Then
        strLabel = ctl.Name & " Label"
        ctl.Visible = False

    End If
Next

تم تعديل بواسطه 99عمرو
رابط هذا التعليق
شارك

السلام عليكم:smile:

 

هل هذا الكود سيحل المشكلة؟


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

.

جعفر

رابط هذا التعليق
شارك

الحل الوحيد امامي هو
ان تضيف هذا الكود في اسفل الكود السابق اي في اسفل كلمة نيكست
لكن انا مش راضي لهذا الكود لان لازم تكتب لكل ليبل لنفسه
 

If Me.m1.Visible = False Then Me.Label1.Visible = False

مثلا اسم عنوان حقل مي 1 هو ليبل 1
لذا كتبنا اذا مى 1 بيكون مخفي خلي ليبل 1 بيكون مخفي
ولازم تكتب لكل حقول هكذا
احنا نكدر ان نخفي كل ليبل بسوى لكن بها اسماء 
لذا انا اجد بس هذه الطريقة
لذا ارجوا من اساتذنا من لدية طريقة افضل ان يخبرنا 
مع تقدير
اسف استاذي جعفر القدير
بعد انا عملت مشاركة رأيت مشاركتك

تم تعديل بواسطه Shivan Rekany
  • Like 1
رابط هذا التعليق
شارك

9 دقائق مضت, Shivan Rekany said:

مثلا اسم عنوان حقل مي 1 هو ليبل 1
لذا كتبنا اذا مى 1 بيكون مخفي خلي ليبل 1 بيكون مخفي
ولازم تكتب لكل حقول هكذا
احنا نكدر ان نخفي كل ليبل بسوى لكن بها اسماء

بالضبط اخي شفان ، هذه الطريقة اللي اقترحها انا كذلك ، ولك السبق فيها:smile:

 

الطريقة هي ان تسمي كل ليبل بمسمى الحقل الذي يرافقه ، هكذا

الحقل: 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
    

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

1 دقيقه مضت, jjafferr said:

بالضبط اخي شفان ، هذه الطريقة اللي اقترحها انا كذلك ، ولك السبق فيها:smile:

 

الطريقة هي ان تسمي كل ليبل بمسمى الحقل الذي يرافقه ، هكذا

الحقل: 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
    

 

جعفر

فكرة حلوة استاذ
شكرا لك لهذه الفكرة
 

رابط هذا التعليق
شارك

السلام عليكم اخي عمرو:smile:

 

حاولت ارسل لك رسالة على الخاص ، ولكن الظاهر انك لا تسمح بالرسائل الخاصة !!

رجاء الكتابة لي على الخاص ، حتى تستطيع استلام رسالتي:smile:

 

شكرا

 

جعفر

رابط هذا التعليق
شارك

اخى جعفر للاسف لا اعرف كيف ارسل لك على الخاص لا ارى اى رسائل او خيارات تتيح ليح التحكم فى فتح الرسائل ]ممكن التواصل على الاميل اذا رغبت

2 ساعات مضت, Shivan Rekany said:

فكرة حلوة استاذ
شكرا لك لهذه الفكرة
 

هذا الحل اخى نجح بالفعل و لكن يتبقى جزء اخير ليكمل ففى حاله الكتابه فى خانه واحده لاول شخص تظهر جميع الخانات الفارغه لبقية الاشخاص 

تم تعديل بواسطه jjafferr
تم حذف الايميل الخاص
رابط هذا التعليق
شارك

1 ساعه مضت, 99عمرو said:

وهذه هى المشكله الاخيره اخى جعفر

Untitled.jpg

 

عفوا اخي عمرو ، فسؤالك موجه الى للأستاذ شفان ، حيث انه هو الذي ساعدك في الاجابة ، وانا تطفّلت بالجزئية الاخيرة فقط:smile:

 

هذا السوال راح يسألك الاستاذ شفان كذلك:

الاسم موجود ، فهل تريد ان تخفي السطر كاملا؟

 

جعفر

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information