Option Public
Public Sub new ( inDoc As Variant )
(give an unexpected New, Expected: Identifier message)

Public Function IsUIDocumentLocked ( uiDoc As NotesUIDocument ) As Boolean
Public Function Lock ( ) As Boolean
End Function
(give Unexpected: Lock , Expected:Identifier)

Public Function LockDocument ( doc As NotesDocument ) As Boolean
Public Function UnLock ( ) As Boolean
End Function
(give Unexpected: UnLock , Expected:Identifier)

I am sure that I am doing something wrong here. Your help would be appreciated.
Thanks

This is if others face this issue of the same user opening two instances of the same document. I used environment variables and set an environment variable using the document id I have the following code in the QueryOpen
Dim session As New NotesSession
Dim latestNumber As String

latestNumber = session.GetEnvironmentString(source.Document.UniversalID)

If latestNumber =”" Then

Call session.SetEnvironmentVar( Cstr(source.Document.UniversalID), Cstr(source.Document.UniversalID) )
Else
Msgbox “Another instance of this document is already open ”
Continue = False
End If

Call pDoc.RemoveItem( “$WritersDate” )
Call pDoc.RemoveItem( “$Writers” )

Why not check the time of the $WritersDate, and see if it is the current time, or relatively close, if it is then it is the current document. I no longer have a Domino server to do any testing, but that is the first idea that came

The locking feature has helped me a lot. How I used it is

In the querymodechange event I used

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
If source.EditMode Then
Dim locker As New DominoDocumentLocking( source )
Call locker.LockUIDocument( source )

End If
End Sub

and in the Queryclose event I used

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If source.EditMode Then
Dim locker As New DominoDocumentLocking( source )

Call locker.UnLockUIDocument( source )
End If
End Sub

When one document is locked by a user and another user tries to edit the same document the code works fine.

Here is one problem I am facing

When the same user opens two instances of the same document then it allows both the instances of the document to get into the edit mode and then when you save the documents there is a replication conflict

I have tried checking using the following code in the query open

Dim locker As New DominoDocumentLocking( source )
Dim islocked As Boolean
islocked =locker.IsUIDocumentLockedByCurrentUser ( Source)
If islocked = True Then

Msgbox “Another copy of this document is already open”
Continue = False

End If

this works in the query open but not in the Querymodechange it returns True in both the cases and I cannot check if it is the first instance that is being sent into the edit mode

Please suggest what i need to do

I paste code ‘Domino Document Locking’ in script library.
Where and how I can call function from this class.
Thank’s Bojana