Klick auf Datum & Übernahme in MaskenFeld

[onlyanoob]

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

Code

...
If source.CalendarDateTime<>"" Then
	Call workspace.ComposeDocument("","","termineingeben",True)
...

In der Maske termineingeben im Queryopen-Event steht:

Code

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

[koehlerbv]

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:

Code

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:

Code

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

[onlyanoob]

Einwandfrei!
Hatte das Beispiel aus nem IBM Redbook. Da stand das aber nur kurz und nicht ausführlich.
Es gibt noch viel zu lernen merk ich schon!

Dankesehr für die schnelle Hilfe!

Thomas