Discussion :

[Jeanoste]

Salutations à tous!

Grand débutant sur access, j'ai un problème avec mon formulaire qui me désespère, je cherche l'aide d'une âme secourable.

Dans mon formulaire, l'utilisateur sélectionne 3 valeurs dans des listes déroulantes (nom de l’espèce, nom de la sous-espèce, stade de vie) , et un champ de texte (IDInsect) les assemble avec une concaténation toute simple. J'obtiens par exemple "Papilio_machaon_adult".
À partir de ce résultat, j'ai fait une requête (appelée Rqt_Code) qui permet de trouver dans ma table (Tbl_insect) le code correspondant au nom de l'insecte (ici, le nom enregistré est Papilio_machaon_adult, et le code correspondant est Ppl_Mac_A). Chaque code comme chaque nom enregistré est unique dans la table.

J'aimerais que ce code apparaisse dès que le champ de texte IDInsect est renseigné (en fait, dès que l'utilisateur ait fini de rentrer ses valeurs dans les listes déroulantes).
J'ai bien réussi à faire apparaître ce code en utilisant l’événement "sur réception focus", mais ça nécessite que l'utilisateur passe sa souris sur le cadre du texte. Galère. Il n'y aurait pas le même truc avec un événement du genre "apres remplissage de tel champ", ou même un code SQL du genre =[Tbl_insect].[CodeInsect] avec une mise à jour dès que l'utilisateur modifie ses choix? Ou un moyen de lancer la requête Rqt_Code et en extraire le code (en colonne 1)?

Merci à tous pour le coup de main!

[madefemere]

Bonsoir,

Dans ce cas, au lieu de :

J'ai bien réussi à faire apparaître ce code en utilisant l’événement "sur réception focus

il faudrait lancer votre code sur les évènements après mise à jour (AfterUpDate) de vos listes déroulantes.

Cordialement,

[Jeanoste]

Merci pour la réponse!!!

Mais hélas, je ne sais plus comment ça avait pu fonctionner, rien ne marche, c'est à désespérer. Depuis ce matin, impossible de debogger le code VBA (que je ne maîtrise pas, j'ai taché de prendre exemple sur ce que je lisais).

Dans mon contrôle zone de liste "ListCode",j'ai mis dans Contenu:

Code :

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

SELECT Tbl_insect.CodeInsect FROM Tbl_insect WHERE (((Tbl_insect.Taxon)=[Formulaires]![F_FindCode]![IDInsect]));

Puis dans l'évenement Après MaJ:

Code :

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

1
2
3
Private Sub Code_AfterUpdate()
Me.ListCode.Requery
End Sub

Bon, bien entendu, ça ne fonctionne pas, mais j'ignore pourquoi. La requête ne se lance peut-être pas automatiquement quand je change les valeurs des listes déroulantes.
J'ai essayé plusieurs trucs, mais impossible de faire apparaître le résultat de ma requête Rqt_Code ou de mon code SQL.

Merci d'avance pour votre aide!!

[madefemere]

Bonjour,

Je n'ai pas compris ce que vous voulez faire. Pouvez vous être plus explicite sur le but de l'opération sans utiliser les termes technique Access, parce que je suis largué là.

A toutes fins utiles, je mets une très petite base qui utilise 3 zones de liste et permet de récupérer dans une zone de texte la concaténation des choix.
Tout se joue sur les propriétés :
- Nombre de colonnes
- Largeurs de colonnes
- Colonne liée
- Propriété Column des zones de liste.

Cordialement,