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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.