Discussion :

[Invité]

Bonsoir

Je dispose d'un formulaire avec une zone de liste "groupeoption" qui comprend deux choix possible :

ca par catégorie
ca par produit

une liste nommé "liste" qui affiche soit le nom des produits soit le nom des catégories

un bouton pour exectuer le code et voir le CA par produit ou catégorie

problème 1 : ma liste reste vide et ne n'affiche ni la liste des produits ni la liste des catégories

problème 2 : le code VBA bug dés le départ sur l'appel du sous programme

problème 3 : ne manque t il pas une partie de sous programme pour le calcul des mes CA ?

Code vba :

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
27
28
29
30
31
32
33
34
35
Private Sub executer_Click() ' pointage d'un erreur de debogage dés le départ ici 

Call groupeoption ' est ici aussi + probleme pour l'appel du sous programme 

End Sub  

Option Compare Database

Option Explicit

Private Sub groupeoption_afterupdate()

' si groupeoption=1 alors remplir la liste avec les categories (n_cat , nom_cat)
' sinon remplir la liste des produits ( n_pr , nom_prod )

Dim chainesql As String

If Me!groupeoption = 1 Then
chainesql = "select n_cat , nom_cat from categorie"
Me!label_list.Caption = "Selectionner une categorie "

Else

chainesql = "select n_pr , nom_prod from produit"
Me!label_list.Caption = "Selectionner un produit"

End If

Me!liste.Visible = True
Me!liste.ColumnCount = 2
Me!liste.ColumnWidths = "0cm;5cm"
Me!liste.RowSourceType = "table/query"
Me!liste.RowSource = chainesql

End Sub

Merci de me tuyauter , je rame

[tee_grandbois]

Bonsoir,
essaie comme cela :

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
27
28
29
30
31
32
33
34
35
Private Sub executer_Click() ' pointage d'un erreur de debogage dés le départ ici 
 
Call groupeoption_afterupdate ' est ici aussi + probleme pour l'appel du sous programme 
 
End Sub  
 
Option Compare Database
 
Option Explicit
 
Private Sub groupeoption_afterupdate()
 
' si groupeoption=1 alors remplir la liste avec les categories (n_cat , nom_cat)
' sinon remplir la liste des produits ( n_pr , nom_prod )
 
Dim chainesql As String
 
If Me!groupeoption = 1 Then
chainesql = "select n_cat , nom_cat from categorie"
Me!label_list.Caption = "Selectionner une categorie "
 
Else
 
chainesql = "select n_pr , nom_prod from produit"
Me!label_list.Caption = "Selectionner un produit"
 
End If
 
Me!liste.Visible = True
Me!liste.ColumnCount = 2
Me!liste.ColumnWidths = "0cm;5cm"
Me!liste.RowSourceType = "table/query"
Me!liste.RowSource = chainesql
Me!liste.Requery
End Sub

En attendant, bonne nuit ! :

[Invité]

Salut

désolé mais ton programme ne marche pas non plus

Il manque une partie du code pour le calcul du CA et sans je ne peux rien faire , désolé du dérangement

Merci quand même

[Post a verrouiller ]

[loufab]

Bonjour,

En positionnant les lignes d'options en tête de module, comme cela doit être fait, ça devrait mieux fonctionner. Tee a déjà corrigé un premier problème sur TON 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
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Compare Database
Option Explicit
 
Private Sub executer_Click() ' pointage d'un erreur de debogage dés le départ ici 
 
Call groupeoption_afterupdate ' est ici aussi + probleme pour l'appel du sous programme 
 
End Sub  
 
Private Sub groupeoption_afterupdate()
' si groupeoption=1 alors remplir la liste avec les categories (n_cat , nom_cat)
' sinon remplir la liste des produits ( n_pr , nom_prod )
 
Dim chainesql As String
 
If Me!groupeoption = 1 Then
chainesql = "select n_cat , nom_cat from categorie"
Me!label_list.Caption = "Selectionner une categorie "
 
Else
 
chainesql = "select n_pr , nom_prod from produit"
Me!label_list.Caption = "Selectionner un produit"
 
End If
 
Me!liste.Visible = True
Me!liste.ColumnCount = 2
Me!liste.ColumnWidths = "0cm;5cm"
Me!liste.RowSourceType = "table/query"
Me!liste.RowSource = chainesql
Me!liste.Requery
End Sub

1 problème = 1 post merci.

Cordialement,