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.
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.
Bonjour
Même si cela était possible, une liste de cette taille n'est pas du tout ergonomique.
Philippe
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager