Discussion :

[973thom]

Bonjour...

Afin de remplir les cases d'un de mes formulaires je dois réaliser un certain nombre de requêtes SQL.

Ces requêtes seront créées en fonction de ce que l'on va saisir dans des listes de choix et le but final de ces requêtes est de connaitre le nombre d'enregistrement correspondant aux X critères saisis.

Ce que je voudrais c'est pouvoir déclarer une variable (ma requête) dont le résultat serait stocké dans une autre variable.

du genre

Code :

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

1
2
3
4
5
6
 
dim rq as querydef
dim resu as double
rq = select count  * from ...
 
resu = rq

Bien sur le code ci dessus n'est pas le bon puisque je viens vers vous pour vous posser la question.

Merci beaucoup pour votre aide... je crois bien que vous pourriez me sauver la vie !!!

thomas

[Admin]

avec un recordset :

Code :

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

1
2
3
4
5
6
Dim rs as recordset
 
set rs=currentdb.openrecordset("SELECT * FROM MACHINCHOSE WHERE TRUCBIDULE=10")
 
rs.movelast
resu  = rs.recordcount

Le movelast permet d'atteindre le dernier enregistrement sinon recordcount prends la valeur absoluteposition+1

[973thom]

Bonjour et merci pour ta réponse.

Après avoir chercher pdt pas mal de temps la solution au pb qui suit et sans y être parcenu je me permet de te soliciter à nouveau :

en ayant écrit ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim rs As Recordset
Dim titre1 as double
 
If Me.chk_bilan_total.Value = True Then
 
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tab_titre WHERE tab_titre.TYPE_TITRE_ID = 1")
 
rs.MoveLast
titre1 = rs.RecordCount
 
MsgBox titre1
 
End If

J'obtiens le message d'erreur suivant :

Erreur d'exécution '13'
Incompatibilité de type

Merci encore de ton aide

[cafeine]

Quelle est la ligne en erreur ? car le code fonctionne chez moi ...

[973thom]

la ligne surlignée de jaune est celle ci :

Code :

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

 Set rs = CurrentDb.OpenRecordset("SELECT * FROM tab_titre WHERE tab_titre.TYPE_TITRE_ID = 1")

[cafeine]

Code :

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

Dim rs As DAO.Recordset

et vérifie que la référence DAO est cochée

[973thom]

Et oui j'avais effectivement oublier le DAO alors que je l'avais déjà utiliser pour autre chose auparavant.

En tout cas Merci beaucoup CAFEINE ... ce n'est pas la première fois que tu m'aides ... j'espère qu'un jour je pourrais aider en retour ..

@ bientôt

thomas