Discussion :

[nomade333]

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.

[Jean-Philippe André]

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 :

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

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

[nomade333]

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+

[nomade333]

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 :

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

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

[=JBO=]

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 VBA :

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

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 VBA :

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

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