yvobeckers
Gebruiker
- Lid geworden
- 26 sep 2006
- Berichten
- 42
Hallo,
Ik wil graag het volgende. Ik heb een doorlopend formulier met een groot aantal records. Op dit formulier kan ik verschillende filters toepassen. De volgorde en het aantal records veranderd dus steeds. Wat ik wil is dat het recordnummer altijd wordt weergegeven bij de records (let op!! het recordnummer, dus wel nummer is de record binnen de filter en niet welk nummer is de record in de tabel.
Hiervoor heb ik de volgende oplossing gevonden:
-----
Private Function fRecNo() As Long
On Error Resume Next
Dim rstForm As DAO.Recordset
Set rstForm = Me.RecordsetClone
rstForm.Bookmark = Me.Bookmark
If Err = 0 Then
fRecNo = rstForm.AbsolutePosition + 1
Else
fRecNo = 0
End If
End Function
-----
Deze functie plaats je in de module van het formulier en in de besturingselementbron van een onafhankelijke tekstbox (waarin je het volgnr wilt zien) plaats je "=fRecNo"
Ik heb echter geen idee hoe ik deze moet toepassen. Ik krijg hem niet werkzaam. Kan iemand mij helpen.
Ik wil graag het volgende. Ik heb een doorlopend formulier met een groot aantal records. Op dit formulier kan ik verschillende filters toepassen. De volgorde en het aantal records veranderd dus steeds. Wat ik wil is dat het recordnummer altijd wordt weergegeven bij de records (let op!! het recordnummer, dus wel nummer is de record binnen de filter en niet welk nummer is de record in de tabel.
Hiervoor heb ik de volgende oplossing gevonden:
-----
Private Function fRecNo() As Long
On Error Resume Next
Dim rstForm As DAO.Recordset
Set rstForm = Me.RecordsetClone
rstForm.Bookmark = Me.Bookmark
If Err = 0 Then
fRecNo = rstForm.AbsolutePosition + 1
Else
fRecNo = 0
End If
End Function
-----
Deze functie plaats je in de module van het formulier en in de besturingselementbron van een onafhankelijke tekstbox (waarin je het volgnr wilt zien) plaats je "=fRecNo"
Ik heb echter geen idee hoe ik deze moet toepassen. Ik krijg hem niet werkzaam. Kan iemand mij helpen.
