garder le curseur même position dans le champ après requery

Question

J'essaye de faire un autocomplete combobox comme ceci dans l'événement keyUp.

Private Sub Combo59_KeyUp(KeyCode As Integer, Shift As Integer) 
    If Len(Combo59.Text) > 2 Then 
     Combo59.RowSource = "SELECT City FROM Mills WHERE City LIKE '%" & Combo59.Text & "%' GROUP BY City ORDER BY City;" 
     Me.Dirty = False 
     Combo59.Requery 
    End If 
End Sub 

Le problème est que, après la requery, il sélectionne tout le texte dans le champ alors quand la presse utilisateur la clé suivante, il efface tout.

Y at-il un moyen facile, ou je dois trouver la position du curseur et le remettre après la requery?

Merci

Answer 1

Cela peut nécessiter quelques ajustements, mais il devrait vous donner l'idée générale:

Private Sub Combo59_KeyUp(KeyCode As Integer, Shift As Integer) 
Dim SaveSelStart 
    If Len(Combo59.Text) > 2 Then 
     SaveSelStart = Combo59.SelStart 
     Combo59.RowSource = "SELECT City FROM Mills WHERE City LIKE '%" & Combo59.Text & "%' GROUP BY City ORDER BY City;" 
     Me.Dirty = False 
     Combo59.Requery 
     Combo59.SelLength = 0 
     Combo59.SelStart = SaveSelStart 
    End If 
End Sub