aantal records tonen in een label

[Abel Visscher]

Ik heb een databasebase gemaakt voor een ledenbestand.
Nu heb ik via vb6 een form gemaakt waar je leden kunt toevoegen en verwijderen en bewerken. Dat gaat allemaal goed. Het enige wat nog ontbreekt is een label of tekstvak die laat zien hoeveel leden er op dit moment zijn. Volgens mij moet dit met recordcount, maar ik krijg het niet voorelkaar. Iemand een iedee? Alle hulp is welkom.
Alvast bedankt.

 

[Guus2005]

Dat kan met recordcount:

    Dim rstCount  As Recordset
        
    Set rstCount = CurrentDb.OpenRecordset("qrySubTotalsCount")

    me.label.caption = rstCount.RecordCount

Of iets simpeler met dcount:

    me.label.caption = dcount("veldnaam","qrySubTotalsCount")

als je ook nog wilt dat deze verandert op het moment dat er een wordt toegevoegd dan zal je de timer moeten zetten en het timer event moeten vullen met deze code.

Enjoy!

 

[Abel Visscher]

Beste Guus2005,

Waar moet ik de eerste code plaatsen?

Abel Visscher

 

[Guus2005]

In je form:

Private Sub Form_Open(Cancel As Integer)
    Me.Label.Caption = DCount("veldnaam", "qrySubTotalsCount")
End Sub

Maar mag ook in het OnLoad event. Als je hier Cancel op True zet dan wordt het form niet geopend. Bijvoorbeeld bij te weinig records? Ja, raar voorbeeld. Maar het kan wel.