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 :
- Dim reqSQL As String
- Dim Name As String
- Dim maBD As Database
-
- Set maBD = CurrentDb()
-
- If ListboxAffectation.Value = "" Then
- MsgBox "Veuillez sélectionner un personnage"
- Else
- Name = ListboxAffectation.Value
- MsgBox " Resultat : " & Name & " ." <= juste pour tester si celà marche
- End If
-
- reqSQL = "Select O.Libellé FROM PERSONNAGE P, CONNAITRE C, OBJET O WHERE P.IdPersonnage=C.IdPersonnage "
- reqSQL = reqSQL + "AND C.NumObjet=O.NumObjet AND P.IdPersonnage=Str(Name);"
-
- Me.AfficheAffectation = reqSQL
|
Voilà merci d'avance et bon jour férié 
PS : je suis sous VBA Access !
