Features in Datenbank funktionieren nach Kopie nicht mehr

    Hallo,


    letztes Jahr habe ich eine Postbuchdatenbank entwickelt, wobei die Einträge per Nummer erfaßt wurden. Mit jedem neuen Eintrag wurde also die nächst höhere Nummer angelegt. Aus dieser Daten bank habe ich eine Schablone gemacht. Diese Jahr wollte ich ein neues Postbuch auf der Grundlage der besagten Schablone erstellen, dabei tritt folgendes Phänomen ein: Die Nummer werden bis 10 hochgezählt. Wenn ich den 11ten Eintrag anlege wird eine Nummer zwischen 1 und 10 das zweite, dritte usw. Mal angelegt. Ich versteh das irgendwie nicht. Hier mein Code der als Querysave abgearbeitet wird:


    Sub Querysave(Source As Notesuidocument, Continue As Variant)
    Dim s As New notessession
    Dim db As NotesDatabase
    Set db = s.currentdatabase
    Dim view2 As NotesView
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = ws.CurrentDocument
    Dim aktNr As String
    Dim FolgeNr As Variant
    Dim docneu As Notesdocument
    Set view2= db.GetView("Eingang")
    Set docneu = view2.GetFirstDocument
    Set view3=db.GetView("Faxe")
    Set docneu3=view3.GetFirstDocument

    If uidoc.IsNewDoc Then
    If docneu Is Nothing Then
    FolgeNr = 0
    Else
    FolgeNr = docneu.GetItemValue ("Nummer")(0)
    End If
    If docneu3 Is Nothing Then
    FolgeNr3 = 0
    Else
    FolgeNr3 = docneu3.GetItemValue ("Nummer")(0)
    End If
    If FolgeNr > FolgeNr3 Then
    aktNr = FolgeNr+1
    Else
    aktNr = FolgeNr3+1
    End If
    'Msgbox "Eintrag-Nr. "+aktNr
    Call uidoc.FieldSetText ("Nummer",aktNr)
    End If
    End Sub