nieuwe record in formulier met de recordteller meelopen

[peterz67]

Hallo
ik wil onderstaande code gebruiken om zelf een recordteller te maken
With Me.RecordsetClone
.Bookmark = Me.Bookmark
Me.LBLNavigate.Caption = "Record " & .AbsolutePosition + 1 & " of " & .MoveLast & .RecordCount
End With

Nu wil ik dit ook doen bij docmd.goto,,acnewrec

geeft foutmelding bij .bookmark
ik wil dus als ik 3 records heb en een 4e aanmaak
4 van 4 records
Help

 

[OctaFish]

Met zoiets bijvoorbeeld.... Op basis van een extra (onzichtbaar) tekstveld.

Private Sub Form_Current()
    If Me.NewRecord Then
        Me!LBLNavigate.Caption = Me!lblRecord.Caption + 1 & " of " & Me!lblRecord.Caption + 1
    Else
        With Me.RecordsetClone
            .Bookmark = Me.Bookmark
            Me!LBLNavigate.Caption = "Record " & .AbsolutePosition + 1 & " of " & .MoveLast & .RecordCount
            Me!lblRecord.Caption = .MoveLast & .RecordCount
        End With
    End If
End Sub

 

[peterz67]

bedankt

Bedankt voor de snelle reactie, het werkt wat je zegt, maar heb zelf al iets gevonden
ipv .ab.... .recordcount of tekst New record

Werkt perfect.