Discussion :

[afterbit]

Bonjour à tous,

Je débute dans la programmation VBA sur Access 2003.
Mon problème est le suivant :
Je voudrais récupérer le contenu d'un texte saisi dans une zone de texte sans devoir faire appel à un bouton de commande en utilisant l'évènement 'change'.
Par exemple sur un formulaire qui possède deux contrôles une zone de texte : Txt_Entree et une Zone de liste : Me.Lst_Sortie, lors de l'utilisation de l'évènement Change pour Txt_Entree, la valeur renvoyée est nulle. (affichage run-time error '94' invalid use of Null) alors que la valeur saisie ne l'est pas.
Existe t-il un moyen de récupérer le contenu de la zone texte avec l'évènement change ?
Voici le code du formulaire pour mon exemple :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Txt_Entree_Click()
 
Dim strZyxw As String
    strZyxw = Txt_Entree       ' récupère le contenu de la zone de texte Txt_Entree
                               ' dans la variable strZyxw
 
    Me.Lst_Sortie.RowSource = strZyxw  ' affiche le contenu de la variable strZyxw
End Sub

Ce code fonctionne quand il est associé à l'événement 'click' d'un boutton.

Merci d'avance à tous les forumeurs pour l'aide qu'ils pourront me donner.

[Taoueret]

au lieu d'utiliser l'evenement change, utilise le afterupdate et là ça devrait marcher

l'évènement change se produit dès que tu appuie sur une touche quand tu es dans ta zone de texte alors que le afterupdate se produit uniquement quand tu as fini de taper dans ta zone de texte et que tu passe au champ suivant

[afterbit]

l'évènement change se produit dès que tu appuie sur une touche quand tu es dans ta zone de texte alors que le afterupdate se produit uniquement quand tu as fini de taper dans ta zone de texte et que tu passe au champ suivant

Merci pour cette réponse rapide

En effet cela fonctionne avec l'événement afterupdate. Mais il oblige l'utilisateur à une action suplémentaire, ici passer au champ suivant (j'ai mis un boutton ça marche aussi, mais l'utilisateur doit aussi appuyer sur le bouton) . Or je voudrais pouvoir récupérer le contenu saisi dans le contrôle directement sans devoir à passer par une action suplémentaire de façon à afficher par exemple directement une liste de recherche ou de suggestion qui va s'affiner au fur et à mesure que le contenu du contrôle se rempli.
Ce que je ne comprend pas, c'est cette valeur nulle

[afterbit]

La pense avoir résolu mon problème
Il faut rajouter .Text au nom du controle liste de texte (Txt_entree)
Donc voici le code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Txt_Entree_change()
 
Dim strZyxw As String
    strZyxw = Txt_Entree.Text    ' récupère le contenu de la zone de texte Txt_Entree
                                 ' dans la variable strZyxw
 
    Me.Lst_Sortie.RowSource = strZyxw  ' affiche le contenu de la variable strZyxw
End Sub