Hallo,
Ich habe mal wieder eine Frage an euch!
Ich habe ein Formular in dem die User Daten eintragen und per Button wird eine AddNew Anweisung ausgeführt die diese Speichert. Nun wollte ich aber vorher noch prüfen ob der User auch wirklich Daten in die Textfelder eingetragen hat. Weiß allerdings nicht wie ich dies mache. Habe es mal über If…Else…Then usw. probiert, aber die scheiterte natürlich.
Wie kann ich dies nun prüfen?
…verwende Access97…
Ich danke schon mal…
Tschüss
Hallo, Norman!
Ich habe ein Formular in dem die User Daten eintragen und per
Button wird eine AddNew Anweisung ausgeführt die diese
Speichert. Nun wollte ich aber vorher noch prüfen ob der User
auch wirklich Daten in die Textfelder eingetragen hat. Weiß
allerdings nicht wie ich dies mache. Habe es mal über
If…Else…Then usw. probiert, aber die scheiterte natürlich.
Wieso? Wie hast Du das denn gemacht?
Prinzipiell solltest Du ein Textfeld auf Null oder „“ prüfen; ggf. kannst Du auch (mit Trim(…)) die Eingabe von nur Leerzeichen ausschließen.
Wenn Du beliebige Textfelder hast, die alle Pflichteingaben sind, kannst Du folgende Funktion hinter die Schaltfläche legen:
sub Button\_Click
dim bFehler as boolean
bFehler=false
' Textfelder überprüfen...
if not bFehler then
if trim(me.Text1 & "")="" then
' me.Text1 & "" zur gleichzeitigen Prüfung auf NULL und ""
' denn: NULL & "" = ""
' aber: NULL ""
msgbox"Textfeld 1 muss einen Wert enthalten!"
me.Text1.Setfocus
bFehler=true
endif
endif
if not bFehler then
if trim(me.Text2 & "")="" then
msgbox"Textfeld 2 muss einen Wert enthalten!"
me.Text2.Setfocus
bFehler=true
endif
endif
...
if not bFehler then
if trim(me.TextN & "")="" then
msgbox"Textfeld n muss einen Wert enthalten!"
me.TextN.Setfocus
bFehler=true
endif
endif
if not bFehler then
' Datensatz hinzufügen
.AddNew
...
endif
end sub
Gruß, Manfred
Wieso? Wie hast Du das denn gemacht?
Prinzipiell solltest Du ein Textfeld auf Null oder „“ prüfen;
ggf. kannst Du auch (mit Trim(…)) die Eingabe von nur
Leerzeichen ausschließen.Wenn Du beliebige Textfelder hast, die alle Pflichteingaben
sind, kannst Du folgende Funktion hinter die Schaltfläche
legen…
Ich danke Dir für deine schnelle Antwort.
Es sieht schonmal sehr ausführlich aus. Muss es dann nochmal probieren. Ich hatte es nicht gar so lang geschrieben. Hatte es mehr über True und False probiert, was auch zum Teil mal funktionierte, aber halt nur zum Teil. Als ich dann mehrere Felder über ElseIf… ansprechen wollte, funktionierte es garnicht. Aber gut werde dies erst einmal ausprobieren.
Danke
Moien,
mach dir doch einfach eine Funktion…
public function fnccheckLength(myText as string) as boolean
if len(myText) > 0 then fnccheckLength = true
end function
dann kannst du vor dem Start die Üebrprüfung ausführen ala
if fncchecklength(textfeld1) and fncchecklength(textfeld2) and fncchecklength(textfeld3) and usw… then
machwas
else
exit sub
endif
Zudem hast du so ne Funktion die du überall benutzen kannst und je nach Bedarf erweitern…
Gruß
Bernd
Ich Danke euch,
für eure hilfe es hat alles wunderbar funktioniert.
Gruß norman