Discussion :

[Spurius]

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 :

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

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

[Invité]

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

[Spurius]

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 !

[LedZeppII]

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 :

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

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

A+

[Spurius]

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 :

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

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 ^^

[LedZeppII]

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 :

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

Me.lstAffichageRecherche = SQL

Mettre ...

Code :

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

Me.lstAffichageRecherche.RowSource = SQL

A+