Eviter l'ajout de données existantes dans une table

re-bonjour,

petite question:

Comment éviter d'ajouter des donnés issues des champs d'un formulaire dans un table, si ces données existent déjà dans cette même table.

la réponse doit déjà avoir été donnée...mais je n'ai pas trouvé dans la FAQ ni sur le forum.

avec un if? ou une gestion d'erreur? ou d'autres idées issues de votre savoir ...peu importe :)

merci

mets une contrainte d'unicité sur ta table, quitte à utiliser plusieurs champs dans cette contrainte.
ensuite si tu essayes d'insérer des données existantes, il t'enverra bouler

La contrainte est déjà là...et access m'envoit déjà boulet.
mais ce n'est pas très propre.

d'autant plus qu'il m'envoit boulet, mais je peux forcer l'ajout.

Alors je ne veux pas que ca soit access qui m'envoit boulet, mais qu'un joli message box me dise: "Bonjour, je suis désolé, mais cette donnée existe déjà dans la table. Au revoir, bonne journée, sincere salutation...."
et hop, l'utilisateur comprend de quoi il retourne..

Bonjour,
1) il faut que tu supprimes les messages automatiques dans le menu outils, options, onglet modifier-rechercher, rubrique confirmer ;
2) il faut que dans la macro d'import des données tu créés une boite message qui va contenir le message que tu veux afficher
3) paramètre l'affichage de ta boite message en fonction d'une condition liée au résultat de l'import des données
8-)

Merci pour ses infos.
je savais pas comment faire pour supprimer les messages automatiques.
Cependant, je ne souhaite pas les suppimer partout.
juste dans le formulaire concerné.
donc je ne privilégie pas cette option.

Citation:

---

3) paramètre l'affichage de ta boite message en fonction d'une condition liée au résultat de l'import des données

---

il s'agit d'un ajout a partir d'un formulaire et non d'un import à partir d'un fichier.
Donc, je ne sais pas trop comment m'y prendre pour vérifier cette condition.

avec un requête sql, ca doit pouvoir se faire.
mais peut etre qu'il existe des conditions Access toutes faites... (mais dont j'ignore la syntaxe et même l'existence) (programation DAO ? c'est ça?)

Il faut que tu fasse du code pour attraper l'erreur et substituer ton message au message standard.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Const ERR_DOUBLON = 3022   Private Sub Form_Error(DataErr As Integer, Response As Integer) Select Case DataErr Case ERR_DOUBLON MsgBox "Vous ne pouvez pas choisir deux fois le même numéros", vbInformation Response = acDataErrContinue Case Else 'Affiche le message standard End Select End Sub

---

bon, j'ai trouvé la solution:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Private Sub ajouter_Click() On Error GoTo Err_ajouter_Click Dim strFiltre As String Dim strSQL As String Dim stLinkCriteria As String 'Dim strSQL2 As String   ' Construction du filtre sur la clé primaire strFiltre = "Nz([IDUC]) LIKE '*" & Nz(Me.IDUC) & "*'"     ' ********* test si l'UC est déjà référencée ****************** Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("select [IDUC] from [UC]") rst.MoveFirst   While rst.EOF = False If Me.IDUC = rst![IDUC] Then MsgBox "Cette Unité Centrale est déjà référencée", vbOKOnly Exit Sub End If rst.MoveNext Wend   '***** insert l'UC dans la table UC *********** strSQL = "Insert Into UC" _ & "(IDUC, AdresseIp, RamTailleMo, Processeur, OS, ecranResolution)" _ & " Values ('" & Me.IDUC & "','" & Me.AdresseIp & "','" & Me.RamTailleMo & "','" & Me.proc & "','" & Me.OS & "','" & Me.ecranResolution & "')" DoCmd.RunSQL strSQL   ' Ouvrir le formulaire ref_UC avec le filtre appliqué DoCmd.OpenForm "ref_UC_ajout", acNormal, , strFiltre Exit_ajouter_Click:   Exit Sub   Err_ajouter_Click: MsgBox Err.Description Resume Exit_ajouter_Click   End Sub

---