Discussion :

[lmc71]

Bonjour le Forum
Je reviens vers vous pour poursuivre la construction de mon ruban personnalisé.
Je viens de créer un nouvel onglet intitulé Recherche dans lequel j'ai déjà placé un bouton et deux cases à cocher. Tous fonctionnent.
Je me suis appuyé sur les tutoriaux de Christophe Warin et autres forums.
Actuellement mon soucis et la construction d'une liste déroulante sous le format "jj/mm/aaaa" récupérant les données d'un champ (nommé DateJour) de la table Dépense. Je souhaiterais pouvoir, après avoir inscrit sous la forme 10/9/16 (date raccourcie) et validé cette date, que le formulaire nommé Sf_Select_Dépense_Unique affiche seulement le ou les enregistrements correspondant à cette date. Il me semble que ce soit possible.
Je ne connais pas suffisamment le VBA et le XML pour pouvoir les élaborer et actuellement malgré toutes mes recherches, je n'ai pas trouvé la solution.
Si quelqu'un connait un site traitant explicitement le XML et le VBA sur la liste déroulante pour ruban personnalisé, je l'en remercie d'avance.
J'arrive à créer une liste déroulante dans un formulaire, mais pas dans un ruban personnalité.
Cordialement

[lmc71]

Re
J'ai progressé dans la construction et actuellement j'en suis au stade où la liste déroulante est complétée avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub getNbrDate(control As IRibbonControl, ByRef count)
    Set oRst = CurrentDb.OpenRecordset("SELECT DateJour FROM RqDépense ORDER BY DateJour")
    'Récupère le nombre d'enregistrements
With oRst
        .MoveLast
        count = .RecordCount
        .MoveFirst
    End With
End Sub
 
Sub getNomDate(control As IRibbonControl, index As Integer, ByRef label)
On Error GoTo err
    With oRst
        label = .Fields("DateJour") ' champ DateJour dans la table Dépense
        .MoveNext
    End With
Exit Sub
err:
MsgBox err.Description
End Sub

Est-il possible de classer par ordre décroissant les données dans le combobox ? j'ai essayé par une requête triée par ordre mais ce n'est pas valable.

Comment pourrais-je modifier le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Sub BtnRechercher_Action(control As IRibbonControl)
 DoCmd.OpenForm "Dépense"
Select Case sDerniereCombo
    Case "cmbDate"
         MsgBox sValcmbDate
 
 
End Select
End Sub

de façon à ne pas avoir la boite de dialogue mais que les enregistrements correspondants à ma recherche du combobox soient les seuls visibles dans le formulaire ouvert.
Je poursuis mes recherches.
Cordialement à tous

[Jean-Philippe André]

Salut,
pour une liste de date dynamiquement creee, je te recommande de passer par un dynamicmenu, dont le contenu peut etre determine a la volee.

Sur le code VBA pour l'alimentation, tu trouveras http://silkyroad.developpez.com/excel/ruban/#LIII-F-13

Pour le callback derriere le click, on devrait facilement recuperer le tout =]

[lmc71]

Salut,
pour une liste de date dynamiquement creee, je te recommande de passer par un dynamicmenu, dont le contenu peut etre determine a la volee.

Sur le code VBA pour l'alimentation, tu trouveras http://silkyroad.developpez.com/excel/ruban/#LIII-F-13

Pour le callback derriere le click, on devrait facilement recuperer le tout =]

Bonjour Jean-Philippe
Je te remercie pour ta réponse.
J'ai ouvert le lien que tu m'as fourni concernant le dynamicmenu, mais si j'ai bien compris, autant le VBA que le XML concerne un classeur Excel alors que mon souhait se porte sur une base de données Access 2007.
Peut-être que les codes sont les mêmes, mais personnellement je n'ai pas assez de compétences.
Encore merci
Je poursuis mes recherches.
Cordialement