Domino 9 und frühere Versionen > ND7: Entwicklung

Datumsauswahl Aktion ausführen

<< < (3/3)

iisa:
genauso wie oben beschrieben.... kannn den  natürlich noch mal posten.

Sub Exiting(Source As Field)
   
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   
   If doc.Eingang(0) < Today() Then
      Messagebox "Datum darf nicht in der Vergangenheit liegen", 48, "Warnung"
   End If  'If doc.Eingang(0) < Today() Then
   
End Sub

klaussal:
 If doc.Eingang(0) ....  muss bei Dir heissen:

 If doc.W_Termin(0) ......

Axel:

--- Zitat von: klauss am 27.04.06 - 09:07:22 --- If doc.Eingang(0) ....  muss bei Dir heissen:

 If doc.W_Termin(0) ......

--- Ende Zitat ---

Genau.

Axel

iisa:
superr, danke... hatte erst noch Probleme weil ich unter Eingabevalidierung: @If(@Date(@ToTime(W_Termin)) < @Today;@Failure("Datum liegt in der Vergangenheit");@Success)

habe ich dann gelöscht und funktioniert dann auch.

Danke euch.... super Hilfe

Navigation

[0] Themen-Index

[*] Vorherige Sete