Schleife macht mich rappelig!
10.12.2008 22:01:00
Mister
eine Schleife bringt mich zum verzweifeln. Wenn in CheckBox 76 - 99 keinen Haken ist und gleichzeitig Label 100 - 124 nicht leer ist (Caption), dann sollen Images 1 - 24 eingeblendet werden. Hier der Code:
Private Sub CommandButton3_Click()
Dim i As Integer
For i = 100 To 123
If Me.Controls("CheckBox" & i - 24).Value = False And Me.Controls("Label" & i).Caption "" _
Then
Me.Controls("Image" & i - 99).Visible = True
End If
Next
End Sub
Die Schleife funktioniert an sich nur ich möchte gleichezeitig eine Fehlermeldung einblenden, dass alle Bewegungen nicht vollzogen worden sind. Ich krieg's einfach nicht hin. Wer kann helfen?
Gruß
Martin