Prüfung von Textboxes
Textboxes
der nachstehenden Code überwacht in einem UF, ob die Textboxes alle ausgefüllt sind. Wie könnte ich den Code bzw. die Funktion verändern, damit bei Aktivierung die leeren Textboxes automatisch mit "0,00" gefüllt werden. Zwei Textboxes werden dabei immer eine Summe enthalten, die anderen 6 sind derzeit noch leer, so dass es gilt, diese leeren Boxes zu nullen, wenn die Function angesprochen wird. Danke schon jetzt wieder für die Rückmeldungen.
Herzliche Grüße
Wolfgang
'Funktion zum prüfen der Textboxen 9 bis 16
Function PruefungTextBox() As Boolean
Dim a As Integer
For a = 9 To 16
With Eingabemaske("TextBox" & a)
If .Value = "" Then
PruefungTextBox = True
Exit Function
End If
End With
Next a
PruefungTextBox = False
End Function
Anzeige