Derni\u00e8rement, un internaute me demandait s’il \u00e9tait possible de modifier le fonctionnement de l’auto compl\u00e9tion dans les listes d\u00e9roulante. S’agissant d’une fonctionnalit\u00e9 interne d’Access, il est \u00e9vident que ce n’est pas possible nativement.<\/p>\n\n\n\n
Par contre on peut toujours contourner le probl\u00e8me \u00e0 l’aide du code VBA. Voici cette astuce bas\u00e9e sur l’utilisation de l’\u00e9v\u00e8nement KeyPress<\/strong> (touche press\u00e9e) de la liste.<\/p>\n\n\n\n On commence par cr\u00e9er une variable globale dans le formulaire pour stocker les touches press\u00e9es.<\/p>\n\n\n\n A chaque touche tap\u00e9e par l’utilisateur, on parcourt la liste \u00e0 la recherche du premier item correspondant aux caract\u00e8res saisis.<\/p>\n\n\n\n La m\u00e9thode suivante donne la valeur de la colonne 2 de la ligne i.<\/p>\n\n\n\n Like est un op\u00e9rateur logique commun \u00e0 SQL et VBA.<\/p>\n\n\n\n Par s\u00e9curit\u00e9 on vide les caract\u00e8res saisis sur la prise et la perte du focus.<\/p>\n\n\n\n Comme vous le voyez, rien de complexe, on utilise juste les nombreuses possibilit\u00e9s d’Access pour contourner le probl\u00e8me. Il va sans dire que l’autocompl\u00e9tion classique de la liste fonctionne toujours.<\/p>\n\n\n\n N’h\u00e9sitez pas \u00e0 affiner le contr\u00f4le des touches tap\u00e9es, en effet, dans cet exemple seul l’alphabet classique est pris en compte, il manque les caract\u00e8res accentu\u00e9s, les chiffres …<\/p>\n\n\n\n L’utilisation de like successif, 1 like par touche press\u00e9e, est tr\u00e8s consommatrice pour la base de donn\u00e9es. Il peut y avoir de tr\u00e8s fort ralentissement sur de gros volumes de donn\u00e9es. A vous de juger si il est vraiment opportun d’utiliser cette m\u00e9thode.<\/p>\n\n\n\n Bonne utilisation !<\/p>\n","protected":false},"excerpt":{"rendered":" Derni\u00e8rement, un internaute me demandait s’il \u00e9tait possible de modifier le fonctionnement de l’auto compl\u00e9tion dans les listes d\u00e9roulante. S’agissant d’une fonctionnalit\u00e9 interne d’Access, il est \u00e9vident que ce n’est pas possible nativement. Par contre on peut toujours contourner le … Continuer la lecture Option Compare Database \nOption Explicit \n\nDim strList As String 'stocke les keycode<\/pre>\n\n\n\n
Private Sub Modifiable1_KeyPress(KeyAscii As Integer) \n Dim i As Long 'contr\u00f4le les touches \n If KeyAscii = 27 Then strList = \"\" 'Sur Echap vide le contenu \n If Not (KeyAscii > 64 And KeyAscii < 123) Then \n Exit Sub 'ce n'est pas un caract\u00e8re A-Z a-z (\u00e0 affiner) \n End if\n strList = strList & Chr(KeyAscii) 'ajoute la touche press\u00e9e \n For i = 0 To Me.Modifiable1.ListCount - 1 'parcours les items \n If Me.Modifiable1.Column(1, i) Like \"*\" & strList & \"*\" Then \n 'l'item correspond \n 'pour un liste Me.Modifiable1.ListIndex = i 'on s'y positionne \n 'pour une liste d\u00e9roulante \n Me.Modifiable1 = Me.Modifiable1.Column(0, i) \n Exit For 'et on sort \n End If \n Next \nEnd Sub<\/pre>\n\n\n\n
Column(1, i)<\/pre>\n\n\n\n
Like \"*\" & strList & \"*\"<\/pre>\n\n\n\n
Private Sub Modifiable1_GotFocus() \n strList = \"\" 'perte du focus on vide la liste de touche \nEnd Sub \n\nPrivate Sub Modifiable1_LostFocus() \n strList = \"\" 'perte du focus on vide les keycode \nEnd Sub<\/pre>\n\n\n\n
Avertissement<\/h2>\n\n\n\n