Скрытие пустых полей в отчете

Option Compare Database
Option Explicit                            'Очень желательная опция. Позволяет избежать многих ошибок
 
Dim h4, t6                                 'Создаем переменные уровня модуля
 
Private Sub Report_Open(Cancel As Integer)
    h4 = Me.Поле4.Height                   'Запоминаем высоту Поле4
    t6 = Me.Поле6.Top                      'Запоминаем топ Поле6
End Sub
 
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
    If IsNull(Me.Поле4) Then
        Me.Поле4.Visible = False
        Me.Поле6.Top = t6 - h4             'Вычитаем из топа поля6 высоту поля4 когда поле4 пусто
        Me.Поле6.Controls(0).Top = t6 - h4 'То же самое для надписи поля4
    Else
        Me.Поле4.Visible = True
        Me.Поле6.Top = t6                  'Восстанавливаем высоты при непустом поле4
        Me.Поле6.Controls(0).Top = t6
    End If
End Sub

Private Sub Врач_Click()
Dim s1, s2, S3
s1 = "delete * from tpechat1"
DoCmd.RunSQL s1
s2 = "" & Me.Врач
If Len(s2) = 0 Then Exit Sub
P1 "врач:" & s2, 20, 1, 2
S3 = Me.RecordSource
 
Set RST2 = CurrentDb.OpenRecordset("SELECT * FROM [" & S3 & "] WHERE [врач]='" & s2 & "' ORDER BY Фамилия")
'Debug.Print Me.Recordset.SQL
Debug.Print RST2.Name
Do While RST2.EOF = False
P1 RST2!Фамилия & " " & RST2!Имя & " " & RST2!Отчество, 12, 1, 2
P1 "ОПЛАТА:" & RST2!Оплата
P1 "Рост:" & RST2!Рост
P1 "Артериальное давление:" & RST2!АДс
RST2.MoveNext
Loop
RST2.Close
''RST2.MoveFirst
Set RST2 = Nothing
End Sub

   If IsNull(Me.Поле4) Then
        Me.Поле4.BottomMargin = 0
        Me.Поле4.TopMargin = 0
        Me.Поле4.Height = 0
        Me.Поле4.Visible = False
     End If