Discussion :

[lolafrite]

Bonjour,

J'aimerais connaitre la requete pour m'afficher le nbre d'enregistrement dans chaque table avec colonne 1 = nom de la table et colonne 2 = nbre d'enregistrement.

Merci

[etoileetoile]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT Count(1) AS Total
FROM Hotel
WITH OWNERACCESS OPTION;

Observation : Ce code SQL vous permet de compter le nombre d'enregistrements de la table 'Hotel' et d'afficher le résultat dans une colonne
dont l'entête est personnalisée. Dans mon exemple, l'entête de colonne s'intitule 'Total'.

Dans votre cas précis vous pouvez substituer l'intitulé 'Total' par le nom de votre table.

[Jean-Philippe André]

salut,
les informations concernant la liste des tables se trouvant dans MSysObjects.

Pour le nombre de lignes, tu peux créer une rapide fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function NbLigne(strTableName As String) As Double
Dim RS As RecordSet
set RS = CurrentDb.OpenRecordSet("SELECT COUNT(*) AS Total FROM [" & strTableName & "]")
NbLigne = RS!Total
End Function

[DMboup]

Oui on peut utiliser la table système MsysObjects pour récupérer toutes les tables de la base en cour mais avec quand même une boucle pour la suite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Dim RSTable As RecordSet, RSCount As RecordSet
'Récupération de toutes les tables non système
set RSTable = CurrentDb.OpenRecordSet("SELECT MsysObjects.Name as NomTable FROM MsysObjects
WHERE (((MsysObjects.Type)=1) AND ((Mid([Name],1,4))<>"Msys"));
")
'Boucle pour compter
Do Until RSTable.EOF
     set RSCount = CurrentDb.OpenRecordSet("SELECT Count(*) as NbreEnreg," & RSTable("NomTable") & " as MaTable From " & RSTable("NomTable"))
 
     'Récupération du résultat
      RSCount("NbreEnreg") & " Table " & RSCount("MaTable")
 
RSTable.MoveNext
Loop

PS : Il est peut être possible d'avoir le résultat avec une seule requête !

Mais oui c'est bien POSSIBLE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
SELECT DCount("*",[MsysObjects.Name]) AS Nbre, MsysObjects.Name
FROM MsysObjects
WHERE (((MsysObjects.Type)=1) AND ((Mid([Name],1,4))<>"Msys"));