Discussion :

[snoopy69]

Bonjour ...

J'ai créer une procédure qui me permet de supprimer un enregistrement dans une table par rapport au numéro de sa clé primaire. Lorsque je le supprime, tout se passe pour le mieux mais j'ai un message qui vient et qui m'averti que l'enregistrement est bien supprimé.

Comment puis-je faire pour le supprimer ?

J'ai fait une recherche dans la FAQ et j'ai trouvé ceci :

http://access.developpez.com/faq/?page=SQL#SupprMsgWarn

Mais le problème c'est que si je fais ce qu'il y a de marqué cela va m'enlever TOUS les messages d'avertissement pour la suppression et moi j'aimerais que supprimer le message d'avertissement qui me dit que l'enregistrement est bien supprimé que pour ce formulaire ...

Avez-vous une idée ???

Merci de votre aide ...

[Alexandre Sahli]

regarde dans la faq

http://access.developpez.com/faq/?page=SQL#Warning

A+[/code]

[snoopy69]

Merci de ton aide ...

Mais en fait ce n'est pas un message d'erreur mais un message d'avertissement ...

Voici le message en détail :

Sur le message il y a un panneau ( attention ) jaune

L'enregistrement est supprimé

Donc je ne pense pas que c'est la même chose qu'un message d'erreur ...

Merci de votre aide ...

[Alexandre Sahli]

essaie le code et tu verras bien avant de faire des suppositions!

Il supprime tous les messages d'avertissement . Personnellement je n'ai jamais eu de message comme quoi l'enregistement est supprimé est-ce une autre fonction interne à ta base!?

[LeScandinave]

je confirme que alexandre ne te dit pas de bêtises...

[snoopy69]

je confirme que alexandre ne te dit pas de bêtises...

Je n'en doute pas ...

Alors voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Si la réponse est non ( 7 ) on supprime l'enregistrement.
 
If str_ReponseEnregistrement = 7 Then
 
    rst_Mouvement.MoveFirst
 
    DoCmd.SetWarnings False
 
    'Début de la boucle While
    While rst_Mouvement.EOF = False
 
            'On efface l'enregistrement
            rst_Mouvement.Delete
 
            'On passe à l'enregistrement suivant
            rst_Mouvement.MoveNext
 
    Wend
 
    DoCmd.SetWarnings True
 
End If

Voila je viens de réessayer et cela ne marche pas ...

Mais c'est vrai que je n'avais peut être pas précisé que j'utilisais des RECORDSET pour supprimer mes enregistrements


Cela viendrait de mon utilisation de mes recordset ??? Merci de votre aide ...

[LeScandinave]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Si la réponse est non ( 7 ) on supprime l'enregistrement.
DoCmd.SetWarnings False
If str_ReponseEnregistrement = 7 Then
 
    rst_Mouvement.MoveFirst
 
    'Début de la boucle While
    While rst_Mouvement.EOF = False
 
            'On efface l'enregistrement
            rst_Mouvement.Delete
 
            'On passe à l'enregistrement suivant
            rst_Mouvement.MoveNext
 
    Wend    
End If
DoCmd.SetWarnings True

ahh, il fallait dire que tu avais essayé.
Par contre tu n'as pas regarder dans l'aide de VB pour voir un exemple d'utilisation de cette commande...
essaye le code ci-dessus il devrait fonctionner.

[snoopy69]

Merci de ton aide ...

Alors j'ai fait un COPIER - COLLER de ton code et cela ne fonctionne toujours pas ...

Le petit message s'affiche toujours ... décidémment je ne capte pas tout ...

Voici ce que j'ai trouvé dans l'aide VBA :

Vous pouvez utiliser cette action pour empêcher les boîtes d'avertissement et de message modales d'arrêter la macro. Cependant, les messages d'erreur sont toujours affichés. De même, Microsoft Access affiche toutes les boîtes de dialogues qui requièrent des saisies autres que le seul choix d'un bouton (comme OK, Annuler, Oui ou Non) — par exemple, toutes les boîtes de dialogue qui vous demandent de saisir du texte ou de sélectionner une option parmi plusieurs.

Sur le petit message qui s'affiche j'ai 2 boutons. Il y a : OK et AIDE ...

si je clique sur AIDE voici ce qui me vient :

L'enregistrement est supprimé. (Erreur 3167)
Vous avez fait référence à un enregistrement que vous avez supprimé ou qu'un autre utilisateur, si l’environnement est multi-utilisateur, a supprimé. Passez à un autre enregistrement et recommencez l'opération.

Donc, est-ce que c'est impossible de supprimer ce message d'erreur ???

[LeScandinave]

essaye ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Si la réponse est non ( 7 ) on supprime l'enregistrement. 
DoCmd.SetWarnings False 
If str_ReponseEnregistrement = 7 Then 
 
    rst_Mouvement.MoveFirst 
 
    'Début de la boucle While 
    While rst_Mouvement.EOF = False 
 
            'On efface l'enregistrement 
            rst_Mouvement.Delete 
 
            'On passe à l'enregistrement suivant 
            rst_Mouvement.MoveNext 
 
    Wend    
End If