OVH Cloud OVH Cloud

Exécuter une requête mise à jour dans Access

2 réponses
Avatar
Mario
Bonjour,
Je voudrais mettre la valeur 0 dans tous les champs=20
STATUS de la table TAB1. En SQL cela s'=E9crit comme ceci :

UPDATE TAB1 SET TAB1.STATUS =3D '0'

Mais comment ex=E9cuter cela en Access ? Cette instruction=20
sera ex=E9cut=E9e =E0 la suite d'un clic sur un bouton de=20
commande : CB07.
En gros c'est cela que je souhaite mais le code est=20
incomplet ...:

Private Sub CB07_Click()
s =3D "UPDATE TAB1 SET TAB1.STATUS =3D '0'=20
End Sub

D'avance merci
Mario

2 réponses

Avatar
Anor
Bonjour Mario

Private Sub CB07_Click()
Currentdb.execute "UPDATE TAB1 SET STATUS = '0' ;"
End Sub

--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
--------------------------------------------------

Mario a confié :
| Bonjour,
| Je voudrais mettre la valeur 0 dans tous les champs
| STATUS de la table TAB1. En SQL cela s'écrit comme ceci :
|
| UPDATE TAB1 SET TAB1.STATUS = '0'
|
| Mais comment exécuter cela en Access ? Cette instruction
| sera exécutée à la suite d'un clic sur un bouton de
| commande : CB07.
| En gros c'est cela que je souhaite mais le code est
| incomplet ...:
|
| Private Sub CB07_Click()
| s = "UPDATE TAB1 SET TAB1.STATUS = '0'
| End Sub
|
| D'avance merci
| Mario
Avatar
Mario
Un grand merci.

-----Message d'origine-----
Bonjour Mario

Private Sub CB07_Click()
Currentdb.execute "UPDATE TAB1 SET STATUS = '0' ;"
End Sub

--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
--------------------------------------------------

Mario a confié :
| Bonjour,
| Je voudrais mettre la valeur 0 dans tous les champs
| STATUS de la table TAB1. En SQL cela s'écrit comme
ceci :

|
| UPDATE TAB1 SET TAB1.STATUS = '0'
|
| Mais comment exécuter cela en Access ? Cette
instruction

| sera exécutée à la suite d'un clic sur un bouton de
| commande : CB07.
| En gros c'est cela que je souhaite mais le code est
| incomplet ...:
|
| Private Sub CB07_Click()
| s = "UPDATE TAB1 SET TAB1.STATUS = '0'
| End Sub
|
| D'avance merci
| Mario


.