use a variable to approach fields in a report

[daywalker0086]

Hi everybody,
I have a little problem:
Following situation:

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
Dim step As Integer
Dim i As Integer
i = 4
step = 396
Me!Wert7.Visible = Not Nz(Me.Feld19, "") = ""
Me!Wert7.Visible = Not Nz(Me.Feld21, "") = ""
Me!Wert6.Visible = Not Nz(Me.Feld16, "") = ""
Me!Wert5.Visible = Not Nz(Me.Feld13, "") = ""
Me!Wert3.Visible = Not Nz(Me.Feld7, "") = ""

Me!Wert4.Visible = Not Nz(Me.Feld10, "") = ""

Me!Wert2.Visible = Not Nz(Me.Feld4, "") = ""
Me!Wert1.Visible = Not Nz(Me.Feld1, "") = ""
Me!Wert1.Visible = Not Nz(Me.Feld2, "") = ""
Me!Wert1.Visible = Not Nz(Me.Feld3, "") = ""
If Me.Wert1.Visible = False Then

Me.Feld4.Top = 170
Me.Feld5.Top = 170
Me.Feld6.Top = 170
Else
Me.Wert2.Top = 566
Me.Feld4.Top = 566
Me.Feld5.Top = 566
Me.Feld6.Top = 566
End If

what I want:

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
Dim step As Integer
Dim i As Integer
i = 4
step = 396
Me!Wert7.Visible = Not Nz(Me.Feld19, "") = ""
Me!Wert7.Visible = Not Nz(Me.Feld21, "") = ""
Me!Wert6.Visible = Not Nz(Me.Feld16, "") = ""
Me!Wert5.Visible = Not Nz(Me.Feld13, "") = ""
Me!Wert3.Visible = Not Nz(Me.Feld7, "") = ""

Me!Wert4.Visible = Not Nz(Me.Feld10, "") = ""

Me!Wert2.Visible = Not Nz(Me.Feld4, "") = ""
Me!Wert1.Visible = Not Nz(Me.Feld1, "") = ""
Me!Wert1.Visible = Not Nz(Me.Feld2, "") = ""
Me!Wert1.Visible = Not Nz(Me.Feld3, "") = ""
If Me.Wert1.Visible = False Then
   for i = 4 to 7 Step 3
    Me.Feld(i).Top = 170
    Me.Feld(i+1).Top = 170
    Me.Feld(i+2).Top = 170
   Next
Else
Me.Wert2.Top = 566
Me.Feld4.Top = 566
Me.Feld5.Top = 566
Me.Feld6.Top = 566
End If

Is it is possible to use a variable to specify fields?

[pbaldy]

Try

Me("Feld" & i).Top