Discussion :

[HABILER]

Bonjour à tous.

Je voudrais recuperer la valeur d'un groupe de cases d'options (fraDep) dans une combobox (cboServices).

Pour cela j'ai fait le test suivant :

Code :

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

1
2
3
4
5
Private Sub cboServices_Click()
Dim strfraDep As String
strfraDep = Me!fraDep.Value
Debug.Print "strfraDep :"; Me!fraDep.Value
End Sub

Mais le debug.print n'apparaît pas.
Dois-je adapter mon code dans le fraDep ? Mais dans le cas ci-dessous il m'indique

Erreur code 2448

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Select Case fraDep.Value
Case 1
 
        strDep = "'*'"
        libelleDep = "All"
        cboServices.Visible = False
        'cboServices.Value = strDep
 
 Case 2
        strDep = "'CEO'"
        libelleDep = "CEO"
        cboServices.Visible = True
        cboServices.Value = strDep

[tee_grandbois]

bonsoir,

Mais le debug.print n'apparaît pas.

le résultat d'un debug apparait dans la fenêtre d'exécution dans VBA (faire Ctrl+G depuis la fenêtre VBA pour la faire apparaitre si elle n'est pas visible):

Mais dans le cas ci-dessous il m'indique Erreur code 2448;

peux-tu indiquer sur quelle instruction l'erreur est levée et quel est le libellé de l'erreur ?

[Jeannot45]

C'est vrai que cela manque de précision.

Je voudrais récupérer la valeur d'un groupe de cases d'options (fraDep) dans une combobox (cboServices).

Ta combo est-elle liée à un champ multivalué ?
Si oui, dans ce cas voici un peu de lecture qui t'ouvrira quelques piste : Les champs multi-valués

[HABILER]

En fait dans la table Afd ou la clé est un chiffre de 5 positions dont la premiere indique le departement, le 2eme la direction, le 3eme le service.

10000 = Finances
11000 = Comptabilité
11100 = Achats
11200 = Ventes
12000 = Patrimoine.

Le but est que lorsque je choisi Finances dans mon groupe d'options (fraFep) Comptabilité et Patrimoine apparaissent dans mon combobox (CboServices) pour qu'apparaisse ensuit achats et ventes dans un 2eme combobox.

[tee_grandbois]

bonjour,

Le but est que lorsque je choisi Finances dans mon groupe d'options (fraFep) Comptabilité et Patrimoine apparaissent dans mon combobox (CboServices) pour qu'apparaisse ensuit achats et ventes dans un 2eme combobox.

tu veux donc appliquer la sélection faite dans le groupe d'options à ta combobox, pour cela il faudrait modifier la propriété Rowsource de CboServices:
sur l'évènement Click ou After_Update de fraFep tu dois mettre:

Code :

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

1
2
3
4
5
6
Dim strSQL As String
strSQL = "select * from Afd where cle = " &  me.fraDep & ";"
' ou si cle est du String:
strSQL = "select * from Afd where cle = '" &  me.fraDep & "';"
 
Me.CboServices.RowSource = strSQL

il faut, bien sûr, modifier select * from Afd en mettant les colonnes utilisées dans la combobox (comme dans la propriété Contenu)

[hyperion13]

Salut
ne sommes-nous pas confronté à un problème de hiérarchie au niveau des num. compte ?
A mon avis il faudrait créer une tbl Departement, Une autre Direction et enfin une autre Service ?
Ou alors tester les symboles et leurs positions qui forment le num. compte !

[tee_grandbois]

ne sommes-nous pas confronté à un problème de hiérarchie au niveau des num. compte ?
A mon avis il faudrait créer une tbl Departement, Une autre Direction et enfin une autre Service ?
Ou alors tester les symboles et leurs positions qui forment le num. compte !

effectivement, je dirai même que ce n'est pas logique vu l'énoncé:

Le but est que lorsque je choisi Finances dans mon groupe d'options (fraFep) Comptabilité et Patrimoine apparaissent dans mon combobox (CboServices) pour qu'apparaisse ensuit achats et ventes dans un 2eme combobox.

[HABILER]

Je croyais travailler avec de function gauche() Mais ce n'est pas logique apparemment

[HABILER]

J'ai modifié le code en passant de _Click a _GotFocus.
Le problème est que seuls les chiffres apparaissent. Ceux-ci, repris dans

Code :

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

 & cboServices &

se trouvent dans la deuxieme colonne de ma requête.
alors que "Afd_Serv.[Omschrijving frans]" contenant les données qui doivent apparaître dans la liste déroulante se troucent dans la premiere..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub cboServices_GotFocus()
Dim strSQL As String
Debug.Print "Me.fraDep CboServices 1:"; Me.cboServices.Value[ATTACH=CONFIG]494720[/ATTACH]
'strSQL = "select * from Afd where Directorat = " & Me.fraDep & ";"
' ou si cle est du String:
strSQL = "select [Omschrijving frans] from Afd_Serv where Directorat = "" & cboServices & "" "
Debug.Print "strSQL 2:"; strSQL
 
Me.cboServices.Requery
 
End Sub

[tee_grandbois]

bonjour habiler,

cJ'ai modifié le code en passant de _Click a _GotFocus.
Le problème est que seuls les chiffres apparaissent.

pour quelle raison ce changement ?

Ceux-ci, repris dans & cboServices & se trouvent dans la deuxieme colonne de ma requête.
alors que "Afd_Serv.[Omschrijving frans]" contenant les données qui doivent apparaître dans la liste déroulante se troucent dans la premiere..

je trouve tes explications un peu confuses. Si tu veux utiliser une colonne d'une combobox, il faut utiliser la propriété Column, en commençant par 0 pour la première colonne, puis 1 pour la seconde ...

Code :

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

Me.cboServices.Column(1)

Privilégie aussi le copier/coller dans les balises de codes pour le code plutôt que l'impression d'écran, beaucoup moins lisible.

[HABILER]

Bonsoir,

Il me refuse Me.cboServices.column (1).

[tee_grandbois]

il ne faut pas d'espace entre Column et (1)

[HABILER]

Il me le met d'office.

[tee_grandbois]

bonjour,
peux-tu poster le code complet et dire à quel endroit il se trouve ?

[HABILER]

Bonjour,

En attachment J'ai mis ma dernière version car j'ai tellement manipulé le code par rapport à la question posée initialement.

Mon code est à mon avis très mal écrit.
Enfin la table Afd_Serv est un condense des 2 autres tables Afd_. Ceci afin de ne devoir utiliser qu'une seule table.
Le but est que dans cboServices, soit listés les éléments [omschrijving frans] dont le chiffre correspond (5 ici) au cboServices.value du groupe d'options afterupdate.

Code :

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

1
2
3
4
5
6
7
8
 
 
 Case 2
        STRdEP = "'CEO'"
        libelleDep = "CEO"
        cboServices.Visible = True
        cboServices.Value = 5
      '  Me.cboServices.Requery

Leaves1_12.zip

[tee_grandbois]

En attachment J'ai mis ma dernière version car j'ai tellement manipulé le code par rapport a la question posée initialement.

Mon code est a mon avis tes mal ecrit.
Enfin la table Afd_Serv est un condense des 2 autres tables Afd_. Ce afin de ne devoir utiliser qu'une seule table.
Le but est que dans cboServices, soit listés les éléments [omschrijving frans] dont le chiffre correspond (5 ici) au cboServices.value du groupe d'options afterupdate.

il faudrait que tu sois plus précis pour décrire ton besoin, impression d'écran à l'appui ...