Discussion :

[nlbmoi]

Bonsoir

J'ai crée une base de données pour gérer un listing d'adhérents : la table t_adherent contient un certain nombre de champs dont le nom, prénom, adresse, email, numéro de tel ... J'ai défini comme clé primaire les champs nom et prénom pour détecter les doublons : le problème est que le message d'erreur n'intervient qu'à la fin de l'enregistrement (donc après avoir rempli tous les champs !!!).
Existe-t-il un moyen de mettre le texte d'erreur (si possible personnalisé) dès la saisie des nom et prénom dans le formulaire ?
Merci de votre aide

[Dolphy35]

Bonjour,

Oui, cela est possible en effectuant un test après la mise à jour du contrôle, après un contrôle sur le nom et prénom peut être délicat dans le cadre de deux personnes ayant le même nom où même prénom.

@+

[nlbmoi]

Je dois donc contrôler après mise à jour que la combinaison nom+prénom n'existe pas ? Mais je n'ai aucune idée du code que je dois saisir.
Merci

[ClaudeLELOUP]

Bonjour Morgan et nlbmoi,

Par exemple :

- dans l’événement Avant mise à jour de Nom, tu testes si Prénom n’est pas Null (en d’autres mots, que tu l’as déjà encodé).
Si OK, tu vérifies que la combinaison n’existe pas déjà dans la table (avec la fonction DCount qui doit égaler zéro).
Si DCount ≠ 0, alors => message et cancel de la mise à jour ;

Code :

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

1
2
3
4
5
6
7
Private Sub txtNom_BeforeUpdate(Cancel As Integer)
If IsNull(Me.txtPrenom) Then Exit Sub
If DCount("*", "LaTable", "Nom = """ & Me.Nom & """ and Prenom = """ & Me.Prenom & """") <> 0 Then
  MsgBox "Cet ajout ferait doublon !", vbCritical
  Cancel = True
End If
End Sub

- idem pour Prénom (en changeant ce qu’il faut).


Exemple en P.J.

[nlbmoi]

Bonjour

Merci de ton aide.
J'ai essayé sur le fichier que tu as mis en exemple mais quand je fais un essai en mettant un doublon, je n'ai pas de message d'erreur et il me le prend.

J'ai essayé de comprendre le code notamment en utilisant l'aide et je ne comprends pas tout :
- le premier élément de la syntaxe est l'expression : ne devrait-on pas mettre la comparaison du nom rentré à ce moment là ?
- je ne comprends pas trop la différence entre l'expression et le critère ?

EN tout cas, encore merci pour ton aide

[ClaudeLELOUP]

J'ai essayé sur le fichier que tu as mis en exemple mais quand je fais un essai en mettant un doublon, je n'ai pas de message d'erreur et il me le prend.

As-tu bien vérifié ?

Dans l’exemple il y a un Nemar Jean, essaie d’introduire un deuxième Nemar Jean et tu auras ce qui apparait sur la miniature.

Pour le code

Vois d'abord le nom des contrôles du formulaire1.
Dans le code, "Me.txtPrenom" fait référence au contenu du contrôle qui s'appelle "txtPrenom" dans le formulaire.
Suppose que tu viens d’encoder Nemar dans le contrôle txtNom d’un nouvel enregistrement

Code :

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

If IsNull(Me.txtPrenom) Then Exit Sub

Tu demandes si le contrôle txtPrenom est Null (donc si tu l'as déjà encodé), la réponse est "oui, il est Null", il ne faut donc rien faire... et on sort.

"Nemar" est donc accepté comme nouveau nom.

Tu passes maintenant au contrôle txtPrenom et tu essaies d'encode "Jean"

Code :

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

If IsNull(Me.txtNom) Then Exit Sub

Ici, on ne va pas sortir puisque txtNom n'est pas Null (il contient "Nemar"), on exécute donc l'instruction suivante :

Code :

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

If DCount("*", "LaTable", "Nom = """ & Me.Nom & """ and Prenom = """ & Me.Prenom & """") <> 0 Then

Ici tu comptes dans la table les occurrences Nom = "Nemar" et Prenom = "Jean".
La réponse va être 1 (puisqu’il y était déjà au départ) et on va exécuter :

Code :

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

1
2
  MsgBox "Cet ajout ferait doublon !", vbCritical
  Cancel = True

C'est-à-dire un message d'avertissement et le détricotage de ce que tu viens d'encoder.

Par contre, si comme prénom, tu encodes "Alain", dans la table il n'y a pas de Nemar Alain et ce sera accepté.
Si tu veux te familiariser avec les fonctions de domaine, vois le tutoriel http://starec.developpez.com/tuto/fonctionsdomaines/

Tu as compris cette fois ?

[nlbmoi]

As-tu bien vérifié ?

Dans l’exemple il y a un Nemar Jean, essaie d’introduire un deuxième Nemar Jean et tu auras ce qui apparait sur la miniature.

EN fait, je viens de me rendre compte de mon erreur : je remplissais directement dans la table et non via le formulaire !! Maintenant ça marche, merci beaucoup

Juste une dernière question sur la fonction, dans la fonction Dcount, que signifie "*" ?

[ClaudeLELOUP]

C'est un passe-partout pour dire "n'importe quel élément" => ce que tu cherches, c'est le nombre d'enregistrements.

Tu aurais pu écrire "Nom" à la place, tu aurais obtenu le même résultat.

[nlbmoi]

Ah d'accord !!

J'ai essayé en suivant ton fichier exemple et tes explications de l'adapter à ma table mais je n'ai pas le message d'erreur lors de la saisie d'un doublon.
Je joins ma base.

[ClaudeLELOUP]

Désolé, je dispose d'une version 2000 : je ne peux lire ton fichier.

Vois ici la procédure pour convertir en Access2000.

[nlbmoi]

La voici en compatible 2000

[ClaudeLELOUP]

Tu as mal adapté le code.

Comme ceci, c'est correct :

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
Private Sub Nomlicencie_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Prenom) Then Exit Sub
If DCount("*", "T_adherent", "Nomlicencie = """ & Me.Nomlicencie & """ and Prenom = """ & Me.Prenom & """") <> 0 Then
  MsgBox "Cet ajout ferait doublon !", vbCritical
  Cancel = True
End If
End Sub
 
Private Sub Prenom_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Nomlicencie) Then Exit Sub
If DCount("*", "T_adherent", "Nomlicencie = """ & Me.Nomlicencie & """ and Prenom = """ & Me.Prenom & """") <> 0 Then
  MsgBox "Cet ajout ferait doublon !", vbCritical
  Cancel = True
End If
 
End Sub

[nlbmoi]

Ah oui, en même temps ça parait logique !!
Tout marche bien, je te remercie vivement de ton aide.

[ClaudeLELOUP]

...
Juste une dernière question sur la fonction, dans la fonction Dcount, que signifie "*" ?

Ma réponse...

C'est un passe-partout pour dire "n'importe quel élément" => ce que tu cherches, c'est le nombre d'enregistrements.

Tu aurais pu écrire "Nom" à la place, tu aurais obtenu le même résultat.

... était un peu approximative ! (Sans incidence dans ce contexte-ci.)

Il y a une différence entre "*" et "Nom", c'est expliqué ici par f-leb.

[ragus77]

Bonjour,

j'utilise ces commandes qui fonctionnent très bien, merci a vous, j'ai un champ ou je veut verifier s'il y a des doublons, si ce champ est en format texte, cela fonctionne, mais si ce champ est en format numérique, j'ai un retour d'érreur, je ne sais pas comment modifier le code pour ce type de format, j'ai mis cela :

Code :

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

1
2
3
4
5
Private Sub frmLabel_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Label = """ & frmLabel & """") <> 0 Then
    MsgBox "doublon", vbCritical
End If
End Sub

[pier.antoine]

Bonjour


Dans le cas d'un champ texte, la valeur à comparer doit être encadrer par des guillemets (quote __ " " ___).

C'est ce qu'on trouve ici

"Label = """ & frmLabel & """"

Dans le cas d'un champ numérique, les guillemets sont inutiles.
Donc

"Label = & frmLabel & "

Pierre

[ClaudeLELOUP]

Bonjour Pierre,

"Label = & frmLabel & "

Code :

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

DCount("*", "Table1", "Label = " & frmLabel )

serait à mon avis, plus correct.

[pier.antoine]

Bonjour
Tout à fait Claude.

Merci de ta vigilance
Pierre

[ragus77]

Bonjour,

Merci cela règle mon pb, merci a tous et bonne journée

[trouvaille]

Bonjour,

J'ai essayer le code. Cela fonctionne à merveille, mais je n'ai pas de détricotage

Après le Ok du message d'erreur, si j'efface le doublon, et que je veux sortir du formulaire, j'ai des message erreur ACCESS genre par de valeur nulle possible et ensuite impossible d'effectuer l'enregistrement....

Avez-vous une solution?

Merci