Übergabe Zeitwert

[Don Pasquale]

Hallo Leute,

ich möchte in einer Dialogbox einen Datums und einen Zeitwert übergeben. Wieso klappt die Datumsübergabe, aber nicht die Zeitübergabe ?


Sachdiensliche Hinweise bitte an


Don Pasquale



   Dim Maskenname As String
   MASKENNAME = "BoxWiedervorlage"
   Dim ws As New NotesUIWorkspace  
   Dim s As NotesSession
   Dim dbCurrent As NotesDatabase  
   Dim docHaupt As NotesDocument
   Dim uidoc As NotesUiDocument
   Dim docDialog As NotesDocument
   Dim nDialog As Variant
   
   Set uidoc = ws.CurrentDocument
   Set docHaupt = uidoc.Document
   
   Set s = New NotesSession
   Set dbCurrent = s.CurrentDatabase
   Set docDialog = dbCurrent.CreateDocument
   
   docDialog.Form = MASKENNAME
   
   docDialog.FldExchange   = docHaupt.FldExchange(0)
   docDialog.ReminderTime = Cdat(docHaupt.ReminderTime(0))   <----   Hier liegt der Hase im Pfeffer !
   docDialog.tmpDate         = Cdat(docHaupt.e4fld_Wiedervorlage(0))
   
   nDialog = ws.dialogbox(Maskenname,True,True,False,False,False,False,"Wiedervorlagetermin",docDialog)
   
   If nDialog Then
      
      uidoc.EditMode = True
      Call uidoc.FieldSetText( "FldExchange" , docDialog.FldExchange(0) )
      Call uidoc.FieldSetText("ReminderTime",Cstr(docDialog.ReminderTime(0) ))      
      Call uidoc.FieldSetText( "e4fld_Wiedervorlage" , Cstr(docDialog.tmpDate(0)) )
      Call docDialog.Save(True,True,True)
   End If

[ata]

... sind die Feldeigenschaften korrekt gesetzt?

ata

[Don Pasquale]

Aber 100 prozentig.

Äh, wie müssen die denn sein ?


Typ: Datum/Zeit  Bearbeitbar
Anzeige: Uhrzeit

Aber vielleicht hätte ich das "Absatz verbergen wenn 1 "
löschen sollen.

hüstel

Ciao

Don Pasquale