Eingabeprüfung bei Textfeldern

Sprache / Programm: Access ab Version 97

Beschreibung

In Formularen wird oft verlangt, daß eine Eingabe in Kombinations- oder Textfelder gemacht wird.

Die Funktion prüft ob eine Eingabe erfolgt ist.

VBA-Quelltext

Public Sub EingabePrüfung(ParamArray SteuerElemente())
Dim EingabeFeld
For Each EingabeFeld In SteuerElemente
If NZ(EingabeFeld.Value) = vbNullString Then
EingabeFeld.SetFocus
MsgBox "Eingabe fehlt", , "Eingabeüberprüfung"
End
End If
Next EingabeFeld
End Sub

Argumente der Funktion/Prozedur

Anwendungsbeispiel(e)...

Die Codezeile

EingabePrüfung Me.Name, Me.Vorname, Me.PLZ

prüft, ob in den Steuerelementen 'Name', 'Vorname' und 'PLZ' eine Eingabe gemacht wurde.

Anwendungsgebiete, Fehler und Warnungen

Spezielle Probleme sind zu erwarten, wenn Sie ein Steuerelement 'Name' haben, da Me.Name sowohl als Name des Formulars (Datentyp String) als auch das Steuerelement Name (Datentyp Objekt) sein kann.