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