... hi,
ich hab's mal so gelöst:
spielt sich "postopen" einer seite ab.
da braucht's nur noch ein doc mit der from "counter" und einem feld (auch name "counter") und einer ansicht (wie mag die wohl heissen ?).
Sub Postopen(Source As Notesuidocument)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView( "counter" )
Set doc = view.GetDocumentByKey( "counter" )
intzaehler = doc.zaehler(0)
intzaehler = intzaehler + 1
doc.zaehler = intzaehler
Call doc.save (True, False)
End Sub