[Access] rempli zone text d'un formulaire
Résolu
fl0
Messages postés
357
Date d'inscription
Statut
Membre
Dernière intervention
-
hydatidose -
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
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
A voir également:
- [Access] rempli zone text d'un formulaire
- Whatsapp formulaire opposition - Guide
- Alternative zone telechargement - Accueil - Outils
- Un formulaire rempli - Guide
- Formulaire de réclamation facebook - Guide
- Formulaire de reclamation instagram - Guide
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 !
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
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