Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: wuschel am 03.12.03 - 15:54:45
-
und gleich noch ne Frage:
beim Exiting möchte ich einen Datumswert (Eingangsdatum) überprüfen und dabei mit einem anderen Datumswert (Kundenschreibendatum) vergleichen. Leider steigt mit LN dabei immer aus mit TYPE MISMATCH. Was mach ich falsch (auch CDAT hilft übrigens nicht) ?
Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc = workspace.currentdocument
Set doc = uidoc.document
doc.Eingangsdatum_valid=True
If Date<doc.Eingangsdatum(0) Then
Msgbox "Datum darf nicht in der Zukunft liegen"
doc.Eingangsdatum_valid=False
uidoc.gotofield("Eingangsdatum")
End If
If Year( doc.Eingangsdatum(0) )<2003 Then
Msgbox "Eingangsdatum darf nicht vor 2003 liegen"
doc.Eingangsdatum_valid=False
uidoc.gotofield("Eingangsdatum")
End If
If doc.Eingangsdatum(0) < doc.Kundenschreibendatum(0) Then
Msgbox "Eingangsdatum darf nicht kleiner als Kundenkontaktdatum sein"
doc.Eingangsdatum_valid=False
uidoc.gotofield("Eingangsdatum")
End If
End Sub
-
Du, wir helfen Dir hier gerne, aber wir haben keine Zeit, Deinen Code erstmal bis ins letzte zu analysieren.
In Fällen wie Deinem: Bitte unbedingt die Zeile angeben, in der Dir der Debugger anzeigt, dass ihm was nicht passt - da tun wir uns dann viel leichter.
Hast Du Option Declare vereinbart?
Wo setzt Du den Wert von Date ?
Weiterer Tip: Bevor Du Datumswerte aus Items vergleichst, prüfe immer vorher ab, ob die Items überhaupt Datumswerte enthalten (Isdate).
Schick' mal fix die Angabe, wo der Fehler genau auftritt, dann wird Dir geholfen.
So long,
Bernhard
-
Sorry,
hatte bisher schon häufiger gelesen, dass neben der Problembeschreibung auch der Code aufgeführt werden sollte.
Aber Du hast natürlich recht, dass das noch nicht reicht und ein paar mehr Angaben nötig gewesen wären.
Auf der anderen Seite war der Tip mit isdate genau das, was mir fehlte und damit ist mein Problem auch gelöst.
Also DANKE
-
Sag mal genaueres - es könnte ja den nächsten helfen ...
Hat Dir auch Option Declare genützt (muss es ja, denn ohne dem sollte man nicht eine Zeile Code anfangen zu schreiben) ?
So long,
Bernhard