Mon code avec OpenRecordset ne fonctionne pas

Bonsoir et merci,
Mon code ci-dessous ne fonctionne pas.
J'ai une table MOY avec comme champ Valeur1(texte) et Moyenne (numérique).
Dans une autre table MAINTENANCE, j'ai un champ Compteur et Koef.
Lorsque je saisi une valeur dans le champ Compteur de ma table MAINTENANCE, je veux que la valeur du champ Moyenne de la table MOY pour lequel les champs compteur et valeur1 sont égaux, s'inscrive dans le champ Koef de ma table MAINTENANCE.
J'ai donc écris le code ci-dessous, mais quelque soit la valeur du champ Compteur, Koef prends toujours la valeur 10.
En fait il ne reconnais pas dans la table MOY la valeur du champ Compteur de la Table MAINTENANCE dirait-on?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Compteur_AfterUpdate() Dim Compteur As Recordset Dim base_courante As Database Set base_courante = CurrentDb Set Compteur = base_courante.OpenRecordset("SELECT * FROM MOY WHERE valeur1= "" & Compteur & "";") If Compteur.EOF Then Me.Koef = "10" Else Me.Koef = Compteur.Fields("moyenne") End If End Sub

---

Quelqu'un verrait il l'erreur?
Merci par avance.

Bonjour,

peux-tu nous indiquer le type du champ valeur1 stp ?

s'il s'agit d'un numérique, des guillemets sont en trop, et la requête deviendrait :

Code:

---

Set Compteur = base_courante.OpenRecordset("SELECT * FROM MOY WHERE valeur1= " & Compteur & ";")

---

Bonjour,

Effectivement, ça ne peut pas fonctionner. Le code est incohérent en ce qui concerne l'utilisation de la variable Compteur.

Apparemment, il s'agit d'un formulaire qui contient un contrôle nommé Compteur.
Et d'autre part, dans ta procédure tu crées une variable objet Recordset nommée aussi Compteur.

Code:

---

1 2 3 4 5

Private Sub Compteur_AfterUpdate() Dim Compteur As Recordset Set Compteur = base_courante.OpenRecordset("SELECT * FROM MOY WHERE valeur1= "" & Compteur & "";")

---

Alors soit tu modifies le nom de la variable Recordset dans la procédure (c'est ce qu'il y a de mieux à faire), soit tu rends explicite l'accès au contrôle Compteur comme montré ci-dessous, en utilisant le mot-clé Me pour désigner le formulaire.

Code:

---

1 2 3

SQL = "SELECT * FROM MOY WHERE valeur1= " & Me.Compteur & ";" Set Compteur = base_courante.OpenRecordset(SQL)

---

Bonjour et merci,
Valeur1 est de type texte.
Peut être est ce important, les valeurs du champs Compteur de la table Maintenance est une liste modifiable, dont les valeurs sont issues du champs Valeur1 de la Table MOY.
Merci encore
A+

Bonsoir et merci,
Cela ne fonctionne pas avec Me. , si valeur1="" et Me.compteur & "".
la valeur par défaut est toujours 10.
Mais si j'écris valeur1=""" et Me.Compteur & """, ça marche.
Merci à tous pour votre aide

Code:

---

1 2	SQL = "SELECT * FROM MOY WHERE valeur1= """ & Me.Compteur & """;" Set Compteur = base_courante.OpenRecordset(SQL)

---