Hi, I get this Illegal Parenthesized reference: KEY error when opening a calendar form. The arrow in the Debugger points to the first line ( Sub Queryopen…)with this error. Does anyone has any idea what is wrong here? Thanks.
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set view = workspace.CurrentView
If Isnewdoc Then
Date1 = workspace.CurrentCalendarDateTime
' Msgbox(date1)
If Date1="" Then
Date1=Today()
End If
Else
Set currentDate = New notesdatetime(workspace.CurrentCalendarDateTime)
selectedDate = currentDate.DateOnly
End If
End Sub