Discussion :

[youssefminato]

Bonjour !
j'ai Besion D'un module vba qui compte Le nombre Des enregistrements D'un table dans MS access 2007
merci

[clementmarcotte]

Réaction à chaud.

Ce forum est un forum d'entraide entre développeurs et pas un service de fourniture de code gratuit. Surtout quand il n'y a pas d'effort du demandeur.

[youssefminato]

voila le code :
Option Compare Database
Function DCount()
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim nbligne As Long
Dim req As Integer

'Instancie la base de données
Set oDb = CurrentDb
'Ouvre le curseur retournant le nombre de ligne du table test
Set oRst = oDb.OpenRecordset("SELECT Count(*) FROM test;")


'Lit le résultat
nbligne = oRst.Fields(0).Value
''Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothin
Set oDb = Nothing


End Function

[clementmarcotte]

DAO est uns technologie ancienne que Microsoft conserve juste pour préserver la compatibilité des applications existantes. Tant qu'à être un ignorant, tu devrais te diriger vers ADO.

Pour comprendre, il n'y a rien de mieux que de faire des efforts élémentaires:

DAO:

http://access.developpez.com/cours/?page=dataaccess#dao

ADO:

http://access.developpez.com/cours/?page=dataaccess#ado


Et puis ta macro, tu veux l'utiliser où ? Parce que cela ça compte aussi.

Dans un programme .Net qui doit aller fouiller dans une base Access?
Dans un programme Excel qui doit aller fouiller dans une base Access ?
Dans un publipostage Word qui doit aller fouiller dans une base Access ?

De toutes façons, je n'ai pas Access, et je ne pourrai pas faire le travail à ta place. Il te reste juste à espérer que quelqu'un disposant d'Access se laisse attendrir.