[Access] rempli zone text d'un formulaire

Résolu/Fermé
Signaler
Messages postés
357
Date d'inscription
lundi 5 mars 2007
Statut
Membre
Dernière intervention
10 novembre 2021
-
 hydatidose -
Bonjour a tous

Voila mon probleme
Je souhaite remplir une zone de texte situé dans un sous formulaire a partir d'un click dans une zone de liste du formulaire principale
et je ne vois pas du tous comment faire
Je sais qu'il faut le faire dans VB mais bon ...
Je vous rassure quand c'est dans le meme formulaire je sais le faire

Merci a ceux qui m'aideront

22 réponses

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