Discussion :

[Dafbau]

Bonjour

J'ai un sous formulaire dans lequel une case à cocher permet de déclencher la suppression de l'enregistrement concerné.
Le commande SQL fonctionne tres bien.
Mais avant chaque rafraichissement du sous formulaire un message d'alerte apparait "L'enregistrement est supprimé"
Je ne souhaite pas désactiver complétement l'affichage des messages d'alertes
donc j'ai essayé la commande DoCmd.Setwarnings (False) placée avant mon code SQL de suppression
sans succés

Avez vous une idée ?

Merci

[Philippe PONS]

C'est probablement une erreur qu'il faut intercepter au niveau du formulaire dans l'événement Form_Error.
Philippe

[mawi]

Il me semble que False n'est pas entre parenthèses.

[Dafbau]

Merci de vos réponses
j'ai essayé en supprimant les paranthèses de "False"
rien de changé

Par contre le message n'est pas un message d'erreur mais bien une alerte ou information
j'essaye quand même avec un form_error

[Invité]

Bonjour

Il serait bien que tu nous donnes le message, et le bout de code.

Starec

[Dafbau]

Voila le code qui génère le message non pas d'erreur mais d'information

Code :

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

1
2
3
4
5
6
7
8
9
Suppress = MsgBox(stmessage, vbYesNo, "ATTENTION")
If Suppress = vbYes Then
DoCmd.SetWarnings False
 
DoCmd.RunSQL "DELETE tabPrevision.NumPrevi, tabPrevision.TypehuileSortie, tabPrevision.ClientSortie, tabPrevision.DestSortie, tabPrevision.DateSortie, tabPrevision.QteSortie, tabPrevision.EntreeHn, tabPrevision.TSP, tabPrevision.NTSP, tabPrevision.Ajout, tabPrevision.Suppression " & _
" FROM tabPrevision " & _
" WHERE (((tabPrevision.NumPrevi)=" & stASupp & "))"
Else
End If

Le message d'information est celui que j'avais mentionné :
"L'enregistrement est supprimé"
dans une boite de dialogue ACCESS avec un bouton OK, et un bouton Aide
Le message apparait au rafraichissement du formulaire

Mercide votre aide