PDA

Vollständige Version anzeigen : schleife


gadget
12.07.2006, 08:00
wie kann ich mit hilfe einer schleife alle text felder in eingem formular überprüfen ob diese gleich 0 sind

wie schreibt man das an??

danke

SWR
12.07.2006, 08:25
Als Grundgerüst so:

Private Sub Befehl3_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then 's. "ControlType"-Auflistung in der Hilfe
If Me(ctl.Name) = 0 Then
MsgBox "Textbox " & Me(ctl.Name).Name & " hat Wert 0"
End If
End If
Next ctl
End Sub