Discussion :

[Guy FALESSE]

Bonjour à tous,

Lorsque j'utilise un combo box qui utilise la table tblMois qui contient 12 mois le combo box n'a pas besoin d'un ascenseur.
Par contre lorsque j'utilise un combo box qui utilise la table tblRayons qui elle contient 29 articles et malgré que j'ai de la place dans mon formulaire, un ascenseur est utilisé.
Est-il possible de contrôler cette hauteur.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub getRayonsCount(control As IRibbonControl, ByRef count)
    Set oRst = CurrentDb.OpenRecordset("SELECT * FROM tblRayons;")
    'Récupère le nombre d'enregistrements
   With oRst
        .MoveLast
        count = .RecordCount
        .MoveFirst
       ' MsgBox ("") & count
    End With
End Sub

D'avance merci,
@+
Guy FALESSE

[Jeannot45]

C'est possible en jouant sur la propriétés ListRows :

Petit exemple :

Code :

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

1
2
3
4
5
6
 
Private Sub MaCombo_Enter()
    With Me.MaCombo
        .ListRows = .ListCount
    End With
End Sub

Bonne continuation

[Guy FALESSE]

Salut Jeannot45,

Merci pour ta réponse.
La question était pour un combo box, créé pour être sur un ruban, on n'a pas la possibilité de "jouer" avec les lignes.
@+
Guy FALESSE

[Jeannot45]