Discussion :

[Alain92110]

Bonjour,

J'utilise Access 2007 et j'ai un petit souci mais je n'ai rien trouvé dans les forums qui puisse me donner une solution.

Ma question est simple (la réponse aussi j'espère). J'ai créé un nouveau ruban dans lequel il y a différents contrôles et notamment un combobox qui pointe sur un champ NumClient d'une table TblClient. Vous vous doutez qu'un numéro du type 6789DPT101109 n'est pas très parlant. Je souhaiterais que cette liste affiche plusieurs colonnes de façons à faire apparaître également le nom du client (Ex 6789DPT101109 Albert Basque).
Seulement, apparemment il ne semble pas possible dans un ruban qu'une combobox affiche plusieurs colonnes, en tous cas je n'ai pas trouvé la solution.
Savez-vous comment peut-on contourner ce problème ou simplement le résoudre, à savoir afficher plusieurs colonnes dans une liste déroulante d'un ruban personnalisé?

Merci d'avance
Cdt
Alain92110

[Tofalu]

Les zones de listes du ruban sont à colonne simple mais rien ne vous empêche de concatener les différents libellés.

[LedZeppII]

Bonjour,

Peut-être en remplaçant le comboBox par un dropDown.
Tous les deux se remplissent avec

Code :

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

Sub GetItemLabel(control As IRibbonControl, index As Integer, ByRef label)

et

Code :

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

Sub GetItemID(control As IRibbonControl, index As Integer, ByRef id)

Sur changement de sélection :

• Le comboBox déclenche
  

  Code :

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

  Sub OnChange(control As IRibbonControl, text As String)

• le dropDown déclenche
  

  Code :

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

  Sub OnAction(control As IRibbonControl, selectedId As String, selectedIndex As Integer)

Avec le dropDown on récupère id, tandis qu'avec le comboBox on récupère label.

Avec un dropDown, si tu alimentes id avec NumClient et label avec le nom du client, tu devrais obtenir ce que tu souhaites.

A+

[Alain92110]

Bonjour,

Merci pour vos conseils.

En fait la solution de concaténer semble fonctionner. Cependant, elle génére une autre erreur.

Je m'explique: Pour que cela fonctionne il faut modifier d'abord la requête ainsi dans

Code :

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

1
2
3
4
5
6
7
8
9
Sub getNBNum(control As IRibbonControl, ByRef count)
    Set oRst = CurrentDb.OpenRecordset("SELECT NumClient, NomClient , PrenomClient FROM tblClient ORDER BY NumClient")
    'Récupère le nombre d'enregistrements
With oRst
        .MoveLast
        count = .RecordCount
        .MoveFirst
    End With
End Sub

Ensuite, on peut concaténer dans :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub getNumLabel(control As IRibbonControl, index As Integer, ByRef label)
On Error GoTo err
    With oRst
 
        label = .Fields("NumClient")
        label = label & "  " & .Fields("NomClient")
        label = label & "  " & .Fields("PrenomClient")
        .MoveNext
    End With
 
Exit Sub
err:
MsgBox err.Description
End Sub

Ainsi la combobox affiche bien :

Code :

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

 NumClient & " " & NomClient & " " & PrenomClient

Jusque là c'est parfait c'est ce que je voulais.

Sauf que maintenant, ma variable est devenue

Code :

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

 NumClient & " " & NomClient & " " & PrenomClient

et quand je veux l'utiliser dans un call back pour un filtre dans un formulaire et ben ça ne marche pas.

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
21
22
23
24
25
26
'Callback for comboBox1 onChange
'Récupère le contenu du contrôle comboBox dans la variable 'RechClient'
Sub recup_var1(control As IRibbonControl, text As String)
Dim RechClient As String
 
    RechClient = text
 
On Error GoTo Err_lst_Rechercher_Client
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Fiche_Client_frm"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Forms!Fiche_Client_frm.Filter = "[NumClient]=" & [RechClient]
Forms!Fiche_Client_frm.FilterOn = True
 
Exit_lst_Rechercher_Client:
    Exit Sub
 
Err_lst_Rechercher_Client:
    MsgBox err.Description
    Resume Exit_lst_Rechercher_Client
 
End Sub

Mon problème maintenant est de pouvoir récupérer la "bonne" variable dans le callback car la variable RechClient est devenue égale à

Code :

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

NumClient & " " & NomClient & " " & PrenomClient

alors qu'elle devrait contenir seulement NumClient pour pourvoir filtrer.

Mon problème n'est donc pas encore totalement résolu.


Merci pour votre aide.

Cordialement
Alain 92110

[LedZeppII]

Bonsoir,

NumClient se trouve avant le 1er espace.

Code :

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

RechClient = Left(text, Instr(1, text, " ")-1)

A+

[Alain92110]

Merci pour votre aide.

C'est ce qui s'appelle avoir le nez dans le guidon. Je n'ai absolument pas pensé à cette fonction.
En tous cas, maintenant ça marche super.

Avec mes remerciements
Alain92110