for i=1 to 100 next i problem

[jaanisf]

If my labels' names are d1, d2, d3, etc.., how should I handle this?

4th row needs to be handled differently, but how?

Private Sub btnshod_Click()
Dim di
For di = 1 To 27
Me!d & (di + 5) &.Caption = Left(Date + di, 2)
Next di
End Sub

 

[jaanisf]

Private Sub btnshod_Click()
Dim di
For di = 1 To 27
Me("d" & di + 5).Caption = Left(Date + di, 2)
Next di
End Sub

found it by myself, never mind

 

[Savil]

Not quite sure what you mean by fourth row but here goes

Private Sub btnshod_Click()
Dim di
For di = 1 To 27
if di = 4 then
blah blah blah
else
Me!d & (di + 5) &.Caption = Left(Date + di, 2)
end if
Next di
End Sub

If this is not what you want can you explain it more.

 

[jaanisf]

Heh, Savil, I meant that the 4th row gives an error and has to be handled differently
But I found it, I should use this
Me("d" & di + 5).Caption = Left(Date + di, 2)
instead of
Me!d & (di + 5) &.Caption = Left(Date + di, 2)