[Access] rempli zone text d'un formulaire - Page 2

Bonjour à tous,
Le problème est résolu : il faut créer une zone texte (txtRech Auteur), une zone de liste (lstResults) dont la source est une table (Source), un bouton BValider pour valider la recherche et un bouton BReinitiliase qui rafraîchi la zone de texte et la liste. Le code VB est le suivant :
1- Private Sub BValider _Click()
RefreshQuery
End Sub
2- Private Sub BReinitiliase _Click()
txtRechAuteur.Value = " "
Me.lstResults.RowSource = "SELECT CodSource, Titre, Auteur FROM Source;"
Me.lstResults.Requery
End Sub
3- Private Sub Form_Load()
'Les propriétés de la zone de liste sa source et sa requete
Me.lstResults.RowSource = "SELECT Cod Source, Titre, Auteur FROM Source;"
Me.lstResults.Requery
End Sub
4- Private Sub RefreshQuery()
'Propocedure de Moteur de recherche
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT Cod Source, Titre, Auteur FROM Source Where Source!CodSource <> 0 "
SQL = SQL & "And Source!Auteur like '*" & Me.txtRechAuteur & "*' "
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub
Maintenant si quelqu’un peut m’aider à trier cette zone de liste, cela serait excellent !

Bonjour à tous,

Le problème est résolu : il faut créer une zone texte (txtRech Auteur), une zone de liste (lstResults) dont la source est une table (Source), un bouton BValider pour valider la recherche et un bouton BReinitiliase qui rafraîchi la zone de texte et la liste. Le code VB est le suivant :

1- Private Sub BValider _Click()

RefreshQuery

End Sub

2- Private Sub BReinitiliase _Click()

txtRechAuteur.Value = " "

Me.lstResults.RowSource = "SELECT CodSource, Titre, Auteur FROM Source;"

Me.lstResults.Requery

End Sub

3- Private Sub Form_Load()

'Les propriétés de la zone de liste sa source et sa requete

Me.lstResults.RowSource = "SELECT CodSource, Titre, Auteur FROM Source;"

Me.lstResults.Requery

End Sub

4- Private Sub RefreshQuery()

'Propocedure de Moteur de recherche

Dim SQL As String

Dim SQLWhere As String

SQL = "SELECT CodSource, Titre, Auteur FROM Source Where Source!CodSource <> 0 "

SQL = SQL & "And Source!Auteur like '*" & Me.txtRechAuteur & "*' "

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

SQL = SQL & ";"

Me.lstResults.RowSource = SQL

Me.lstResults.Requery

End Sub

Maintenant si quelqu'un peut m'aider à trier cette zone de liste, cela serait excellent !
Merci