ممكن تغيير ارتفاع الحقل الى صفر 🙂
في حدث "عند تنسيق" التقرير :
.
نأخذ لفة في كائنات التقرير ، والحقل اللي رقمه "كما هو في النموذج" 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
.
والنتيجة للسجل الثاني:
.
جعفر
1265.Database1.accdb.zip