Discussion :

[Piloupilou999]

Bonjour a tous et bravo pour toutes astuces de ce forum.

J'ai besoin de faire un code pour rechercher des valeurs de champs dans une table et les placer dans l'enregistrement en cours. Je m'explique :

J'ai deux tables Table 1 et Table 2. Dans chacune des tables, J'ai NUM, NOM et Prenom (par exemple) tous en liste de choix.

Dans un formulaire basé sur table 2, j'ai donc trois listes de choix et je souhaite que quand je crée un nouvel enregistrement et que je choisis dans une liste de choix, les autres champs se complètent avec nom et prénom ...

Voici donc le code que je place après MAJ du champ NUM

Code :

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

1
2
3
ChFiltre = "[NUM]=" & Me![NUM]
Me![NOM] = DLookup("[NOM]", "Table1", ChFiltre)
Me![Prenom] = DLookup("[Prenom]", "Table1", ChFiltre)

Ceci fonctionne donc très bien, Qd je choisis un numéro (numérique), le reste se complète seul SUPER


MAIS si je place après MAJ du champ NOM, donc un filtre basé sur un champs texte et plus numérique, alors cela ne fonctionne pas.

exemple si NOM est champs texte alors le code suivant ne fonctionne pas :

Code :

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

1
2
3
ChFiltre = "[NOM]=" & Me![NOM]
Me![NUM] = DLookup("[NUM]", "Table1", ChFiltre)
Me![Prenom] = DLookup("[Prenom]", "Table1", ChFiltre)

Il y a donc avec la fonction filtre et Dlookup une différence entre un champs texte et un champs numérique.

Je fais donc une erreur mais je ne trouve pas de solution.

Merci de m'aider

Pierre

[Heureux-oli]

Perso, pour cette tâche, je n'utilise pas Dlookup mais simplement une requête qui aliment ma liste de choix.

Et sur un AfterUpDate, je copie ce que j'ai besoin en faisant référence au colonnes qui contiennent mes données.

Code :

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

1
2
3
4
 
Sub MaList_AfterUpDate()
CeQueJeVeux = Me.Malist.Column(1)
End Sub

[Piloupilou999]

Merci pour ta réponse, mais je comprend pas bien. En fait tu fais une requète sur le champs et tu prend les éléments de ta requète pour les copier dans ton champs?

Pourquoi n'utilises tu pas le Dlookup si simple (hum hum) en numérique. Peut-être parce qu'il pose problème en texte

JE pense que mon problème peut veni d'un prob de syntax .... Si quelqu'un peut me renseigner

Merci
Pierre

[philben]

bonjour,

Nom est un champ texte, donc mettre le filtre entre des quotes

Code :

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

1
2
 
ChFiltre = "[NOM]='" & Me![NOM] & "'"

cordialement,

Philippe

[Heureux-oli]

Si tu fais un combo.
La source de données du combo est une requête, un code SQL.
Je peux mettre dans ce combo autant de colonnes que je veux (en fonction de leur disponibilité)

Je fais une recherche dans le combo. Une fois ma valeur trouvée, les autres valeurs sont alors disponibles pour pouvoir les affecter à d'autres contrôles.

Je ne dis pas et loin de là que ma méthode est la meilleure, mais c'est la plus simple à mettre en oeuvre, du moins je pense.

En plus, avec un combo, je visualise les données de toutes mes colonnes.

[Piloupilou999]

bonjour,

Nom est un champ texte, donc mettre le filtre entre des quotes

Code :

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

1
2
 
ChFiltre = "[NOM]='" & Me![NOM] & "'"

cordialement,

Philippe

UN TRES GRAND MERCI. La solution était simple mais tellement importante.

Tu me sauves car cela fait 3 jours que je cherchais des bidoullages compliqués pour avoir ce résultat et c'était si simple.

Merci et bravo pour l'entraide

A+
Pierre