AW: Textfelder überprüfen und zurückgeben
29.03.2021 11:32:53
volti
Hallo Stefan,
Du kannst die Felder z.B. mit einer SELECT CASE-Abfrage alle einzeln überprüfen und jeweils sofort wieder in das zu bearbeitende Feld springen oder z.B. vor dem Schließen eine Gesamtlage herausgeben.
Ein ausbaufähiges Beispiel für die Gesamtlage findest Du nachfolgend:
Code:
[Cc]
Option Explicit
Private Sub CommandButton1_Click()
Dim obj As Object, bCheck As Boolean
For Each obj In Me.Controls
If obj.Name Like "TextBox*" Then
If obj.Value <> "" Then
obj.BackColor = RGB(255, 100, 100)
bCheck = True
Else
obj.BackColor = vbWhite
End If
End If
Next obj
If bCheck Then
Me.Repaint
MsgBox "Bitte noch die rot hinterlegten Felder noch leeren!", vbCritical, "Eingabekontrolle"
Exit Sub
End If
Unload Formular
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz