اخفاء الحقول الفارغه في تقرير يتم فتحه من نموذج

elghoultk · سبتمبر 18, 2020

السلام عليكم

عندي نموذج فيه 5 بيانات لكل عميل اريد عمل تقرير يعرض فقط الحقول التي فيها بيانات للعميل الموجود في النموذج ويتم اخفاء باقي البيانات وما تشمله من وحده

مرفق الملف المطلوب تعديله

وشكرا مقدما

Database1.zip

**محمد أبوعبدالله** · سبتمبر 18, 2020

وعليكم السلام ورحمة الله وبركاته

مرحبا اخي الكريم

تسمية الحقول 1 ، 2 ، 3 ... الخ خطأ ويُحدث تعارض ومشاكل في الاكواد

قمت باعادة التسمية A ، B ، C

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

    If IsNull(Me.a) Then
        a.Visible = False
    End If
    
    If IsNull(Me.B) Then
        B.Visible = False
    End If
    
    If IsNull(Me.C) Then
        C.Visible = False
    End If
    
    If IsNull(Me.D) Then
        D.Visible = False
    End If
    
    If IsNull(Me.E) Then
        E.Visible = False
    End If
    
End Sub

Database1.zip

تحياتي

elghoultk · سبتمبر 19, 2020

اخى العزيز \ محمد أبوعبدالله

اشكرك علي اهتمامك ومرورك الكريم

الكود الذي ادخلته يعمل علي الحقول

A B C

فقط بينما الحقول

D E

تختفي دائما

السؤال الثاني : اريد ان اخفي ايضا الليبل التابع للحقوب الموجوده في التقرير

كذلك عندما نخفي حقل من اعلي اود ان يرتفع الحقل الاسفل مكانه

اسف للاطاله وجزاك الله خيرا

مرفق الملف

Database1.accdb

**محمد أبوعبدالله** · سبتمبر 19, 2020

4 دقائق مضت, elghoultk said:

فقط بينما الحقول

D E

تختفي دائما

يعمل مع جميع الحقول بدون مشاكل ان شاء الله وتم اخفاء الحقول التي ليس بها بيانات

5 دقائق مضت, elghoultk said:

السؤال الثاني : اريد ان اخفي ايضا الليبل التابع للحقوب الموجوده في التقرير

تم

راجع المرفق بارك الله فيك

Database1.zip

تخياتي

elghoultk · سبتمبر 19, 2020

الغالي محمد أبوعبدالله

عند اخفاء الحقل الاول والليبل التابع له يظل مكانه فارغا

اريد ان يرتفع الحقل الاسفل منه ليحل مكانه لتختفي الفراغات

كذلك عند اللانتقال من النموذج الي التقرير اريد ان يفتح التقرير علي نفس السجل كنوع من عوامل التصفيه

جعل الله مساعدتك في ميزان حسناتك

**محمد أبوعبدالله** · سبتمبر 19, 2020

منذ ساعه, elghoultk said:

كذلك عند اللانتقال من النموذج الي التقرير اريد ان يفتح التقرير علي نفس السجل كنوع من عوامل التصفيه

استبدل السطر التالي

DoCmd.OpenReport "rpt", acViewPreview

بهذا

DoCmd.OpenReport "rpt", acViewPreview, , "ID = " & ID

======================================

منذ ساعه, elghoultk said:

عند اخفاء الحقل الاول والليبل التابع له يظل مكانه فارغا

اريد ان يرتفع الحقل الاسفل منه ليحل مكانه لتختفي الفراغات

ارجو ان يكون لدى الاخوة حل لهذا

تحياتي

**jjafferr** · سبتمبر 19, 2020

41 دقائق مضت, محمد أبوعبدالله said:

ارجو ان يكون لدى الاخوة حل لهذا

ممكن تغيير ارتفاع الحقل الى صفر 🙂

في حدث "عند تنسيق" التقرير :

image.png.be60f08afac3c37a1e814e268849ec7f.png

.

نأخذ لفة في كائنات التقرير ، والحقل اللي رقمه "كما هو في النموذج" 1 و 2 و 3 و 4 و 5 ، يا اننا نظهرهم بارتفاع الحقل العادي ، او نخفيهم ويكون ارتفاع الحقل صفر ، حسب قيمتهم :

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    Dim ctl As Control
    Dim i As Integer
    Dim myFields As String
    
    myFields = "1,2,3,4,5"
    
    For Each ctl In Me.Controls
        
        ' only a textbox, and our fields names
        If ctl.ControlType = acTextBox And InStr(myFields, ctl.name) > 0 Then
        
            If Len(ctl.Value & "") > 0 Then
                ctl.Visible = True
                ctl.Height = 1440 * 0.25
                
            Else
                ctl.Visible = False
                ctl.Height = 0
            End If
        
        End If  'ctl.type
        
    Next

End Sub