[Access] rempli zone text d'un formulaire Résolu

Question

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

rasta67 · Answer

bonjour

créer un événement su'change' sur la zone de liste en VBA...
puis dans le code remplir la zone voulue

fl0 · Answer

c'est bon g trouvé

dans mon evenement sur change
j'ai ecrit

nom_sous_formulaire!nomzonetexte = "     "

apparament si on ne lui precise pas le chemin complet du texte il ne comprend pas

Merci de ton aide

Ozb · Answer

Bonjour,

J'ai un peu le même genre de problême. J'aimerai qu'une des données textes saies dans mon formulaire s'afffiche automatiquement dans une de mes colonnes lors d'une nouvelles saisie dans mon sous formulaires.
Par contre, je n'ai quasiment aucune connaissance en VB, il faudra me guider pluot précisément.

D'avance merci..

hydatid · Answer

Bonjour, les amis.  
J’ai un problème similaire : une zone liste (MaListe) provenant d’une table, je sélectionne un champ puis je clique sur un bouton (MaZoneDeTexte = MaListe.Column(0))  le texte apparaît dans une zone texte (MaZoneDeTexte). Je veux ajouter un nouveau champ, malheureusement le premier disparaît ! Donc comment faire pour ajouter plusieurs champs de la zone de liste dans une même zone de texte ? 
Merci

hydatid · Answer

Bonjour, les amis.  
J’ai un problème similaire : une zone liste (MaListe) provenant d’une table, je sélectionne un champ puis je clique sur un bouton (MaZoneDeTexte = MaListe.Column(0))  le texte apparaît dans une zone texte (MaZoneDeTexte). Je veux ajouter un nouveau champ, malheureusement le premier disparaît ! Donc comment faire pour ajouter plusieurs champs de la zone de liste dans une même zone de texte ? 
Merci

LatelyGeek · Answer

Eh bien juste là où tu écrivais MaZoneDeTexte = MaListe.Column(0)

LatelyGeek · Answer

Essaye d'écrire juste ça:

MaZoneDeText.Text = MaZoneDeText.Text & MaListe.Column(0) 

Normalement, à chaque clic, ça devrait rajouter la nouvelle sélection dans le zone de texte....

Merci

LatelyGeek · Answer

MaZoneDeText.Value = MaZoneDeText.Value & vbCrLf & MaListe.Column(0)

hydatidose · Answer

Merci infiniment
C'est excellent!
Merci

hydatidose · Answer

Bonjour les amis et particulièrement LatelyGeek, 
J'ai un formulaire Access, avec une zone de liste (à 3 colonnes) crée à partir d’une table. Je voudrais accéder à une ligne précise en fonction du nom que j’écrirais dans une zone texte, en cliquant sur la zone texte ou via un bouton. 
Merci pour vos suggestions

LatelyGeek · Answer

Bonjour,

je ne comprends pas bien la finalité. Normalement le but de la zone de liste justement c'est de NE PAS avoir à écrire dans une zone de texte...

Je ne voudrais pas avoir l'air indiscrète, mais je trouve plus facilement les solutions quand j'ai compris l'énoncé du problème...
Donc si tu pouvais me dire pourquoi tu veux écrire dans la zone de texte, quel genre de valeurs tu cherches etc etc...

A+

hydatidose · Answer

Merci pour ta réponse. 
J’ai une zone de liste qui m’affiche le N° de code, le nom et le prénom des mes malades (plusieurs centaines), au lieu de chercher manuellement sur cette liste un nom précis en déroulant la liste, je voudrais écrire ce nom dans une zone texte et ainsi accéder directement via la liste à son enregistrement complet (dossier). 
Merci

LatelyGeek · Answer

Les listes sont "autoextensibles", ça veut dire que quand tu vas commencer à taper le nom, Access le cherchera dans la liste. Et si tu as correctement utilisé l'assistant, dès que tu valideras tu auras les données correspondantes à l'écran...

hydatidose · Answer

Bonjour,
Je ne vois pas la place de autoextensible ou autoreductible dans mon problème, ces 2 propriétés sont présentes dans les zones texte et non dans les listes !
Merci

hydatidose · Answer

Bonjour,
Je m’excuse, je viens de bien saisir votre remarque, l’extensibilité fonctionne pour la première colonne (N° de code) et non la deuxième colonne à savoir le nom. Donc lorsque j’écris un chiffre la liste bouge par contre lorsque j’écris un caractère elle ne bouge pas ! 
J’ai éliminé la colonne N° code malgré cela, l’extensibilité fonctionne uniquement pour la première lettre. Ainsi, si je cherche un patient qui s’appellerait « Tuberculeux », lorsque je tape T j’ai tous les « T » mais en premier « Ta… » Lorsque j’ajoute « u » j’ai les patients « U… ». 
Comment faire ?
Merci

LatelyGeek · Answer

Alors, tout d'abord, tu ne dois pas supprimer la colonne Code, mais la masquer (Mais c'est peut-être ça que tu as voulu dire) puisque la recherche dans le formulaire, ensuite, va se faire sur le code et non le nom.

Mais par contre, je ne vois pas DU TOUT comment tu arrives aux "U" au lieu de aux "Tu". Je n'ai jamais vu Access faire ça. Si je tape "Tu", j'arrive bien au Tuberculeux...
N'y aurait-il pas une procédure évenementielle quelque part, sur cette liste, qui interviendrait trop tôt et remettrait la valeur à blanc? Sinon, je ne vois pas.

hydatidose · Answer

Il n'y a aucune procédure.  
j'ai vidé le formulaire de touts les autres objets et j'ai vérifié le code VB. 
J'ai la version 2003.

LatelyGeek · Answer

https://www.cjoint.com/?gorHUVJGfk

Je te joins un exemple simplissime, pour que tu voies comment ça fonctionne, et que si tu tapes T puis E tu arrives bien à TERIEUR.

Ca doit pouvoir t'aider à comprendre pourquoi chez toi ça fonctionne différemment... Moi, à distance, je ne peux pas.

--
Pourquoi se compliquer la vie à faire simple, quand c'est si simple de faire compliqué?

hydatidose · Answer

Bonjour,
Merci pour l'effort. Je crois que nous ne parlons pas de la même chose, vous parlez des listes modifiables, moi des zone de liste. 
Donc dans votre formulaire on pourrais ajouter une zone de liste avec prénom et nom et une zone texte dans la quelle on écrira un nom cela nous dirigera directement à la ligne correspondante dans la zone de liste.

LatelyGeek · Answer

Euh... peut-être, mais quel serait l'avantage par rapport à la liste modifiable, qui fait exactement ce que tu cherches à obtenir???

hydatidose · Answer

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 !

hydatidose · Answer

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

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

Discussions similaires

Newsletters