Discussion :

[KAZA51]

Voilà j'essaie de déclencher des évènements au fur et à mesure de la saisie de caractères dans une zone de texte.
Je voudrais pouvoir exécuter du code VB à chaque nouveau caractère saisi, mais sans attendre la touche entrée ou la sortie du champ.

Il y a plusieurs applications possibles :
- afficher interactivement le nombre de lignes d'une table dont un champ commence par les lettres déjà saisies.
- réaliser la "complétude automatique" de la saisie quand il n'y a plus qu'une seule possibilité.

J'ai essayé "sur changement", "sur touche appuyée", "sur touche relachée", "sur touche activée" , "avant MAJ" ... sans succès pas de réaction pendant la saisie.
Si je clique dans un autre champ un évèmement déclenche le clcul du nombre d'occurences, mais pas PENDANT la saisie.

Merci pour vos bonnes idées ...

[mzelvivi]

Bonjour
L'évènement Sur changement fonctionne bien avec :

Code :

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

1
2
3
Private Sub Texte0_Change()
MsgBox "test"
End Sub

Fais le test dans un formulaire tout neuf, ça marche ?
Attention au reste du code qui peut interférer, à mettre [procédure évènementielle] en mode création et à distinguer le "code qui ne se lance pas" du "code qui se lance et ne fait rien"

[argyronet]

Bonjour,

Non, Change ne marche pas puisque tant que le TextBox n'est pas validé, il est considéré comme NULL.
De ce fait, KAZA51 ne pourra pas définir ce qu'il veut;
Voilà un semblant de point de départ, à toi de peaufiner...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Compare Database
Option Explicit
 
Private Enum MyEvents
  ShowNBRows = 1
  AutoCompletion = 2
End Enum
 
Private m_strTextEntry As String
Private m_NoErrors As Boolean
 
Private Sub ExecuteEvent(ByVal KeyAscii As Integer, WhichEvent As MyEvents)
  m_strTextEntry = m_strTextEntry & Chr(KeyAscii)
  lblContent.Caption = m_strTextEntry
  Select Case WhichEvent
    Case ShowNBRows
      Call ShowNBRows (m_NoErrors)
    Case AutoCompletion
      Call AutoCompleteData (m_NoErrors)
  End Select
  If Not m_NoErrors Then
    MsgBox "Event ended successfully !", 64
  End If
End Sub
 
Private Sub Form_Load()
  Me!txtEntryData = ""
End Sub
 
Private Sub txtEntryData_KeyPress(KeyAscii As Integer)
  ExecuteEvent KeyAscii, AutoCompletion 
End Sub

Argy

[cafeine]

Bonjour,

Non, Change ne marche pas puisque tant que le TextBox n'est pas validé, il est considéré comme NULL.
De ce fait, KAZA51 ne pourra pas définir ce qu'il veut;
Voilà un semblant de point de départ, à toi de peaufiner...

Argy

Hello, je ne suis pas tout à fait d'accord avec toi Argy, car on peut récupérer la valeur du TextBox non pas avec .Value, mais avec .Text

comme avec ce code-ci

Code :

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

1
2
3
4
5
Private Sub TxtBoxTest_Change()
 
Debug.Print Now, Me.TxtBoxTest.Text
 
End Sub

[KAZA51]

Merci , je vais essayer.

[mzelvivi]

Merci Cafeine !

[argyronet]

Hello, je ne suis pas tout à fait d'accord avec toi Argy, car on peut récupérer la valeur du TextBox non pas avec .Value, mais avec .Text

Ah, ben j'ai appris un truc aujourdhui
Quand on a de "bonnes" vieilles habitudes, on a tendance à les garder...

Merci

Argy