Afficher le resultat d'une requête SQL (VBA access)

Afficher le resultat d'une requête SQL (VBA access) - VB/VBA/VBS - Programmation

Marsh Posté le 01-05-2009 à 12:19:32    

Bonjour, je but sur une bêtise.
Alors je récupère la valeur d'une listbox, j'effectue ma requête SQL avec la valeur récupérait et je voudrais afficher le résultat de la requête dans une list box, voici mon code :  
 

Code :
  1. Dim reqSQL As String
  2.     Dim Name As String
  3.     Dim maBD As Database
  4.    
  5.     Set maBD = CurrentDb()
  6.    
  7.     If ListboxAffectation.Value = "" Then
  8.     MsgBox "Veuillez sélectionner un personnage"
  9.     Else
  10.     Name = ListboxAffectation.Value
  11.     MsgBox " Resultat : " & Name & "  ."  <= juste pour tester si celà marche
  12.     End If
  13.    
  14.     reqSQL = "Select O.Libellé FROM PERSONNAGE P, CONNAITRE C, OBJET O WHERE P.IdPersonnage=C.IdPersonnage "
  15.     reqSQL = reqSQL + "AND C.NumObjet=O.NumObjet AND P.IdPersonnage=Str(Name);"
  16.  
  17.     Me.AfficheAffectation = reqSQL


 
Voilà merci d'avance et bon jour férié :)
 
PS : je suis sous VBA Access !

Reply

Marsh Posté le 01-05-2009 à 12:19:32   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed