OVH Cloud OVH Cloud

Message pour Arrêter ou Accepter des suppressions

2 réponses
Avatar
butch
Bonjour,

Situation :
Sur un formulaire basé sur une table, un bouton de commande permet
actuellement d'exécuter une requête suppression afin de supprimer un ou
plusieurs enregistrements dans la table sous-jacente.

Un bout de code a aussi été ajouté au bouton afin de s'assurer que l'usager
a bien sélectionné un ou plusieurs enregistrements du formulaire en cochant
un contrôle type OUI/NON présent aussi dans la table sous-jacente.

Question :
Quel code peut-on ajouter au bouton de commande exécutant la requête
suppression afin de faire afficher à l'uager un message lui rappelant que la
suppression est irréversible. De plus, dans ce message, un bouton type OK
devrait permettre d'exécuter la requête et un autre type "Annuler" doit
permettre de stopper l'opération sans exécuter la requête.

P.-S : Je sais que Access affiche ce genre de message lors de l'exécution
de ce type de requête mais je préfére "personnaliser" le message.

--
Merci pour votre aide :-)
Butch

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

2 réponses

Avatar
ze Titi
Bonjour butch

A tester...

...
if msgbox("Confirmez-vous la suppression de cete enregistrement
?",vbExclamation+vbOkCancel,"Suppression irréversible !")=vbCancel Then
Cancel=True
Exit Sub
End if
...

Dans ton message
Bonjour,

Situation :
Sur un formulaire basé sur une table, un bouton de commande permet
actuellement d'exécuter une requête suppression afin de supprimer un ou
plusieurs enregistrements dans la table sous-jacente.

Un bout de code a aussi été ajouté au bouton afin de s'assurer que l'usager
a bien sélectionné un ou plusieurs enregistrements du formulaire en cochant
un contrôle type OUI/NON présent aussi dans la table sous-jacente.

Question :
Quel code peut-on ajouter au bouton de commande exécutant la requête
suppression afin de faire afficher à l'uager un message lui rappelant que la
suppression est irréversible. De plus, dans ce message, un bouton type OK
devrait permettre d'exécuter la requête et un autre type "Annuler" doit
permettre de stopper l'opération sans exécuter la requête.

P.-S : Je sais que Access affiche ce genre de message lors de l'exécution
de ce type de requête mais je préfére "personnaliser" le message.


--
Voilou !
Bon code
Cordialement,

Ze Titi

Avatar
butch
Bonjour "ze Titi",

Mille excuses pour le retard à répondre et GROS merci. Le code suggéré
fonctionne très bien même en l'ajoutant à du code existant.
--
Merci pour votre aide :-)
Butch

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



Bonjour butch

A tester...

....
if msgbox("Confirmez-vous la suppression de cete enregistrement
?",vbExclamation+vbOkCancel,"Suppression irréversible !")=vbCancel Then
Cancel=True
Exit Sub
End if
....

Dans ton message
Bonjour,

Situation :
Sur un formulaire basé sur une table, un bouton de commande permet
actuellement d'exécuter une requête suppression afin de supprimer un ou
plusieurs enregistrements dans la table sous-jacente.

Un bout de code a aussi été ajouté au bouton afin de s'assurer que l'usager
a bien sélectionné un ou plusieurs enregistrements du formulaire en cochant
un contrôle type OUI/NON présent aussi dans la table sous-jacente.

Question :
Quel code peut-on ajouter au bouton de commande exécutant la requête
suppression afin de faire afficher à l'uager un message lui rappelant que la
suppression est irréversible. De plus, dans ce message, un bouton type OK
devrait permettre d'exécuter la requête et un autre type "Annuler" doit
permettre de stopper l'opération sans exécuter la requête.

P.-S : Je sais que Access affiche ce genre de message lors de l'exécution
de ce type de requête mais je préfére "personnaliser" le message.


--
Voilou !
Bon code
Cordialement,

Ze Titi