i have view which is for web client when user opens view on web he can delete some of his own documents which was created by him…
can any one send code for this its urgent…
Subject: how to delete documents on web…
A search of this forum provided this:
Subject: how to delete documents on web…
hiGREG…
Dim ws As New NotesUIWorkspace
Dim ui As NotesUIDocument
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set view=db.GetView ("test")
Dim doc As NotesDocument
Set db=ss.CurrentDatabase
Dim eval As Variant
eval=Cstr(Evaluate("@DocumentUniqueID"))
Set doc=view.GetDocumentByKey (Cstr(eval))
If doc.id(0)=eval Then
Call doc.Remove (1)
Else
Msgbox "not matching"
End If
Call view.Refresh
AFTER WRITING THIS CODE NOTHING IS HAPPINING
CAN YOU CHECK OUT THIS
IF TIME PERMITS CAN YOU MODIFY THIS CODE