[Access] : Requete SQL en VBa [Résolu]

Bonsoir,
Désolé d'intervenir comme ça...

Si je comprends bien tu souhaites trier un formulaire en fonction de la valeur d'une liste déroulante?

Pas besoin de beaucoup de code pour ça.

Si tu veux afficher le résultat dans un formulaire, l'assistant zone de liste le fait automatiquement.
Crée un formulaire qui contient les champs que tu veux afficher puis, dans la section en-tête, ajoute une zone de liste et dans la première fenêtre, choisis la troisième option: "rechercher un enregistrement..."
Ensuite, suis les instructions pour la création de la zone de liste.
(tout peut être modifié par la suite dans la requête)
Si tu vas voir ensuite dans les propriétés de la liste, sous l'onglet événement, AprèsMAJ, tu trouveras un code VBA du type:

Sub...
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[NomDuChampATrier] = " & Str(Me![NomDeLaListeListe])
Me.Bookmark = rs.Bookmark
End Sub

Bien sûr, rien ne t'empêche de faire tout cela "à la main"... mais pq se compliquer la tâche?

Salut a tous

c'est bon j'ai resolu mon probleme mon code est umpeu long mais ca marche


Dim sql As String
Dim Qry As DAO.QueryDef
Dim Rs As DAO.Recordset

sql = "SELECT PC.nom_PC FROM PC"
sql = sql & " WHERE (((PC.utilisateur) = """ & Me.lstnom & """)) "

DoCmd.DeleteObject acQuery, "nom_PC" 'supprime la requête
CurrentDb.CreateQueryDef "nom_PC", sql 'crée une nouvelle requete

Set Qry = CurrentDb.QueryDefs("nom_PC")
Set Rs = Qry.OpenRecordset

While Not Rs.EOF

txtnom_PC.Text = Rs(0)
Rs.MoveNext

Wend

Set Qry = Nothing
Set Rs = Nothing


Si quelqu'un a une idée pour reduire tous ca
Il est le bien venu