deleting Keyword List documents thus breaking an application or the parent doc
of a chain of responses hence creating orphans that aren't seen in any views.
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Used to control how users delete documents from databases. Helps with
maintaining response heirarchy by eliminating the
possibility of creating orphaned response documents when a deletion of a main
This code turns off the ability of deleting documents in a view via selecting a
document and the pressing the delete key,
unless the workstation's ini file contains the line "NotesDeveloper=True".
NotesDeveloper is a system environment variable
that can be added to the notes.ini by a developer.
For a user to delete a document an action button per form is required to run
the sample following code:
@Command([Folder]; "($Trash)"; "1");
Dim session As New NotesSession
Dim deletedoc As String
Dim developer As String
deletedoc = session.GetEnvironmentString("Delete")
developer = session.GetEnvironmentString("NotesDeveloper", True)
If deletedoc = "True" Or developer = "True" Then
Call session.SetEnvironmentVar("Delete", "")
Continue = False