[VBA][SQL][FORMULAIRE] Affecté le resultat d'une requete sql dans un formulaire !

Bonjour, je suis débutant sur access, ainsi que VBA.

Mon problème est le suivant : J'aimerai afficher le résultat d'une requête sql appelé dans un code VBA en forme de tableau sur un formulaire (zone texte).

Mon code est le suivant :

Code:

---

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

Private Sub ListeModifApi_AfterUpdate() Dim SQL As String '' Vérifie que l'on a cliqué sur un Api pour éviter le NULL If Not IsNumeric(Me!ListeModifApi) Then Exit Sub '' Affecte la valeur de CodeApi à la variable lngCodeApi lngCodeApi = Me!ListeModifApi '' Construit la chaîne SQL avec la catégorie concernée SQL = "SELECT Nom, Prenom, Debutant, Moyen, Maitrise, Expert FROM TBLemployé INNER JOIN TBLnivmaitrise ON TBLemployé.CodeEmp=TBLnivmaitrise.CodeEmp WHERE CodeFabricant = " & lngCodeFabricant & " And CodeApi = " & lngCodeApi & "" AffichageRecherche.Enabled = True AffichageRecherche.Value = SQL Me.AffichageRecherche.SetFocus End Sub

---

Mais lorsque j'exécute ce code il m'affiche dans la zone texte souhaité que le requête sql alors que je veut le résultat sous forme de tableau !

J'ai écumé les forums, les tuto et les cours, mais comme j'ai une connaissance très limité je ne sais pas ce que je cherche alors je fais appelle a vous en espérant que d'une part cela soit possible et comment y arrivé !

Merci

Bonjour

Tu ne peux affecter les résultat d'une requête SQL à une zone de texte.

Deux solutions:

Passer par DAO

ou

Passer par la fonction de domaine DLookup

Philippe

Je te remercie pour ces information, mais est-il possible de me montrer ce que cela donne au niveau du code ?

Car je ne comprend pas la façon dont il faut utilisé DLookup !

En tout cas même si tu na pas le temps je te remercie des indication qui me permettrons d'approfondir mes recherche !

Bonsoir,

A la place d'un contrôle zone de texte, utilises un contrôle zone de liste.
Cela me paraît pour afficher des données sur plusieurs lignes et plusieurs colonnes.

Propriétés de la zone de liste :
Origine source : table/requête
Nbre de colonnes : 6 (parce que ta requête sélectionne 6 champs)

Admettons que le contrôle zone de liste se nomme lstAffichageRecherche

Code:

---

1 2	Me.lstAffichageRecherche = SQL Me.lstAffichageRecherche.Requery

---

A+

Merci LedZeppII, mais cela n'affiche toujours pas ma recherche alors je vousmontre la modification apporté au code en espérant que vous puissiez m'aider :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub ListeModifApi_AfterUpdate()     '' Vérifie que l'on a cliqué sur un Api pour éviter le NULL If Not IsNumeric(Me!ListeModifApi) Then Exit Sub '' Affecte la valeur de CodeApi à la variable lngCodeApi lngCodeApi = Me!ListeModifApi '' Construit la chaîne SQL avec l'api concernée SQL2 = "SELECT Nom, Prenom, Debutant, Moyen, Maitrise, Expert FROM TBLemployé INNER JOIN TBLnivmaitrise ON TBLemployé.CodeEmp=TBLnivmaitrise.CodeEmp WHERE CodeFabricant = " & lngCodeFabricant & " And CodeApi = " & lngCodeApi & "" ''SQL = DLookup("[Nom, Prenom, Debutant, Moyen, Maitrise, Expert]", "SQL", "[CodeFabricant = & lngCodeFabricant & " And "CodeApi = & lngCodeApi & ") lstAffichageRecherche.Enabled = True   Me.lstAffichageRecherche = SQL2   Me.lstAffichageRecherche.Requery       End Sub

---

Biensur j'ai créer ma zone de controle texte comme tu me la expliquer !

Encore merci, mais jsui toujours dans la panade ^^

Bonsoir,

Désolé, je me suis planté.
J'ai oublié un morceau. Il faut affecter le code SQL au membre RowSource.

Au lieu de ...

Code:

---

Me.lstAffichageRecherche = SQL

---

Mettre ...

Code:

---

Me.lstAffichageRecherche.RowSource = SQL

---

A+