Discussion :

[mutuel13]

Bonjour ,

J'ai un formulaire , avec une ZoneList , renseignée par une requête , et 3 TextBoxs renseignées par l'utilisateur . En vba , pas de problème pour mettre à jour une table à partir des valeurs des 3 TextBoxs ,
par contre , je ne trouve pas le code vba pour copier le contenu de la ZoneList dans la même table .
J'ai essayé dans le même formulaire de renseigner une TextBox avec la valeur de la ZoneList , j'obtiens un message d'erreur du type # Nom ? .

Merci si vous avez une idée

JL

[tee_grandbois]

Bonsoir,
Si tu veux renseigner une zone de texte à partir du zone de liste, voici comment faire en VBA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.MaZoneTexte = Me.MaZoneLliste.Column(0)

0 est l'index de la première colonne de la zone de liste.

J'ai essayé dans le même formulaire de renseigner une TextBox avec la valeur de la ZoneList , j'obtiens un message d'erreur du type # Nom ?

Par contre ce message tu ne peux pas l'avoir dans VBA mais dans le formulaire en mode affichage. Cela veut dire que la source du contrôle est incorrecte.

[mutuel13]

Merci pour les infos .

J'ai essayé la syntaxe indiquée , il n y a pas de valeur affichée dans la TextBox . Toujours en vba , j'ai assigné à une variable , déclarée en variant , la syntaxe Variable = Me.MaZoneLliste.Column(0) , avec différente valeur , 0 ,1 ,2 puis avec un msgbox pour lire la valeur retournée , pas de valeur mais pas de message d'erreur . Pourtant dans la listBox du formulaire , il y a une valeur !! .
En effet , le message d'erreur ne concerne par le vba , mais directement le formulaire ou dans le TextBox , j'ai indiqué comme Source Control =[lstNrS] qui est l'identification de la ZoneListe .

Encore Merci

JL

[tee_grandbois]

j'ai indiqué comme Source Control =[lstNrS]

ce n'est pas la bonne méthode, tu es obligé de passer par VBA comme je te l'ai montré. Ta zone de Texte ne peut être mise à jour qu'après sélection d'un enregistrement de ta zone de liste. Pour çà, tu dois créer une procédure évènementielle "Sur clic"
Pièce jointe 230183
VBA Access va te créer 3 lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub lstNrS_Click()
 
End Sub

et à la place de la ligne blanche tu dois mettre le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TaTextBox = Me.lstNrS.Column(0)

[mutuel13]

Bonjour ,

La syntaxe indiquée ,avec l'événement click ,ne donne pas de résultat affiché dans txtNrClient . Après avoir cliqué la ListBox .

Je pense que la syntaxe est correcte , mais qu'il y a un paramétre de la listBox lstNrS qui ne permet pas de récupérer la valeur .

Comme je dois absolument récupérer cette valeur , j'ai essayé de la récupérer du formulaire précédent ( Formulaire_A dont est issu le formulaire _B ou est lstNrS),
ce formulaire est un formulaire avec un SousFormulaire , dans lequel est aussi cette information .

Dans txtNrClient ,Formulaire_B , à Source Contrôle , saisie de : =[Formulaires]![frmFichesClient]![AlaDemandeEnCours].[Formulaire]![NrClient]
et c'est OK .


Bien sur , il serait interessant de comprendre pourquoi cela ne fonctionne pas dans cette configuration . Si la raison est trouvée , je l'indiquerais dans la discussion .

Merci

[tee_grandbois]

Bonjour,
le plus simple est que tu postes ta base car je ne comprend pas tout (tu n'avais pas mentionné auparavant l'existence d'un autre formulaire et d'un sous-formulaire)

[mutuel13]

Suite à recherches dans internet , la solution trouvée en vba est :
- Définition d'une variable control (dim ctlxyz as control)
- Assignation de la variable control à la valeur de la listBox (set ctlxyz = Me.lstxyz )
- Assignation de la txtBox à la variable control (Me.txtxyz = ctlxyz.Column(0,Element)
- Mise à jour de la txtBox (Me.txtxyz.requery)

Ceci pour un même formulaire ,
Pour un formulaire différent :
[Forms]![frmAutreForm]![txtxyz] = ctlxyz.Column(0,Element)

Merci pour la piste à suivre