Controle permettant la selection a partir d'une liste plus interessant que le combobox habituel

Télécharger le projet
Commenter

Description

Il s'agit d'un contrôle permettant la selection à partir d'une liste en spéifiant ses proprétés RowSourceType et RowSource. Les elements de la liste peuvent être envoyés à la propriété sous forme de liste avec séparateur ";" ou par le texte sql de la commande qui permet d'accéder à la base de données. ce qui est interessant est qu'il reproduit une copie locale de la base de données sans connection à la base de données d'origine.
Le gros du travail se trouve dans la DLL incluse dont je me donnerai plus le tard le temps de commenter.
Je pense qu'il s'agit d'un contrôle très interessant qui satisfairait tous les niveaux.

Vous pouvez spécifier le masque de saisie voir Contrôle "Microsoft Masked edi ontrol 6.0 (SP3)", la touche clavier F9 permet de lancer la liste ou le clic sur le bouton "...". Afin de faire la selection vous avez possibilité de faire des tris et filtre.

Source / Exemple : 


Option Explicit
Dim Cnx As ADODB.Connection

Private Sub Command1_Click()
    With [SNAComboBox1]
        .ColumnCount = -1  'Reconnaissance automatique du nombre de colonne
        .RowSourceType = rt_Query
        .TextColumn = 2
        .RowSource = "select * from T_Products"
        .LimitToList = True
    End With
End Sub

Private Sub Command2_Click()
    With [SNAComboBox1]
        .RowSourceType = rt_List
        .ColumnCount = 2
        .RowSource = "-1;True;0;False"
        .TextColumn = 2
        .LimitToList = False
    End With
End Sub

Private Sub Form_Load()
    Set Cnx = New ADODB.Connection
    With Cnx
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA ASIMENGO.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=2CST"
        .Open
    End With
    Set [SNAComboBox1].DefaultConnection = Cnx
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set Cnx = Nothing
End Sub

Conclusion :


Je serais heureux de vos critiques et je vous laisse libre de le modifier, je serais ravi d'avoir vos modifications. Je me suis interessé à l'essentiel chacun ajoutera les propriétés qui le conviendront pour les couleurs et évènements et autre.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_asimengo)