Dit forum staat op alleen-lezen. Je kan hier informatie zoeken en oude berichten terugvinden, maar geen nieuwe berichten plaatsen.
Naar overzicht van alle forums
Bedankt voor je reactie, maar volgens mij gebruik je dit alleen om van record te verspringen.. misschien ben ik niet duidelijk genoeg geweest over punt 2.
het is me bijna helemaal gelukt om de recordnavigators na te bouwen, het lukt me alleen niet om het deel te maken dat aangeeft hoeveel records er nog in het formulier zijn, dus het 'van de ' deel. Hoe kan ik deze waarde in een textfield zetten?
Had effe serieus moeten kijken naar het statement BOOKMARK
wat RV al aangaf…maar goed bij deze………..
Ik heb een onverbonden tekst veld in het formulier gehangen met de naam
TotalRecs
en vervolgens de volgende code gemaakt
Private Sub Form_Current()
trecs
End Sub
Private Sub trecs()
On Error GoTo trecs_Err
Dim rst As Recordset
Dim abspos As Long
Dim trecs As Long
Set rst = Me.RecordsetClone
trecs = rst.RecordCount
rst.Bookmark = Me.Bookmark
abspos = rst.AbsolutePosition + 1
trecs_Err_Exit:
Me.TotalRecs = “record ” & abspos & “ van ” & trecs
rst.Close
Exit Sub
trecs_Err:
If Err = 3021 Then 'no current record
If trecs > 1 Then
trecs = trecs + 1
abspos = trecs
Else
abspos = 1
trecs = 1
End If
Else
MsgBox “Err : ” & Err & “ ” & Err.Description, vbOKOnly + vbCritical, “Probleem”
Me.TotalRecs = “”
End If
Resume trecs_Err_Exit
End Sub
hartelijk bedankt voor de info jongens!
over dat bookmark gedoe, ik snapte al hoe het werkte, maar het veld waarin staat in welk record je zit had ik al gemaakt, het enige wat me nog niet gelukt was,was het deel met het totaal aantal records in een form.
dat heb ik nu ook. Geweldig, hartelijk bedankt!
Doorzoek het forum
Zoeken met Startpagina
Startpagina Thema's