das Prinzip ist super einfach, wenn Du es einmal verwendet hast:
Zentrale Punkt ist die Verwendung der Help...
hörst Du einen Begriff wie "QueryDocumentDelete" gehst Du in die Designer Help DB und öffnest die Ansicht "Index"...gib dort einfach den Begriff ein und Notes springt zu dem Begriff insofern es ihn findet. Dann einfach die zugehörigen Docs aufklappen und immer dabei auf BEISPIELE achten. So findet man sich sehr schnell und simpel in der hervorragenden Help zurecht. Ich kann es nicht genug betonen, wie wichtig die Help DB ist, man vergisst es komischerweise aber immer wieder, in dieses geile Teil reinzuschauen.
in dem Falle:
This example tracks the number of document deletions that occur while a database is open.
(Declarations)
Dim deleteCount As Integer
Sub Postopen(Source As Notesuidatabase)
deleteCount = 0
End Sub
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
If Continue Then
deleteCount = deleteCount + Source.Documents.Count
End If
End Sub
Sub Querydocumentundelete(Source As Notesuidatabase, Continue As Variant)
If Continue Then
deleteCount = deleteCount - Source.Documents.Count
End If
End Sub
Sub Postdocumentdelete(Source As Notesuidatabase)
Messagebox Source.Documents.Count _
& " deleted or marked for deletion"
End Sub
Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
Messagebox deleteCount & " documents deleted",, _
"Net deletions"
End Sub
