[Access VBA] Ajouter élément à zone liste Résolu/Fermé

Question

Bonjour,

J'ai un problème dans mon formulaire. J'ai une zone de liste qui contient le résultat d'une requête SQL (donc la propriété de RowSourceType est Table/Query et RowSource est la requête SQL). 

Je voudrais ajouter à la zone de liste du texte que l'utilisateur doit saisir dans une zone de texte et cliquer sur un bouton pour valider. Est-il possible d'ajouter le texte de la zone de texte à la zone de liste directement alors que la propritété de RowSourceType est une requête ?? ou dois-je donner à RowSourceType la valeur Value List ?? 

Merci d'avance.

Dédé86 · Accepted Answer

Je reprends mes explications depuis le début : 

J'ai 3 tables : 
GL(NoGL,NomGL)
GG(NoGG,NomGG,#NoGL)
Utilisateur(NoUtilisateur,NomUtilisateur,#NoGL)

Un GL peut contenir 1 ou plusieurs GG
Un GG peut contenir 1 ou plusieurs Utilisateurs

Dans mon formulaire, j'ai 3 zones de liste : 
Une qui s'appelle zl_gl et qui affiche tous les GL de ma table GL.
Une qui s'appelle zl_gg et qui affiche tous les GG de ma table GG.
Une qui s'appelle zl_utilisateur et qui affiche tous les Utilisateurs de ma table Utilisateur.

Quand je clique sur un élément de ma zone de liste zl_gl, l'événement Après MAJ se déclenche et affiche dans la zone de liste zl_gg  les éléments correspondants au GL sur lequel j'ai cliqué. Voici le code de l'événement :

Private Sub zl_gl_AfterUpdate()

Dim sql As String

sql = "SELECT GG.NomGG,GG.NoGG FROM GG WHERE GG.NoGL = Forms!Administration.zl_gl;"
Me.zl_gg.RowSourceType = "Table/Query"
Me.zl_gg.RowSource = sql 

End Sub


Quand je clique sur un élément de ma zone de liste zl_gg, l'événement Après MAJ se déclenche et affiche dans la zone de liste zl_utilisateur les utilisateurs correspondants au GG sur lequel j'ai cliqué. Voici le code de l'événement :


Private Sub zl_gg_AfterUpdate()

Dim sql As String
sql = "SELECT Utilisateur.NoUtilisateur,Utilisateur.NomUtilisateur FROM Utilisateur WHERE Utilisateur.NoGG=Forms!Administration.zl_gg;"
Me.zl_utilisateur.RowSourceType = "Table/Query"
Me.zl_utilisateur.RowSource = sql 

End Sub


Jusqu'à la, pas de problème. Voici ou je bloque :

J'ai ajouté une zone de texte nommée zone_texte_aj_utilisateur permettant d'ajouter un utilisateur ainsi qu'un bouton Valider qui exécute l'événement Sur clic. J'arrive à enregistrer un nouvel utilisateur dans la base de donnée avec un noGG définit à l'avance mais voilà ou je bloque : 

Je n'arrive pas à récupérer le noGG de l'élément sur lequel j'ai cliqué dans ma zone de liste zl_gg pour l'insérer dans ma requête INSERT quand je clique sur le bouton Valider 

Voici le code de l'événement Sur Clic de mon bouton but_commande_aj_enregistrement : 

Dim contenu As String
Dim sql As String

contenu = zone_texte_aj_utilisateur.Value
Dim db As DAO.Database
Set db = CurrentDb

db.Execute "INSERT INTO Utilisateur (NomUtilisateur,NoGG) VALUES('" & contenu & "',Forms!Administration.zl_gg.NoGL);" 
db.Close

'Dans le code suivant, je remets à jour ma zone de liste avec les nouvelles valeurs
sql = "SELECT Utilisateur.NoUtilisateur,Utilisateur.NomUtilisateur FROM Utilisateur WHERE Utilisateur.NoGG=Forms!Administration.zl_gg;"
Me.zl_utilisateur.RowSourceType = "Table/Query"
Me.zl_utilisateur.RowSource = sql 

(j'ai mis en gras ou ça ne fonctionne pas).

Pouvez-vous m'aider ??

LatelyGeek · Answer

Ca dépend. D'où viennent les données du SQL? Si c'est d'une table, que le contrôle de la zone de liste contient un champ de la table en question, c'est automatique ou presque.

En d'autres termes, à quoi sert la nouvelle valeur rentrée par l'utilisateur?

Dédé86 · Answer

C'est bon ça fonctionne maintenant :) . Par contre je voudrais dans ma requête Insert ajouter la clé étrangère d'un élément de la zone de liste sur laquelle j'ai cliqué précédement. 

Peux-tu m'aider ?

LatelyGeek · Answer

Je pense que oui, je peux t'aider, mais sois plus précis. Nom des champs, des tables, nom du formulaire, ce qui se passe exactement etc.

LatelyGeek · Answer

Je pense que j'ai compris, mais tu n'es pas encore assez précise. 

A priori ta zone de liste GG contient le NUMERO, qui sert de clé étrangère. Si oui, c'est simple:
Dans ta requête INSERT, tu peux utiliser Forms!NomDuFormulaire!ChoixGG 

(C'est là que je dis que tu n'es pas assez précise, parce que tu ne me donnes pas le nom du formulaire ni celui des zones de liste. J'espère que tu sauras transcrire mes réponses dans ta base)

LatelyGeek · Answer

Ca pourrait venir de là...

Forms!Administration!zl_gg.NoG

Dédé86 · Answer

Je ne sais pas si je m'exprime clairement mais je cherche à récupérer la clé étrangère de l'élément sur lequel j'ai cliqué dans la zone de liste GG pour l'enregistrer dans ma requête INSERT...

Une autre précision également : le code se déclenche après que je clique sur un bouton qui me permet d'ajouter un utilisateur.

LatelyGeek · Answer

Soit tu t'exprimes mal, soit je comprends mal.... Ca se pourrait que ça soit moi vu que tout à l'heure j'ai corrigé  trop vite:

Forms!Administration!zl_gg

Inutile de mettre N°GG puisque c'est précisément ce que contient la liste.

LatelyGeek · Answer

Juste pour mon info, dans quelle colone de ta zone de liste était le N°GG, et quelle était la colonne liée????
 Parce que si tu l'avais mis en tant que colonne liée, il suffisait d'utiliser directement le nom de la zone, sans donner de numéro de colonne, tu vois ce que je veux dire?

[Access VBA] Ajouter élément à zone liste

9 réponses

Discussions similaires