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

Soyez le premier à donner votre avis sur cette source.

Vue 7 344 fois - Téléchargée 1 316 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
280
Date d'inscription
jeudi 24 mars 2005
Statut
Membre
Dernière intervention
18 mars 2009

@ALIGHIERI76: le mot de passe est bien precise dans le code "2CST" en majuscule
Messages postés
8
Date d'inscription
lundi 27 novembre 2006
Statut
Membre
Dernière intervention
23 novembre 2007

Est ce que je pourrais avoir le mot de passe de la base de donnée s'il te plait?.T'as oublié de le mettre dans un fichier texte!
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
23
C'est bon, j'ai noté pour toi.
Messages postés
17
Date d'inscription
dimanche 28 septembre 2003
Statut
Membre
Dernière intervention
18 mai 2006

c'est bizarre mais le bouton noter ne marche pas ?

j'ai sélectionné 10 puis en cliquand sur valider rien ne se passe.
? pourquoi?
Messages postés
280
Date d'inscription
jeudi 24 mars 2005
Statut
Membre
Dernière intervention
18 mars 2009

Hum, la note ne s'affiche pas, si tu recommençais, lol

La DLL incluse est indispensable pour la modification du contrôle, j'imagine que chacun voudrait le personnaliser avec ses couleurs et autre, sinon l'OCX en lui même est suffisant pour utilisation.

A+
Afficher les 6 commentaires

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.