Discussion :

[reedy]

Bonjour,

Quand je lance la suppression d'un enegistrement par le biais d'un formulaire lié, je n'arrive pas à désactiver le message d'avertissement "Vous allez supprimer 1 enregistrement" en utilisant une macro contenanat l'action "avertissements actifs : non".
Ca marche en revanche, quand je passe par vba :

Code :

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

 DoCmd.SetWarnings False

Quelqu'un a t'il une solution à ce probleme ?

[nico84]

Bonsoir,

Utilise plutot une gestion d'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
 
sub xxx
if not mode_dev then on error goto err:
... 
120 CurrentDb.Execute "DELETE...;", dbFailOnError
...
exit sub
err: msgbox "erreur " & err.Number & " dans xxx ligne " & erl & " : " & err.DESCRIPTION
end sub

Seul inconvénient : il faut numéroter le code pour connaitre l'origine de l'erreur (sauf en mode développeur où on garde la fonction debug...)
Encore mieux : écriture dans un journal d'erreur

[reedy]

Je crois que je me suis fait mal comprendre.
Le message en question n'est pas 1 message d'erreur mais 1 msg d'avertissement qui demande de confirmer l'action de suppression initiée.
Ce message apparait que je soit en mode développement ou non

[jcdenton057]

Il me semble que c'est un truc du genre

Code :

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

DoCmd.SetWarnings 0

Par contre, n'oublie pas de le réactiver en remplacant le 0 par le 1.

A utiliser avec précaution ......

[loufab]

Bonjour,

@Jcdenton057 : Ce que tu postes est strictement identique à la commande que Reddafry à poster.

False et True à une valeur numérique respectivement 0 et -1.

@Reddafry : Dans les options d'access (bouton office, la pizza en haut à gauche) Options Access/Avancé/Confirmer/Modification des enregistrements et Requetes Actions à décocher.

Attention pas Suppression de documents !

Cordialement,

[nico84]

Il semble que j'ai été trop complet et pas assez détaillé...

En VBA la syntaxe

Code :

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

DoCmd.RunSQL "DELETE..."

exige d'utiliser "setwarnings" pour avoir ou non les messages d'alerte, et ne remonte pas d'erreur si l'exécution pose problème.

Au contraire, la syntaxe que je propose ne génère pas de warnings et remonte une erreur détaillée.

Il est vrai que je ne réponds pas à la question
Mais je pense qu'il est préférable de toujours passer par VBA pour supprimer des enregistrements, justement pour pouvoir disposer d'une bonne gestion d'erreur. Alors que le warning ne sert à rien sinon à déstabiliser l'utilisateur du logiciel.

[reedy]

Loufab, ta solution fonctionne bien mais présente l'inconvénient qu'il faut régler ce paramètre dans chaque poste utilisateur.

Je crois que je vais me contenter de la solution que j'ai évoqué au départ càd coder la désactivation en VBA et garder le reste du code en macro

Concrètement voilà ce que j'ai fait:

Événement sur suppression:

Code :

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

1
2
3
4
 
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
DoCmd.SetWarnings False
End Sub

Événement avant suppression: le reste de la macro (une macro d'historisation) après avoir enlevé l'action "avertissement actifs:non" qui ne sert plus à rien

[jcdenton057]

Oop. Désolé j'avais pas mis le bon code :

Tu peux modifier les options d'access aussi par le code :
Par exemple, pour la confirmation des requete d'action, j'ai utilisé ca

Code :

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

Application.SetOption "Confirm action queries", False

Cela pourrait t'aider