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

elghoultk · سبتمبر 18, 2020

السلام عليكم

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

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

وشكرا مقدما

Database1.zipFetching info...

**محمد أبوعبدالله** · سبتمبر 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.zipFetching info...

تحياتي

elghoultk · سبتمبر 19, 2020

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

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

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

A B C

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

D E

تختفي دائما

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

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

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

مرفق الملف

Database1.accdbFetching info...

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

في 19‏/9‏/2020 at 15:54, elghoultk said:

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

D E

تختفي دائما

Expand

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

في 19‏/9‏/2020 at 15:54, elghoultk said:

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

Expand

تم

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

Database1.zipFetching info...

تخياتي

elghoultk · سبتمبر 19, 2020

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

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

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

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

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

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

في 19‏/9‏/2020 at 17:17, elghoultk said:

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

Expand

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

DoCmd.OpenReport "rpt", acViewPreview

بهذا

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

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

في 19‏/9‏/2020 at 17:17, elghoultk said:

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

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

Expand

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

تحياتي

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

في 19‏/9‏/2020 at 18:47, محمد أبوعبدالله said:

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

Expand

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

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

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