OVH Cloud OVH Cloud

Contrôler une case à cocher...

2 réponses
Avatar
butch
Bonjour,

Dans un formulaire, une case à cocher soit un champ Vrai/Faux de la table
sous-jacente au formulaire, doit être cochée avant de cliquer sur un bouton
de commande sur le même formulaire. Le bouton de commande exécute une
requête Ajout.

Question :
Comment vérifier que l'usager a bien cochée la case lorsqu'il clique sur le
bouton qui exécute la requête et, lui faire afficher un message s'il a oublié
de cocher la case ?

P.-S: Je sais que j'ai déjà posté un message semblable concernant une zone
de liste dans laquelle l'usager devait sélectionner une donnée. Cela
fonctionne toujours bien ! Toutefois, j'ai essayé d'appliquer ce code au
bouton qui exécute la requête en utilisant comme référence le nom du contrôle
de la case à cocher et cela ne fonctionne pas. Il n'y a aucun message qui
s'affiche !

--
Merci pour votre aide :-)
Butch

P.-S: Pour écrire à mon adresse personnelle S.V.P. enlever "nospam_" devant
celle-ci.

2 réponses

Avatar
RZ
Bonjour,

Voici le code que tu dois ajouter à ton bouton évenement OnClick:
Dim strMsg as String

if macaseacocher = 0 then
strMsg = MsgBox ("Ton message d'erreur")
....
else:
DoCmd.RunQuery etc...
End if

Dans le code VBA, une case à cocher activé = -1 et non activée = 0

J'espère que ça répond à ta question

Richard

"butch" a écrit dans le message de news:

Bonjour,

Dans un formulaire, une case à cocher soit un champ Vrai/Faux de la table
sous-jacente au formulaire, doit être cochée avant de cliquer sur un
bouton
de commande sur le même formulaire. Le bouton de commande exécute une
requête Ajout.

Question :
Comment vérifier que l'usager a bien cochée la case lorsqu'il clique sur
le
bouton qui exécute la requête et, lui faire afficher un message s'il a
oublié
de cocher la case ?

P.-S: Je sais que j'ai déjà posté un message semblable concernant une
zone
de liste dans laquelle l'usager devait sélectionner une donnée. Cela
fonctionne toujours bien ! Toutefois, j'ai essayé d'appliquer ce code au
bouton qui exécute la requête en utilisant comme référence le nom du
contrôle
de la case à cocher et cela ne fonctionne pas. Il n'y a aucun message qui
s'affiche !

--
Merci pour votre aide :-)
Butch

P.-S: Pour écrire à mon adresse personnelle S.V.P. enlever "nospam_"
devant
celle-ci.


Avatar
butch
Bonjour Richard,

Un très GROS MERCI ! Cela fonctionne à merveille.
En ce qui me concerne, c'est un pas de plus vers l'apprentissage du VBA.

À une prochaine fois...
--
Merci pour votre aide :-)
Butch

P.-S: Pour écrire à mon adresse personnelle S.V.P. enlever "nospam_" devant
celle-ci.



Bonjour,

Voici le code que tu dois ajouter à ton bouton évenement OnClick:
Dim strMsg as String

if macaseacocher = 0 then
strMsg = MsgBox ("Ton message d'erreur")
....
else:
DoCmd.RunQuery etc...
End if

Dans le code VBA, une case à cocher activé = -1 et non activée = 0

J'espère que ça répond à ta question

Richard

"butch" a écrit dans le message de news:

Bonjour,

Dans un formulaire, une case à cocher soit un champ Vrai/Faux de la table
sous-jacente au formulaire, doit être cochée avant de cliquer sur un
bouton
de commande sur le même formulaire. Le bouton de commande exécute une
requête Ajout.

Question :
Comment vérifier que l'usager a bien cochée la case lorsqu'il clique sur
le
bouton qui exécute la requête et, lui faire afficher un message s'il a
oublié
de cocher la case ?

P.-S: Je sais que j'ai déjà posté un message semblable concernant une
zone
de liste dans laquelle l'usager devait sélectionner une donnée. Cela
fonctionne toujours bien ! Toutefois, j'ai essayé d'appliquer ce code au
bouton qui exécute la requête en utilisant comme référence le nom du
contrôle
de la case à cocher et cela ne fonctionne pas. Il n'y a aucun message qui
s'affiche !

--
Merci pour votre aide :-)
Butch

P.-S: Pour écrire à mon adresse personnelle S.V.P. enlever "nospam_"
devant
celle-ci.