Hallo!
Ich krieg es einfach nicht hin dass wenn ich in einer Kalenderansicht ein Datum anklicke
dieses Datum als Startdatum für die geöffnete Eingabemaske übernommen wird.
Im Kalender im "RegionDoubleClick"-Event steht bei mir
...
If source.CalendarDateTime<>"" Then
Call workspace.ComposeDocument("","","termineingeben",True)
...
In der Maske termineingeben im Queryopen-Event steht:
Dim ClickedDate As Variant
Dim str_date As String
Set ws = New NotesUIWorkspace
ClickedDate = ws.CurrentCalendarDateTime
Call ws.CurrentDocument.Document.ReplaceItemValue(“StartDate”, ClickedDate)
Beim Starten und Klicken der Kalenderansicht kommt dann die Fehlermeldung
"Object Variable not set"
Aber welche Object Variable? Debuggen macht mich nicht wirklich schlauer.. CurrentDocument
hat irgendwie keinen Wert.. aber hab ich den nicht durch die Initialisierung des ws Objekts mit zugewiesen?
Wie kann ich sicherstellen das CurrentDocument auch gefüllt ist?
Oder liegt der Fehler gar ganz woanders? :-:
Danke schonmal Thomas
Folgender Aufbau ist erforderlich:
In Deiner Eingabemaske deklarierst Du eine globale Variable für Dein Datum:
Dim g_vCalendarDT as Variant
Im QueryOpen Deiner Maske liest Du den Wert aus dem NotesUIWorkspace aus:
If IsNewDoc Then
Dim ws As New NotesUIWorkspace
g_vCalendarDT = ws.CurrentCalendarDateTime
End If
Im PostOpen bereitest Du nun Dein Dokument auf. Falls das Dokument nicht aus der Calendar view erzeugt wurde, entfällt das natürlich:
If Source.IsNewDoc Then
If IsDate (g_vCalendarDT) Then
Dim doc As NotesDocument
Set doc = Source.Document
Set doc.StartDate = New NotesDateTime (g_vSelectedDate)
Call Source.Reload
Call Source.Refresh
End If
End If
HTH,
Bernhard