Beste Accessers,
In het verleden heb ik steeds volgende code gebruikt om voor de navigatie in formulieren en subformulieren:
In het verleden heeft deze code altijd perfect gewerkt maar nu ik een nieuwe db aan het maken ben doet deze het plotseling niet meer. Bij het openen van het formulier worden het aantal records in het main- en subform goed weergegeven. Wanneer ik echter begin te navigeren in het mainform worden het aantal records in het subform niet meer correct weergegeven; geen probleem bij geen of één record, bij meerdere records wordt steeds 1 weergegeven.
Dit euvel doet zich enkel voor bij een enkelvoudig subform, bij een doorlopend form worden wel het juiste aantal records weergegeven. Ook worden het juiste aantal records weergegeven wanneer ik de navigatieknoppen van Access inschakel, maar dat is niet de bedoeling omdat ik met bovenstaande code m'n eigen navigatie wil maken.
Waar ga ik in de fout? Wat zie ik over het hoofd? Wie kan me helpen?
Alvast hartelijk bedankt,
Dirk.
In het verleden heb ik steeds volgende code gebruikt om voor de navigatie in formulieren en subformulieren:
PHP:
Private Function Navigatie()
On Error Resume Next
Dim RSC As Object 'RecordSet Contacts
Dim AC As Integer 'Aantal Contacts
Set RSC = Me.RecordsetClone
If Not RSC.BOF And Not RSC.EOF Then
RSC.MoveLast
End If
AC = RSC.RecordCount
If Me.NewRecord Then
Me.RecordTeller1.Caption = "New Contact"
Me.RecordTeller2.Caption = "New Contact"
Else
Me.RecordTeller1.Caption = "Contact " & Me.CurrentRecord & " from " & AC
Me.RecordTeller2.Caption = "Contact " & Me.CurrentRecord & " from " & AC
Me.KnopNieuwRecord.Enabled = True
End If
If Me.CurrentRecord = 1 Then
Me.KnopVorigeRecord.Enabled = False
Me.KnopEersteRecord.Enabled = False
Else
Me.KnopVorigeRecord.Enabled = True
Me.KnopEersteRecord.Enabled = True
End If
If Me.CurrentRecord = AC Then
Me.KnopLaatsteRecord.Enabled = False
Else
Me.KnopLaatsteRecord.Enabled = True
End If
If Me.CurrentRecord >= AC Then
Me.KnopVolgendeRecord.Enabled = False
Me.KnopLaatsteRecord.Enabled = False
Else
Me.KnopVolgendeRecord.Enabled = True
Me.KnopLaatsteRecord.Enabled = True
End If
End Function
In het verleden heeft deze code altijd perfect gewerkt maar nu ik een nieuwe db aan het maken ben doet deze het plotseling niet meer. Bij het openen van het formulier worden het aantal records in het main- en subform goed weergegeven. Wanneer ik echter begin te navigeren in het mainform worden het aantal records in het subform niet meer correct weergegeven; geen probleem bij geen of één record, bij meerdere records wordt steeds 1 weergegeven.
Dit euvel doet zich enkel voor bij een enkelvoudig subform, bij een doorlopend form worden wel het juiste aantal records weergegeven. Ook worden het juiste aantal records weergegeven wanneer ik de navigatieknoppen van Access inschakel, maar dat is niet de bedoeling omdat ik met bovenstaande code m'n eigen navigatie wil maken.
Waar ga ik in de fout? Wat zie ik over het hoofd? Wie kan me helpen?
Alvast hartelijk bedankt,
Dirk.