Having recently upgraded to domino 8 and upgraded the template of our reservation database, we are unable to edit or add any resouces from a notes client and receive the message “room or resource can be updated only on an administration server”. Any assistance in resolving this would be greatful.
Subject: QueryModeChange event of the form Resource:
From the QueryModeChange event of the form Resource:
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Dim version As Variant
Dim db As notesDatabase
Dim note As NotesDocument
Dim profile As NotesDocument
Dim prevName As Variant
Dim lastinst As Integer
Dim profiledc As NotesDocumentCollection
Dim xxTitleError, xxTitle1 As String
Dim xxstr1, xxstr2, xxstr3 As String
Set s = New NotesSession
Set db=s.CurrentDatabase
Set note=source.Document
xxTitleError="Error"
xxTitle2="Rename Resource Information"
xxstr1="You cannot edit a resource with 4.6 client"
xxstr2="Room or resource rename is in progress. No changes permitted at this time."
xxstr3="Room or resource can be updated only on administration server. "
version=Evaluate("@Version")
If Cint(version(0))<163 And Not(source.IsNewDoc) And source.EditMode=False Then
Msgbox xxstr1, 0, xxTitleError
continue=False
End If
'no updates are allowed if $CSRoomRename exist on a doc
If note.HasItem("$CSRoomRename") Then
Msgbox xxstr2, 0, xxTitle2
continue=False
Exit Sub
End If
'make sure that current server is admin server, otherwise no updates are allowed
If note.GetItemValue("AdminServer")(0)<>db.Server Then
If session.CreateName (note.GetItemValue("AdminServer")(0)).canonical <> session.CreateName (db.Server).canonical Then
Msgbox xxstr3, 0, xxTitleError
continue=False
Exit Sub
End If
End If
JYR