Validierung für Date/Time Feld

[Tina]

Hi @all!
Ich habe ein Problem mit der Validierung eines Datums-Feldes. Die Situation:

Ich habe eine Aufgaben DB, in deer Aufgaben eingegeben werden können. Bei den Aufgaben kann ein Termin angegeben werden. Habt ihr nen Tipp wie ich auf gültiges, bzw ungültuges Datum prüfen kann??
Hier der Codeschnipsel was ich bis jetzt hinbekommen habe (erkennt das es ein ungültiges Datum ist, nur bei gültigem Datum fliegt er mit ner Fehlermeldung raus)
Das ganze steht im Querysave der Maske:

'-- Termin
varDatTest = doc.kbTermin '--> Hier steht der eingegebene Termin drin
If Not (varDatTest = Null)) Then
   If doc.kbtermin(0) ="" Then
      strValText = strValText + "Termin -> Das Datum darf nicht leer sein" & Chr$(13)
   Else      
      If doc.kbtermin(0) < Today Then
        strValText = strValText + "Termin -> Das Datum darf nicht in der Vergangenheit liegen" & Chr$(13)
      Else         
        If Not Isdate(doc.kbtermin(0)) Then
            strValText = strValText + "Termin -> Bitte geben Sie einen gültigen Datumswert ein" & Chr$(13)
        End If
      End If
   End If
Else
   strValText = strValText + "Termin -> Bitte geben Sie einen gültigen Datumswert ein" & Chr$(13)
End If

[mibo11]

Hallo Tina,

welche Fehlermeldung kommt an welcher Stelle?

Gruß Sascha

[klaussal]

Ich hasse so verschachtelete if's:
Deshalb:

If doc.kbtermin(0) ="" Then
      strValText = strValText + "Termin -> Das Datum darf nicht leer       sein" & Chr$(13)
goto ENDE
End If

If doc.kbtermin(0) < Today Then
        strValText = strValText + "Termin -> Das Datum darf nicht in der Vergangenheit liegen" & Chr$(13)
 goto ENDE
End If
.
.
.
.
ENDE:

So kann ich auch besser nachprüfen, wo und warum er rausfliegt.

klaus      

[Tina]

@mibo11:
Sorry, hatte ich vergessen:

If Not (varDatTest = Null)) Then

An dieser Stelle und es ist ein Type mismatch Fehler. Ich denke, dass wenn dort ein richtiges(gültiges) Datum drinsteht, kann er es nicht auf Null prüfen, oder denke ich falsch??

@Klauss:
Wenn ich mit Goto's anfange dann sind meine Ausbilder nicht wirklich froh...

[mibo11]

Hallo Tina,

wenn ich das richtig interpretiere handelt es sich bei dem Feld kbTermin um ein Datumsfeld, dadurch müsste Notes beim Aktualisieren des Feldes automatisch eine Fehlermeldung generieren sobald ein ungültiges Datum eingegeben wurde. Dadurch kannst du dir wahrscheinlich dein erstes IF sparen.

Korrigiere mich bitte wenn ich falsch liegen sollte.

Gruß Sascha

[klaussal]

@Tina,
dann lass mal deine Ausbilder sich diese Verschachtelung in 5 Monaten wieder ansehen. Die fangen dann erst einmal an nachzudenken, was da gemacht wird.

klaus


Das kbTermin würd ich ja bei einem neuen Doc mit Tagesdatum vorbelegen.
Ansonsten  If Trim(doc.kbTermin(0)) = "" then.....

[Tina]

@Sascha:
Natürlich generiert Notes ne Fehlermeldung (variant does not contain a container), doch die Anwender verstehen die, denk ich mal nicht, außerdem zieht das noch nen langen "Rattenschwanz" hinter sich her. Da kommt nämlich nicht nur eine Meldung (unable to interpret Date/Time).
@Klauss:
Was soll ich denn sonst machen (ohne Goto's)?

Deinen Vorschlag hab ich auch schon probiert, der ist ja auch in der Validierung mit drin, auch das Vorbelegte Feld, nur was ist wenn der Anwender meint, er gibt selber das DAtum ein und vertut/vertippt sich??

[m3]

1) Du moechtest statt varDatTest = Null die IsNull() Funktion verwenden
2) Die  geschachtelten IFs lassen sich mittels ElseIf auch ohne GoTo schoener aufloesen.

[klaussal]

@Tina,

ist der kbTermin ein Kalender/Uhrzeit-Steuerelemnt ? Da kann mann/frau im Prinzip kein ungültiges Datum eingeben. Wenn doch, dann kommt eben besagte Fehlermeldung. Das ist aber da gleiche, wie wenn ich in eine Zahlenfeld Buchstaben eingebe... 


klaus

[Tina]

@m3:
das isNull() funzt net! da erkennt er nicht das varDatTest leer oder Null ist.
Mit den Elseif s schau ich mal, danke!

@Klaus:
es ist ein Date/Time Control, wenn die User reinklicken, können sie doch per hand nen Datum eingeben, und wenn das nicht stimmt, dann knallts in meiner Anwendung.

[klaussal]

@Tina

dann knallt's nicht, sonder LoNo meckert.... 

klaus

[Tina]

Hast ja recht!

Kann man nirgends sonst die Falscheingabe abfangen? Im Input Validation hab ich es schon probiert, aber das war auch nix!

[m3]

Zum Ueberpruefen, ob ein Feld leer ist, gibts ja auch IsEmpty ( expr )

[klaussal]

@tina,

warum ? Das macht doch LoNo für mich. Ansonsten müsste ich ja prüfen: ist es ein Schaltjahr ? hat der Monat 29 oder 30 oder 31 Tage, etc.... ?

klaus

[Tina]

@Sascha:
Ich glaub, das wars!

@klaus:
Hast ja recht! Warum das Rad neu erfinden, oder wie heißts so schön???

@All:
Danke für eure schnelle Hilfe! Ihr seid doch die Besten!!!!

[klaussal]

Danke für die Blumen 

[koehlerbv]

Warum sowieso so kompliziert ?

Eingabevalidierung: @ (!@IsTime (DatumsFeld); @Failure ("Gemecker"); @Success)

Wenn es erforderlich ist, in LS abzuprüfen (ob überhaupt ein Datum da ist, bevor damit gedealt wird):
If Not (IsDate (NotesDocument.Datumsfeld (0))) then
    Messagebox "Gemecker"
    Else
     'Mach weiter
End If

HTH,
Bernhard

[Tina]

@koehlerbv:
Mit Formel ghts leider nicht, da eine eigene Messagebox ausgegeben werden soll.
Mit IsDate() tuts auch nicht, da versucht Notes das ungültige Datum zu verwursten und fliegt natürlich mit ner netten Fehlermeldung raus.
Glücklicherweise funktionierts jetzt so:

varDatTest = doc.kbTermin
If Not Isempty(varDatTest) Then
  If doc.kbtermin(0) = "" Then
    strValText = strValText + "Termin -> Das Datum darf nicht leer sein" & Chr$(13)
  Else      
    If doc.kbtermin(0) < Today Then
       strValText = strValText + "Termin -> Das Datum darf nicht in der Vergangenheit liegen" & Chr$(13)
    Else         
       If Not Isdate(doc.kbtermin(0)) Then
          strValText = strValText + "Termin -> Bitte geben Sie einen gültigen Datumswert ein" & Chr$(13)
       End If
    End If
  End If
Else
  strValText = strValText + "Termin -> Bitte geben Sie einen gültigen Datumswert ein" & Chr$(13)
End If


Trotzdem Danke für die Hilfe!!!

[koehlerbv]

In welcher Konstellation sollte Dir denn IsDate etwas anderes als True oder False entgegenwerfen ?

Bernhard

[Tina]

Ich bin froh dass es so funzt.
Ich weiß nicht, ob es nur mit isDate funktioniert. Ich hatte das vorher alleine und da hat mir Notes auch bei ungültigen Daten keine Fehlermeldung ausgegeben!