Discussion :

[kgb1917]

Bonjour,

Sur un form, j’ai 3 textbox et une checkbox, tous les 3 liés à la table source du form.
J’aimerai mettre les valeurs de 2 textbox à 0 qd la checkbox est cochée.
Pour cela, j’utilise une requête mise à jour et un requery du form ensuite.
Le problème est que ni la requête et encore moins le requery ne fonctionne (la requête passe par contre via le qbe).

Voici mon code (sur l'évènement click de la checkbox) :

Code :

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

1
2
3
4
5
6
If Me.checkbox = -1 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE MaTable SET MaTable.Textbox2= 0, MaTable.Textbox3= 0 WHERE MaTable.Textbox1= " & Me.Textbox1& ";"
‘ Ici , j’ai essayé Me.Refresh, Me.Requery, Me.Textbox2.Requery, Me.Textbox3.Requery, sans succès
DoCmd.SetWarnings True
End If

Je ne vois pas où se trouve l'erreur.

[mouaa]

ta requête me paraît bizarre:

Code :

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

DoCmd.RunSQL "UPDATE MaTable SET MaTable.Textbox2= 0, MaTable.Textbox3= 0 WHERE MaTable.Textbox1= " & Me.Textbox1& ";"

ce sont les MaTable.Textbox qui me choquent.
Essaye de mettre les noms des champs à la place:

Code :

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

DoCmd.RunSQL "UPDATE MaTable SET champ2= 0, champ3= 0 WHERE champ1= " & Me.Textbox1& ";"

[kgb1917]

Slt,

Oui pour le nom des champs à la place du nom des textbox :

Code :

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

DoCmd.RunSQL "UPDATE MaTable SET champ2= 0, champ3= 0 WHERE champ1= " & Me.Textbox1& ";"

j'avais fait un rechercher remplacer tout avant de poster. C'est un oubli mais qui ne change rien en fait.
J'ai essayé en mettant :

Code :

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

DoCmd.RunCommand acCmdSaveRecord

juste après la requête, sans succès

[tribaleur]

Eventuellement tu pourrais peut-être changer la valeur des TextBox puis faire un requery.

Si cela ne fonctionne pas peut-être changer dans la BD, Changer la valeur des textbox et enfin un requery.

[kgb1917]

Merci tribaleur,

j'avais essayé cette voie pour ce problème vraiment tout simple mais sans avoir mis :

Code :

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

DoCmd.RunCommand acCmdSaveRecord

ce qui fait que je n'avais pas de sauvegarde, d'où l'idée de la requête mise à jour...

Encore Merci à toi (et à mouaa)