PDA

Vollständige Version anzeigen : Datumfeld auf Null prüfen


Zeroblue_Mike
03.05.2011, 16:37
Hallo Zusammen,

ich versuche eine kleine If Else Abfrage und möchte erreichen, dass dies klappt:


If Me!datum1 = Not Null Then Me!status = "offen"
Else
Me!status = null
End If


Meine Frage: Warum klappt das nicht ?

gpswanderer
03.05.2011, 16:47
Hallo,
Warum klappt das nicht ?
weil es falsch ist. :grins:
If IsNull(Me!datum1) Then Me!status = "offen"
Else
Me!status = null
End If

Lanz Rudolf
03.05.2011, 16:59
Hallo
oder einfach

If IsDate(Me!datum1) Then
Me!status = Nulll
Else
Me!status = "offen"
End If
möglich das Du auch Dein If so machen musst:
If IsDate(Me!datum1.Value)

denn NULL ist KEIN gültiges Datum
auch ein Leeschlag (Chr(34)) ist KEIN Datum

Klicke um mehr zu erfahren auf den Link in meiner Fusszeile hinter Meine Doc
öffne die Pdf-datei
Lises ab seite 223 (9 Umgang mit NULL)
evtl. das ganze kapitel 9

Zeroblue_Mike
04.05.2011, 06:59
Super das hat geklappt, mit isDate!!! Jetzt würde ich das ganze gerne etwas erweitern! Um ein Textfeld und noch ein Datumsfeld. Es sollen also mehrere Bedingungen erfült sein. Wie gehe ich da ran:

If IsDate(Me!datum1) Then
Me!status = "1datum vorhanden"
Else
Me!status = "1kein Datum vorhanden"
End If


Das zweite Datumfeld heisst: "Datum2" und das Textfeld "Name"

Es geht mir hierbei um die Syntax, die kann ich dann selbst erweitern!!! ich denke so ist das schon ganz OK aber da fehlt wohl noch was in Zeile 2 oder?


If IsDate(Me!datum1)
if IsNull(me!name)
If IsDate(Me!datum2) Then
Me!status = "name u. 1+2datum vorhanden"
Else
Me!status = "kein Datum vorhanden"
End If


Danke für euere Hilfe!!!

gpswanderer
04.05.2011, 08:23
Hallo,
so vieleicht:
If IsDate(Me!datum1) And IsDate(Me!Datum2) And Not IsNull(Me!Name) Then
Me!status = "name u. 1+2datum vorhanden"
Else
Me!status = "Es fehlen Werte"
End If

PS:
Ich würde Dir dringend raten auf einen Feldnamen "Name" zu verzichten. Nimm lieber "Nachname" etc.

Lanz Rudolf
04.05.2011, 08:34
Hallo
verstehe nicht ganz meinst Du so was:

If IsDate(Me!datum1)
Me!status = "1datum vorhanden"
else
Me!status = "kein 1Datum vorhanden"
if Len(""&(me!name.value)>0
Me!status = Me!status & " Name OK"
else
Me!status = Me!status & " Name Nicht OK"
If IsDate(Me!datum2) Then
Me!status = Me!status & = " 2datum vorhanden"
Else
Me!status = Me!status & " kein 2 Datum vorhanden"
End if
End if
End If

if Len(""&(me!name.value)>0 dazu Lese auch in meiner Doc wie oben angageben ;) spz. seite 229

Ich würde Dir dringend raten auf einen Feldnamen "Name" zu verzichten. Nimm lieber "Nachname" etc.
das würde ich auch dazu lies in meiner Doc auf Seite 26 ....
achtung wenn noch leerschlag (Spacebar) möglich währe ist ja auch leer ! s. Bspl. 7/8)

Zeroblue_Mike
04.05.2011, 08:52
Hi, jo so ähnlich. habe es jetzt aber gerade hinbekommen:


If IsDate(Me!datum1.Value) And Not IsNull(Me!name.Value) And IsDate(Me!datum2.Value) And IsDate(Me!datum3.Value) Then
Me!status.Value = "name u. 1+2+3 Datum vorhanden"
Else
Me!status.Value = "Daten unvollständig"
End If


Danke für deine Hilfe!!!