Discussion :

[othmane.badri]

Bonjour,

Contexte :

J'ai une table avec plusieurs champs (Nom, Prénom, Adresse, Ville, Age, etc..)

Objectif :

Je souhaite interdire les doublons de lignes

Exemple :

Nom	Prenom	Adresse	Ville	Age
Aubert	Michel	Rue de la paix	Paris	46
Aubert	Valentine	Rue de la paix	Paris	30
Aubert	Yohann	Rue de la paix	Paris	16
Aubert	Michel	Rue de la paix	Paris	46

Merci d'avance à tous et bon courage

[marot_r]

Bonjour.

Un index unique devrait être ce que tu cherches.

1. Tu vas dans ta table en mode création.
2. Tu appuis sur l'iĉone Index (celle avec l'éclair)
3. Tu te mets sur une ligne vierge.
4. Dans la 1ère colonne tu mets le nom de ton index (ex : UniciteLigne)
5. Dans la 2ième colonne tu choisi le champ nom.
6. Tu te mets sur une nouvelle ligne dans la 2ième colonne tu choisi prenom.
7. Tu répètes cela pour les autres champs.
8. En bas, tu coches Unique.

Attention :

• Si un ou plusieurs de tes champs est nul, Access ne garanti plus l'unicité et tu peux te retrouver avec plusieurs ligne du type :
  Nom1, Prenom1, Nul, Nul, Nul.
  Si tu as ce risque dans tes données, il faut prévoir quelque chose pour le gérer (code, valeur par défaut, ...).
• Tu ne peux mettre en place l'index unique que si tes données sont déjà sans doublon.
• Tu n'est prévenu du double que quand tu valides ta saisie.
  Il faut prévoir un mécanisme pour gérer l'erreur.

A+

[othmane.badri]

Bonjour,
Auriez vous un exemple de code pour un formulaire d'ajout, mes champs indexés sont : nom, compte, etats, delais, formes

Merci d'avance

[marot_r]

Bonjour.

Pour quoi veux-tu code ?

1. Gérer l'erreur de doublon ?
2. Gérer les doublons avec Null ?

Quel est le type de tes différents champs ?

A+

[othmane.badri]

Bonjour marot_r,

je cherche un code pour gérer l"erreur de doublons (1),
mes champs sont des textes courts .

Merci d'avance

[marot_r]

Bonjour.

Le code est à mettre dans l'événement Sur Erreur du formulaire.

Et il ressemble à cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Select Case DataErr
        Case 3022
            MsgBox "Cette valeur a déjà été saisie ! Merci de corriger"
            Response = acDataErrContinue 'L'erreur a été traitée
 
        Case Else
            Response = acDataErrDisplay 'Affiche le message d'erreur standarsd.
 
    End Select
 
End Sub

A+

[othmane.badri]

Yess nickel, Résolu
Merciii

[morobaboumar]

Bonjour.

Le code est à mettre dans l'événement Sur Erreur du formulaire.

Et il ressemble à cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Select Case DataErr
        Case 3022
            MsgBox "Cette valeur a déjà été saisie ! Merci de corriger"
            Response = acDataErrContinue 'L'erreur a été traitée
 
        Case Else
            Response = acDataErrDisplay 'Affiche le message d'erreur standarsd.
 
    End Select
 
End Sub

A+

Salut membres du forum !
Salut marot_r !
Permettez moi de vous demander comment pourrais je adapter votre code à la discussion que j'ai ouverte ici https://www.developpez.net/forums/d1...ublons-access/
Recevez toutes mes reconnaissances à votre endroit.
Cordialement.

[marot_r]

Bonjour.

La discussion en référence semble terminée, ta question est-elle toujours d'actualité ?

A+

[morobaboumar]

Bonjour.
La discussion en référence semble terminée, ta question est-elle toujours d'actualité ?
A+

Bonsoir membres du forum !
Bonsoir marot_r !
Très heureux de votre réponse.

Je m'intéresse beaucoup aux discussions résolues car j'estime pouvoir y trouver plus rapidement des solutions à mes recherches d'où suis énormément intéressé par le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Select Case DataErr
        Case 3022
            MsgBox "Cette valeur a déjà été saisie ! Merci de corriger"
            Response = acDataErrContinue 'L'erreur a été traitée
 
        Case Else
            Response = acDataErrDisplay 'Affiche le message d'erreur standarsd.
 
    End Select
 
End Sub

.

Oui, car j'en ai eu des réponses qui m'ont ouvert la voie. Mais en ce moment où je vous réponds, je viens de découvrir
des erreurs dans l'exécution du code dans le dernier post du dimanche 28/04/2019 ici https://www.developpez.net/forums/d1...ublons-access/ que je vais souligner dans la discussion dont je viens de donner le chemin.

Cordialement.