Discussion :

[ticam]

Bonjour à tous, je voudrais pouvoir supprimer l'affichage d 'un message d'erreur, je sais d'où il provient et j'ai lu les réponses à ce genre de sujet mais je n'arrive pas à le supprimer. C'est celui -ci:


Merci de votre aide.

[Vince1603]

Bonjour,
peux tu nous mettre le bout de code qui pose problème stp ?

[cavo789]

Il semble que tu tentes d'ajouter des enregistrements à une table et que cette table contienne une clé primaire. Trois enregistrements que tu tentes d'ajouter provoqueraient des données en double ce qui, comme tu le sais, est interdit.

Au lieu de chercher à inhiber le message; essaie plutôt d'y trouver une solution.

Sinon, c'est

Code :

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

DoCMD.SetWarnings False

qu'il te faut.

[ticam]

je sais que ce n'est pas très propre de faire cela, je n'ais pas de code mais un bouton qui exécute une requête d'ajout. En fait en gros j'ai une table centre une table semaine entre ces tables une relation. je voudrais pour chaque semaine avoir à chaque fois tous mes centres c'est pour cela que je fais une requête d'ajout..une requête de mise à jour serais peu être mieux en effet...mais bon vu que ça m'écrase mes anciens enregistrements.....cela revenait au même.

Pour le message d'erreur j'ai déjà essayé de coller ça :
DoCMD.SetWarnings False
dans le code de mon bouton qui exécute ma requête mais cela ne marche pas.

[Dryss51]

Salut

il faut que tu chopes le numero d'erreur
Et que tu gères ton erreur avec un message particulier, ou simplement rien ecrire...

[Dryss51]

Voila un petit exemple qui pourra peut être te servir :
l'exemple correspond à une procédure standard sur un bouton, tu n auras qu'a mettre ton code à l'endroit indiqué et ton erreur sera géré par un message "des doublon...".

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
 
Private Sub Commande4_Click()
 
On Error GoTo Err
 
 
'code
 
Err:
    Select Case Err.Number
 
            Case (2501)
                MsgBox "Des doublons existent. Voulez vous continuez ?", vbYesNo, "Attention"
            Case (Default)
                MsgBox "Erreur inconue"
   end select
End Sub

Si tu veut gerer la box tu n'auras qu'a faire reponse=MSGBOX"des doublons..." if reponse = vbyes then...

Voila, j'espère que cela te servira salut.