Discussion :

[dashblade]

Bonjour tout le monde,

J'ai un petit problème...
Donc voila, j'ai une requete qui se modifie en fonction de la table choisie dans la base. Ma requete calcule le nombre de contrat. Le nombre de contrat change en fonction des tables. Je voudrais mettre le resultat de la requete dans une variable que je puisse afficher dans une msgbox.
Je sais que pour récuperer le resultat dans une listbox c'est Me.listbox.rowsource = "ucinet_nb_contrat" mais pour mettre simplement dans une variable je bloque!

aidez moi svp!! lol

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub exp_txt_Click() 
Dim SQL As String 
Dim Q As DAO.QueryDef 
 
rep = inputbox("veuillez saisir le nom de la table") 
 
SQL = "SELECT Count(nb_contrat) FROM " & rep 
Set Q = CurrentDb.QueryDefs("ucinet_nb_contrat") 
Q.SQL = SQL 'modification du contenu de la requete "ucinet_nb_contrat" 
Set Q = Nothing 
 
'si on met resultat dans variable retour 
 msgbox" le nombre de contrat pour cette table est " & retour

[Heureux-oli]

Salut,

Perso, je fais autrement.

Soit j'utilise une fonction Domaine, soit j'utilise le DAO.

http://starec.developpez.com/tuto/fonctionsdomaines/

http://warin.developpez.com/access/dao/

[vodiem]

salut Heureux-oli et bienvenu dashblade,

en complément à Heureux-oli:
bien que le DCount() soit le plus recommandé dans ce cas voici aussi une méthode par recordset (pour d'éventuelles traitements plus complexes):

Code :

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

1
2
res = CurrentDb.OpenRecordset("select 10*2 as monResultat") 'remplacer la requete par celle appropriée
maVariable = res![monResultat] 'avec le champ approprié

[dashblade]

Bonjour,

Désolé de répondre que maintenant je n'avais pas acces à internet ce week end... Je vous remercie d'avoir pris le temps de m'aider.
J'ai opter pour la deuxième solution, et cela marche trés bien.

Encore merci

A bientot