Sorry mein Fehler ist heute bissel warm
Es fehlt Call.
Code
Call uidoc.FieldSetText(\"Name des Datum/Zeit-Feldes\", ws.CurrentCalendarDateTime)Gruß
Dirk
Kalender/Sortierung?
- Sombreros
- Erledigt
-
-
Da fehlt noch ein Call davor
-
ich fang jetzt gleich an zu weinen;-)
Bekomm jetzt zwar keine Fehlermeldung mehr, aber es ich bekomm den Datumswert einfach nicht übergeben.wenn ich den Debugger anwerfe bleibt er bei RegionDoubleclick stehen und zwar bei
set ws = New NotesUIWorkspace
SOURCE (..... "not implemented yet") NOTESUIVIEW
-
???
ein "Set WS = new NoteUIWorkSpace muss funktionieren"!
Mach mal Dein Notes (Client, Designer und eventuell Admin) zu, lösche die Cache.dsk und komprimiere Deinen Arbeitsbereich.
Und dann nochmal Debugger einschalten und testen.
Gruß
Dirk -
Code
Sub Regiondoubleclick(Source As Notesuiview) Dim ws = New NotesUIWorkspace Set session = New NotesSession If source.CalendarDateTime <> "" Then set uidoc = ws.ComposeDocument("", "", "Termin") uidoc.FieldSetText("Name des Datum/Zeit-Feldes", source.CalendarDateTime) End Sub End SubSo funktionierts. Habs mir schnell ne Test_DB erstellt.
Gruß
Dirk -
Ja jetzt gehts!
Vielen Dank für die Mühe....
Grüße Markus