vérification d'un champ

**Cyriusix** · 24/04/2008, 15h34

Bonjour à tous,

j'ai dans un formulaire plusieurs champs devant permettre un enregistrement.

Le premier de ces champs n'a pas droit aux doublons et donc je désirerai faire ne sorte que si un autre enregistrement de la table MaTable contient le même nom dans le champ en question, il faudrait qu'au moment ou l'on passe au champ d'après (j'immagine par un Update), un msgbox apparaisse pour mettre en garde la personne comme quoi il y a déja un enregistrement du meme nom et qu'il faut trouver un autre nom.

Voila, quelqu'un pourait-il me donner un coup de main?

Merci d'avance
Cyriusix

**Jean-Philippe André** · 24/04/2008, 15h39

Bonjour,
plusieurs méthodes sont possibles. Perso je combine souvent les fonctions Nz() + Dcount()

Code :

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

1
2
3
4
5
If Nz(Dcount("*","MaTable","ChampA=3 AND ChampB='" & Me.ChampB & "'"),0)<>0 Then
Msgbox "OKI"
Else
MsgBox "U FAIL"
End if

**Cyriusix** · 24/04/2008, 15h50

Merci beaucoup pour ce code, mais serait-ce possible d'avoir quelques explications? genre à quoi servent Nz et DCount ainsi que un petit commentaire sur le reste..

je ne suis malheureusement pas encore super rodé en VBA..

Merci bien.

**Jean-Philippe André** · 24/04/2008, 16h19

Bonjour,
outre l'aide en ligne

qui explique le fonctionnement,
voici les liens issus de la FAQ ^^
Dcount()
http://access.developpez.com/faq/?pa...es#Recordcount
Nz()
http://access.developpez.com/faq/?page=Langage#nz

Nz n'est pas forcément nécessaire dans tous les cas, mais un blindage toujours prévisible.

**Cyriusix** · 24/04/2008, 16h28

Oui merci..

Mais a quoi correspond le ChampA = 3?

**Jean-Philippe André** · 24/04/2008, 16h33

Exemple, c'est un exemple

**Cyriusix** · 25/04/2008, 08h53

Je suis peut'être chiant, mais que représente le 3.. (ca serait un exemple de quoi?)

**Jean-Philippe André** · 25/04/2008, 09h27

...
un exemple de champ numérique pour lequel on impose la valeur.

**Cyriusix** · 25/04/2008, 09h58

... Je sais que je ne suis pas très doué en vba, mais à mon avis je n'ai pas du bien expliquer mon problème..

Donc plus précisément:

Dans mon formulaire frmNouveauCamp, j'ai plusieurs champs: IDCamp (clé primaire mais invisible en mode fromulaire), NumCam (numéro d'immatriculation du camp donc en texte mais interdisant les doublons), Nomcamp (texte également), DateCamp(Date/heure)...

Je désirerais faire en sorte que lorsque l'utilisateur entre le numéro d'immatriculation du camp qu'il va créer, si le numéro est déja utilisé par un autre camp, au moment ou il se déplace (clic, tab... pour aller, par exemple, remplir le champ NomCamp) un msgbox apparait pour l'avertir que ca ne joue pas. Mais si le numéro est libre, il continue sans autre à pouvoir remplir la suite.

Voila j'espère que c'est plus claire à présent.. et désolé si ca l'était déja avant et qu'en fait j'ai simplement pas compris le code..

Merci

**Jean-Philippe André** · 25/04/2008, 10h37

Oui, ca j'ai bien compris,
il faut mettre le code dans l'évènement "sur sortie".

si j'adapte mon code par rapport à ce que tu m'as dit :

Code :

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

1
2
3
4
5
If Nz(Dcount("*","MaTable","NumCam='" & Me.NumCam & "'"),0)<>0 Then
Msgbox "OKI"
Else
MsgBox "U FAIL"
End if

**Cyriusix** · 25/04/2008, 11h33

j'ai compris.. merci beaucoup de ta patience.

Par contre, il faut juste inverser le résultat du else avec celui du if car si le NumCamp du formulaire est égal au NumCamp de ma table, cela ne doit pas être "Oki"

Une dernière petite chose, si je désirais que si le champ est donc incorecte, il se vide et que le curseur se remette sur le champ NumCamp, il me faudrait mettre quoi?

Merci bien