Hello

J'ai une requete : "
Code sql : Sélectionner tout - Visualiser dans une fenêtre à part
SELECT COUNT(*) as nb_ent FROM ENTREPRISES;
"

Que j'execute grace à une macro en cliquant sur un bouton :

J'obtiens ce code en convertissant la macro et transformant celle ci en module :

Code vba : 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
Option Compare Database
Option Explicit
 
Function nb_ent()
On Error GoTo nb_ent_Err
 
    DoCmd.OpenQuery "nb_ent", acViewNormal, acEdit
 
nb_ent_Exit:
    Exit Function
 
nb_ent_Err:
    MsgBox Error$
    Resume nb_ent_Exit
 
End Function

Je souhaite pouvoir ajouter ce message au module :

Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
MsgBox ("Il y a au total ........... entreprises dans la base ")

Merci de me tuyauter car je n'arrive pas a extraire le resultat pour le mettre dans le msg box