Discussion :

[Charlis]

Bonjours,

J'ai un problème de recordset.
Je veux afficher dans une zone de texte d'un formulaire la valeur du champs "CompteDeNUMEROC" situé dans la requete "qry_CCP_prod_NbPoint" quand j'appuis sur un bouton.
Je ne c pas comment résoudre le probleme.
pouvez vous m'aider?

Voici le code VBA:

Code :

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

1
2
3
4
5
6
7
8
9
10
'affichage du nombre de points total
Dim mydb As Database
Dim rst As Recordset
Set mydb = CurrentDb
selection3 = "SELECT CompteDeNUMEROC FROM qry_CCP_prod_NbPoint;"
Set rst = mydb.OpenRecordset(selection3, dbReadOnly)
NbPoint = rst.Fields(0)
Me.NbPoints = NbPoint
rst.Close: Set rst = Nothing
mydb.Close: Set mydb = Nothing

Et le SQL de la requete:

Code sql :

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

1
2
3
4
SELECT Count(EVENEMENT_ESSAIS.NUMEROC) AS CompteDeNUMEROC
FROM EVENEMENT_ESSAIS
WHERE (((EVENEMENT_ESSAIS.DATE_HEURE)>=Formulaires!frm_CCP_productivité!DateDébut And (EVENEMENT_ESSAIS.DATE_HEURE)<=Formulaires!frm_CCP_productivité!DateFin) And ((Mid(EVENEMENT_ESSAIS!NUMEROC,16,1))=Formulaires!frm_CCP_productivité!Chambre))
HAVING (((Len([EVENEMENT_ESSAIS]![NUMEROC]))>12));

Merci

[dumas.blr]

Bonjour Charlis,

au lieu de

Code :

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

NbPoint = rst.Fields(0)

mets plutôt

Code :

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

NbPoint = rst!CompteDeNUMEROC

et n'oublie pas de déclarer la variable NbPoint en integer ou long

[Tofalu]

DAO ne peut pas accéder aux champs des formulaires. Utilisez les requêtes paramétrées.

Exemple :

http://warin.developpez.com/access/d...artie_4#L4.7.1

[Charlis]

Bonjour Charlis,

au lieu de

Code :

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

NbPoint = rst.Fields(0)

mets plutôt

Code :

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

NbPoint = rst!CompteDeNUMEROC

et n'oublie pas de déclarer la variable NbPoint en integer ou long

Merci dumas pour ta reponse.
j'ai trouvé une solution. Je selectionne directement dans la table d'origine et pas dans une requete intermédière.
et ça marche.

[Charlis]

Tofalu,

tres juste, merci pour le lien, ça poura me servir par la suite.

Merci