[AC-2007] Menu déroulant dans Access 2007

[dubusjp]

Bonjour
Les menus déroulants dans Access 2007 semblent limités à 65536 enregistrements.
Y-a-t' il moyen d'augmenter ce nombre d'enregistrements ?
Merci pour votre réponse
J. P.

[Philippe JOCHMANS]

Bonjour

Même si cela était possible, une liste de cette taille n'est pas du tout ergonomique.

Philippe

[Jeannot45]

La limite étant imposée par Access, le seul moyen est de détourné par une procédure VBA.
Je te décris deux petites procédures qui pourraient détourner cette limite.
Elles te permettent de filtrer "à la volée" une certaine quantité de données. Tu n'es plus limité à 65536 !

Dans un formulaire, tu poses un champ texte que tu nommes txtNom ainsi qu'une zone de liste (pas une liste déroulante) que tu nommes lstNom

Au niveau des propriétés de la zone de texte txtNom, tu implantes les procédures ci-dessous :

Sur l'évènement "SurChangement"

Code VBA :

1
2
3
4
5
6
7
8
9
10
11
12
13
' Déclaration variable locale
Dim m_strChaine As String
 
Private Sub txtNom_Change()
    Dim l_strSql As String
 
    l_strSql = "SELECT T_Employes.CodeEmploye, T_Employes.NomEmploye FROM T_Employes " _
                 & "WHERE NomEmploye Like '" & m_strChaine & "*'"
    ' alimentation de la zone de liste
    Me.lstNom.RowSourceType = "Table/Query"
    Me.lstNom.RowSource = l_strSql
    Me.lstNom.Requery
End Sub

Sur l'évènement "Sur touche appuyée"

Code VBA :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub txtNom_KeyDown(KeyCode As Integer, Shift As Integer)
    ' Récupération des caractères saisis
    '------------------------------------------
 
    ' Si la touche utilisée est la touche Back Space (suppression du caractère à gauche du curseur)
    If KeyCode = 8 Then
        ' la chaine est diminuée d'un caractère
        m_strChaine = Left(m_strChaine, Len(m_strChaine) - 1)
    Else
        ' la chaine s'augmente du caractère saisi
        m_strChaine = m_strChaine & Chr(KeyCode)
    End If
End Sub

Voir Pièce jointe

Bonne continuation