Hi,
parat habe ich eine solche Lösung nicht. Ich versuch mal aus dem Kopf.
Als erstes brauchst du eine Ansicht, die in der ersten Spalte die Nummer, aufsteigend sortiert, enthält. Als Name der Ansicht lautet z.B. NummerLookup
Sub Postopen(Source As Notesuidocument)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
If Source.IsNewDoc Then 'Nummer nur setzen wenn neues Dokument
Set db = session.CurrentDatabase 'Aktuelle Datenbank
Set view = db.GetView("NummerLookup") 'ZUgriff auf Ansicht zum Nachschlagen
Set doc = view.GetLastdocument 'Zugriff auf letztes Dokument der Ansicht
If doc Is Nothing Then 'Prüfen ob es überhaupt ein Dok. gibt
'wenn nein wird mit 1 begonnen
Source.Document.LfdNummer = 1
Else
'wenn ja, Nummer aus Dok auslesen und um 1 erhöhen
Source.Document.LfdNummer = doc.LfdNummer(0) + 1
End If
End If
End Sub
Ich habe angenommen, dass das Feld für die Nummer LfdNummer heißt und ein nummerisches Feld ist. Notfals musst du das anpassen.
Probiers mal aus, ob's geht.
Axel
