تجميع الحقول التي بها بيانات في التقرير

[ida]

السلام عليكم اخواني عندي برنامج دوام للعيادات واريد  فقط ان يظهر العيادات الموجودة في التقرير اي اريد ازالة الفرغات بين العيادات في تقرير (tab1 استعلام) كما هو موضح في الصورة

لقد ارفقت لكم البرنامج

ولكم جزيل الشكر

الجدولي اليومي.rar

[jjafferr]

وعليكم السلام 🙂

 

 

.

.

 

ثم في حدث عند تنسيق قسم التفصيل Detail من التقرير ، نضع هذا الكود الذي يخفي الحقل الفارغ ويجعل ارتفاعه = صفر اذا كان الحقل فارغ ، وإلا فيتركه كما هو :

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next

    Dim ctl As Control
    Dim txt As String
    Dim lbl As String
    
    For Each ctl In Me.Controls
        
        If ctl.ControlType = acComboBox Then
            
            txt = ctl.Name
            lbl = ctl.Name & "_تسمية"

            If Me(txt).Text = "" Then
                ctl.Visible = False
                ctl.Height = 0
                Me(lbl).Visible = False
                Me(lbl).Height = 0
            Else
                ctl.Visible = True
                ctl.Height = 0.2188 * 1440
                Me(lbl).Visible = True
                Me(lbl).Height = 0.2188 * 1440
            End If
            
        End If
        
    Next
    
End Sub

.

والنتيجة

.

جعفر

1314.الجدولي اليومي.accdb.zip

[أبوبسمله]

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

جزاك الله خيرا اخى ومعلمنا العزيز جعفر 💐

[ida]

الله يبارك فيك ويكثر من امثالك 

زادك الله علما ونفع بك