Discussion :

[illight]

Bonjour,


Avec l'aide de la recherche multi critères de Caféine, j'ai créé un formulaire similaire.

Seulement, une question me taraude : Dans sa recherche, il effectue une mise à jour de sa liste (lstResults) à l'aide de la fonction RefreshQuery, qui s'active au moment où on coche les cases pour faire apparaitre les champs.

Dans mon formulaire actuel, j'ai à peu près une dizaine de Textbox (sans checkbox "associée"). je voudrais lancer la requête RefreshQuery à chaque fois qu'un de mes contrôles est modifié.
Pour exemple, dès que je tape une lettre dans une Textbox, ma liste va se mettre à jour. Voici quelques exemples plus concrets.


Dans un premier temps, j'ai essayé de le faire sur un controle.
J'ai appelé ma textbox textBox1. J'ai essayé avec l'évènement suivant :

Code :

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

1
2
3
Private Sub Textbox1_Change()
RefreshQuery
End Sub

Sauf que ça fonctionne pas : quand je vérifié la valeur de ma textbox quand j'ai tapé la lettre a (par exemple), il me dit que la valeur est null
Par contre, si je quitte ma textbox et que je reviens dessus, et qu eje tape une autre lettre il voit bien la lettre a
Auriez-vous une explication ?

Par ailleurs, j'ai ensuite essayé sur l'évènement KeyPress, mais j'ai le même phénomène.

Enfin, j'ai fait sur l’événement AfterUpdate et BeforeUpdate, et là ça fonctionne dès que je quitte le champ, mais c'est pas ce que je veux

Quelqu'un aurait une idée ?


Dans un 2e temps, plutôt que d'écrire des :

Code :

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

1
2
3
Private Sub Textbox1_Change()
RefreshQuery
End Sub

Code :

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

1
2
3
Private Sub Textbox2_Change()
RefreshQuery
End Sub

etc.. pour chaque Textbox, je voudrais savoir s'il n'existe pas un moyen "plus court" pour le faire sur chaque événement de chaque contrôle.
J'ai entendu parler de collections, mais j'ai cherché un peu sur le net, je n'ai rien de trouvé de concret.
Quelqu'un pourrait-il éclairer ma lanterne, ou une solution, si cela existe ?


En vous remerciant par avance de vos réponses

[illight]

Bon j'ai trouvé réponse à ma première question.

En fait c'est bien l'événement :

Code :

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

1
2
3
Private Sub Textbox1_Change()
RefreshQuery
End Sub

Qu'il faut utiliser.
Sauf que dans ma requête, pour récupérer la valeur je mettais :

Code :

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

Me.textBox1

Et ça me renvoyait NULL. Si je met

Code :

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

Me.textBox1.text

Il me renvoie la valeur que je suis en train de taper

Plus qu'à trouver réponse à ma 2e question

[Jean-Philippe André]

salut,

pour ce genre de situation, j'utilise l'event AfterUpdate(), le .value est toujours bon, et le .text n'est pas valide sinon

[Jeannot45]

Voici un extrait de code qui permet d'affecter une meme procédure à tout un ensemble de controles

Code :

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

1
2
3
4
5
6
7
8
 
    'Affectation de la même procédure à tous les objets du même nom sur l'évènement ON_CLICK
    For Each l_Control In Controls
        'Concerne les boutons de changement de Pages Horaires
        If Left(l_Control.Name, 3) = "btn" Then
            l_Control.OnClick = "=TaProcédure()"
        End If
    Next

Pour me faciliter la vie, j'ai renommer tous les contrôles, devant recevoir la même procédure, avec le même préfixe. ici : btn
Cet extrait est placé dans l'évènement Open du Formulaire bien sur

Bonne continuation

[illight]

Merci Jeannot, j'ai écrit ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Open(Cancel As Integer)
Dim l_control As Control
For Each l_control In Controls
    If Left(l_control.Name, 3) = "txt" Then
        l_control.OnChange = "=RefreshQuery()"
    ElseIf Left(l_control.Name, 3) = "chk" Then
        l_control.OnClick = "=RefreshQuery()"
    ElseIf Left(l_control.Name, 3) = "cmb" Then
        l_control.AfterUpdate = "=RefreshQuery()"
    End If
Next
End Sub

Et ça marche nickel

Par contre, dans ma requête, j'utilise la propriété .text pour récupérer les valeurs au moment de la frappe (pour les textbox).
J'avais rencontré un souci dans ma requête, car quand la textbox est vide, j'ai l'erreur 2185 (impossible de lire la propriété du controle).

Le problème est que si j'utilise le .value, je ne récupère pas la valeur actuellement tapée : elle n'est récupérée qu'à partir du moment où je perd le focus sur la Textbox. Donc j'ai fait une gestion d'erreur sur l'erreur 2185, car la fonction "IsError" ne fonctionne pas sur cette erreur.

merci ent out cas