Verification de l'existant sur une table

Bonjour ,
j'ai crée un formulaire a partir d'une table appeler personne ( numpersonne, nom personne, prenompersonne)
Le numpersonne est rentrée par l'utilisateur car c un numéro spécifique.
Je souhaiterai que quand l'utilisateur rentre le numpersonne pour passe au champ suivant, qu'il face une vérification dans la base et me sorte un message d'erreur ou pas.

Vous serez t'il possible de me donner des pistes la dessus.

cordialement

Julien JAURAS

Bonjour,

Sur ton contrôle, tu mets un événement AfterUpdate.
Dedans, tu places la procédure suivante :

Code:

---

1 2 3 4 5

If nz(rechdom("[numpersonne]";"[personne]";"[numpersonne]=" & me.nom_controle.value),0)=0 then msgbox "numéro ok" else msgbox "choisir un autre numéro" end if

---

Cordialement,

le rechdom est la même chose que le dlookup?
la console me dis que rechdom n'est pas défini en tant que fonction. est ce que j'ai oublié quelque chose?

Bonjour

C'est DLookup qu'il faut mettre dans une syntaxe VBA.

Philippe

Citation:

---

Envoyé par Philippe JOCHMANS

Bonjour

C'est DLookup qu'il faut mettre dans une syntaxe VBA.

Philippe

---

Voila ma syntaxe

Code:

---

1 2 3 4 5 6 7

If Nz(DLookup("[num_personne]=" & Me.numero.Value), 0) = 0 Then MsgBox "numéro ok" Else MsgBox "numero existant" End If End Sub

---

Malheureusement il m'affiche un message d'erreur : erreur de compilation , Argument non facultatif et me jaunis le mot DLookup.

Re

La syntaxe est incomplète, un tuto à lire sur les fonctions de domaines : http://starec.developpez.com/tuto/fonctionsdomaines/

Et n'oubliez pas également l'aide intégrée à Access :f1:

Philippe

Arf... mélangé le rechdom et le dlookup... C'est ça d'aller trop vite... Mais les paramètres sont les mêmes.

En complément de M. Jochmans, il y a aussi les paramètres qui s'affichent lorsque tu utilises une fonction comme le DlookUp.

Re-bonjour,
aprés avoir étudier toute la documentation, j'ai enfin réussi a produire cela .
Qu'en pensez vous? pour ma part ca fonctionne correctement :)

Code:

---

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

Private Sub Matricule_AfterUpdate() Dim Rech As Variant Rech = DLookup("[numero]", "T_personne", _ "[numero]='" & Me.numeroch& "'")   ' Si le code a été trouvé, c'est qu'il y a doublon... ' sauf si on est en train de modifier le même code If (Not IsNull(Rech)) Then MsgBox MsgBox("Le numero existe déjà dans la base", vbOKOnly + vbDefaultButton1 + vbInformation, "Attention") = vbOK   ' Annuler la mise à jour Cancel = True End If End Sub

---

Julien J