Error msg: (Illegal Parenthesized reference: KEY )

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

Subject: error msg: (Illegal Parenthesized reference: KEY )

This error message normally means that a script library is missing from the database (or not compiled correctly). Carry out a design replace and this should fix it

Subject: RE: error msg: (Illegal Parenthesized reference: KEY )

Thanks!