[Formulaire]vérifier une saisie dans une zone de liste

**ludovicparis** · 30/03/2007, 08h45

bonjour,

j'ai une zone de liste qui provient d'un champ référence d'une de mes tables, j'aimerais lors de la saisie d'une référence dans cette zone de liste que cette saisie soit vérifiée et corresponde à une des reférences présentes dans la liste déroulante, dans le cas contraire, afficher un message d'erreur. J'ai essayé source de contrôle mais je n'y arrive pas et mes connaissances Access sont limitées!

Savez-vous comment dois-je faire?

Merci

**loufab** · 30/03/2007, 08h58

Bonjour,

Un dlookup() dans la propriété Valide si pour une vérification dans une table ou requete.

Cordialement,

**ludovicparis** · 30/03/2007, 09h23

J'ai saisie :

DLookup("RefHarnais", "Harnais") dans la propriété valide si mais il marque syntaxe incorrecte, j'ai essayer =DLookup("RefHarnais", "Harnais") mais ça fonctionne pas non plus.
De plus je ne comprend pas trop "critère" dans dlookup et dans mon cas je ne sais pas quoi mettre.

**ludovicparis** · 30/03/2007, 09h58

J'ai trouvé mon erreur, cela fonctionne maintenant.

Merci à toi

**loufab** · 30/03/2007, 10h01

Code :

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

=RechDom("champ1";"Table";"table.champ1=" & [Formulaires].[monform].[champ2])

ou
champ1 est le champ contenant la valeur qui doit exister dans Table.
Table c'est la table contenant le champ
Monform c'est le nom du formulaire
Champ2 est le nom du controle que tu es en train de saisir.

Cordialement,

**ludovicparis** · 30/03/2007, 11h31

Quand je saisie ce que tu me propose Access est comme "planter" et je ne peux rien faire après avoir saisie une référence et ensuite je ferme le formulaire et je ne peux pas enregistrer.

Est-il possible de faire cela en vba, car j'aimerais, si la référence n'est pas connue dans la table,proposer de cliquer sur un bouton (qui me renvoit vers un formulaire pour saisir une référence).

Est ce que je peux faire

private sub rechercheReference_After_Update ()

RechDom("RefHarnais";"Harnais";"Harnais.RefHarnais=" & [Formulaires].[R].[RechRef])

"Si RechDom ne trouve pas d'équivalent, afficher une msgbox, sinon ne rien faire"

J'espere que je suis clair j'ai pas l'impression mais bon....

**loufab** · 02/04/2007, 14h51

attention Rechdom() c'est pour les expressions et macros

l'equivalent vba c'est dlookup() les ; doivent être remplacé par , et Formulaires par Forms

Attention également au type de valeur à rechercher. Pour du numérique c'est

Code :

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