Discussion :

[Mobydisk21]

Bonjour à tous,

J'ai créé une base de donnée avec un ruban personnalisé. Dans ce dernier on trouve une combobox "Liste_des_personnels".
J'aimerais pouvoir remplir automatiquement cette liste déroulante avec le contenu du champ "Nom_Prenom" d'une requête "Identité".

Après moult essais infructueux, je me vois dans l'obligation de faire appel à vous.

Merci d'avance pour vos propositions.

Cordialement Mobydisk.

[djovi]

Je pense que ce lien est la réponse à ta question Mobydisk21 :http://access.developpez.com/faq/?page=zdl#DepZdl

[Ovr19]

bonjour Mobydisk21,

j'ai peut être la solution à ta demande car je l'utilise sous Access 2010.
mon ruban est alimenté par un fichier "xml" et je suppose que tu dois être dans le même cas, donc je vais passer tout ce qui est déclaration du ruban.
- dans le "xml" places l'élément suivant:

Code :

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

	<comboBox id="listeperso" label="Liste" getItemCount="ListePersoCount" getItemLabel="ListePersoLabel" onChange="ListePersoAction"/>

puis dans Access:

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
Option Compare Database
Private oRst As dao.Recordset
 
 
Sub ListePersoCount(control As IRibbonControl, ByRef count)
On Error GoTo Err_ListePerso_getItemCount
 
    Set oRst = CurrentDb.OpenRecordset(requête Identité)
 
    With oRst
        .MoveLast
        count = .RecordCount
        .MoveFirst
    End With
 
Exit_ListePerso_getItemCount:
    Exit Sub
 
Err_ListePerso_getItemCount:
    MsgBox Err.Number & " : " & Err.Description
    Resume Exit_ListePerso_getItemCount
 
End Sub

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
Sub ListePersoLabel(control As IRibbonControl, index As Integer, ByRef label)
On Error GoTo Err_ListePerso_getItemLabel
 
    With oRst
        .MoveFirst
        .Move index
        label = .Fields("NomPersonnel") : 'nom du personnel vennant de ta requête
    End With
 
Exit_ListePerso_getItemLabel:
    Exit Sub
 
Err_ListePerso_getItemLabel:
    MsgBox Err.Number & " : " & Err.Description
    Resume Exit_ListePerso_getItemLabel
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function ListePersoAction(ByVal control As IRibbonControl, ItemLabel As String)
On Error GoTo Err_ListePersoAction
 
	' place ici ton code événnement lorsque tu choisis un nom de personnel en récupérant la valeur "ItemLabel"
 
Exit_ListePersoAction:
    Exit Function
 
Err_ListePersoAction:
    MsgBox Err.Number & " : " & Err.Description
    Resume Exit_ListePersoAction
 
End Function

j'espère t'avoir aidé et bon courage pour la suite