Comment récupérer la valeur label d'un dropdown de mon ruban ?

Bonsoir tous.

Avec l'aide de Dvlpz, j'ai ajouté un dropdown dans mon ruban et fais le nécessaire pour y afficher les valeurs (label) souhaitées. Ouf !!!
J'ai donc ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Ribbon_GetItemCount(control As IRibbonControl, ByRef count) Set MyDb = CurrentDb Set MyoRst = CurrentDb.OpenRecordset("SELECT count(Cheques) FROM Cheque where isnull(Montant) and Annuler=false") Set MyCheque = CurrentDb.OpenRecordset("SELECT Cheques FROM Cheque where isnull(Montant) and Annuler=false order by Cheques") 'Récupère le nombre d'enregistrements Select Case control.id Case "dropDown1" count = MyoRst.Fields(0).Value End Select End Sub

---

Puis ceci :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Ribbon_GetItemLabel(control As IRibbonControl, index As Integer, ByRef label) Select Case control.id Case "dropDown1" With MyCheque label = .Fields(0) .MoveNext End With End Select End Sub

---

Et ceci :

Code:

---

1 2 3 4 5 6

Sub Ribbon_GetItemID(control As IRibbonControl, index As Integer, ByRef id) Select Case control.id Case "dropDown1" id = index End Select End Sub

---

Et pour finir : ma misère ....

Code:

---

1 2 3 4 5 6

Sub Ribbon_OnAction_List(control As IRibbonControl, itemID As String, itemIndex As Integer) Select Case control.id Case "dropDown1" DoCmd.RunSQL ("Update Cheque set Annuler=true where Cheques=" ?????? Qu'est ce que je mets ici ??????) End Select End Sub

---

Je souhaite avec cette Sub OnAction mettre à jour la case à cocher [Annuler] et forcément selon le numéro de chèque choisi dans ma liste.
Et là je vous avoue : je sèche carrément. J'ai essayé plein de choses dans tous les sens et n’importe comment, en vain.
Que dois-je mettre comme variable dans mon code

Code:

---

DoCmd.RunSQL ("Update Cheque set Annuler=true where Cheques=" ?????? Qu'est ce que je mets ici ??????)

---

Et d'ailleurs mon GetItemID est-il vraiment utile ?
J'ai lu dans une discussion sur ce forum qu'il fallait inclure aussi un GetSelectedItemID. C'est vrai ? Si oui comment lier l'index au label ?
Voulez-vous m'orienter SVP ?
Merci d'avance.

Hello,

je te conseillerai de poser des point d'arrêt dans ton code et de poser des espions sur les objets qui intéressent.
C'est personnellement la meilleur manière que j'ai trouvé pour comprendre quelles propriétés je pouvais ensuite utiliser dans mon code

si tu ne connais pas le débug , un peu de lecture http://cafeine.developpez.com/access...el/debugprint/

Bonsoir pyloupylou,

Merci pour ta réponse.
Seulement, même si je connais le tuto que tu m'as donné, je ne suis pas plus avancé.
En effet, il n'y a pas de "bogue" dans mes codes, c'est pire, l'amateur que je suis souffre d'une incapacité manifeste à finir mon code :oops: :

Code:

---

1 2 3 4 5 6

Sub Ribbon_OnAction_List(control As IRibbonControl, itemID As String, itemIndex As Integer) Select Case control.id Case "dropDown1" DoCmd.RunSQL ("Update Cheque set Annuler=true where Cheques=" ?????? Qu'est ce que je mets ici ??????) End Select End Sub

---

Dans mon appli, tout fonctionne parfaitement en ce qui concerne le remplissage de mon dropDown.
Là où ça se gâte, c'est dans ma sub OnAction ci-dessus : je ne sais pas quelle variable indiquer ici :

Code:

---

DoCmd.RunSQL ("Update Cheque set Annuler=true where Cheques=" ?????? Qu'est ce que je mets ici ??????)

---

Pour ce que j'ai lu par ailleurs, à la différence d'une zone de liste traditionnelle, pour récupérer la valeur choisie dans le dropDown, il faut d'abord passer par son identifiant.
Et je ne vois pas comment faire ça.
Merci pour votre aide.

je ne suis malheureusement pas un spécialiste de cet objet, mais voilà comment je ferais
manifestement la valeur qui t'interesse est contenue dans ton objet
je mettrai donc le

Citation:

---

DoCmd.RunSQL ("Update Cheque set Annuler=true where Cheques=" ?????? Qu'est ce que je mets ici ??????)

---

en commentaire
ensuite sur la ligne

Code:

---

Select Case control.id

---

je poserai simplement un espion sur control
tu fais un F9 sur la ligne et tu lances ton prog, tu sélectionnes ta valeur et tu regardes dans la fenêtre espion
tu déroules le + et tu vas voir toutes les propriétés de ton objet , regarde quelle propriété contient ta valeur (peut être value )
ensuite corrige ton code en mettant

Code:

---

DoCmd.RunSQL ("Update Cheque set Annuler=true where Cheques='" & control.proprietetrouvee & "'")

---

Bonsoir pyloupylou,

Bon, j'ai cherché longuement puis abandonné.
J'ai abandonné le dropDown et mis à la place un comboBox, je ne vois pas bien la différence entre les deux sauf que le combo est beaucoup plus simple à paramétrer.
Le GetItemCount et le GetItemLabel sont inchangés.
Par contre, j'ai ajouté un GetText dans le but de remettre à Null la zone d'affichage du combo aprés la MAJ.
Je me suis franchement inspiré de ceci : http://www.developpez.net/forums/d13...ombobox-ruban/ (merci aux auteurs).
Et pour finir, il n'y a plus de sub On_Action mais une sub On_Change que voici :

Code:

---

1 2 3 4 5 6 7 8

Sub Ribbon_OnChange(control As IRibbonControl, text As String) Select Case control.id Case "comboBox1" DoCmd.RunSQL ("Update Cheque set Annuler=true where Cheques=" & text) VarResMyComboAnnul = True oMonRuban.InvalidateControl "comboBox1" End Select End Sub

---

la variable text retournant le numéro de chèque sélectionné dans la liste.

Voilà, content d'avoir réussi tout de même.
Merci pyloupylou d'avoir considéré ma requête et merci toujours et encore à Dvlpz de nous donner accès à des informations, trucs et astuces pour nous aider.