Condition IF sur VBA

Bonjour,

j'ai un soucis avec un bout de code VBA sur access.

J'ai des graphiques qui s'affichent en fonction de données selectionnée dans le formulaire.
en fonction de telles ou telles données tels graphiques ...

j'ai donc mis une fonction si dans vba mais cela ne marche pas....

Je vous joint le code en piece jointe

Code:

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
Option Compare Database
 
 Private Sub filtreaffaire_Click()
Dim affaire As String
If Me.toutaffaire = -1 Then Me.toutaffaire = 0
affaire = Me.filtreaffaire
Me.NomAffaire = affaire
 
'1. Gestion des graphiques
 
If Me.tousproduits =-1 Me.graphAff.Visible = True else Me.graphAffPdt.Visible = True
Me.graphAff.Requery
Me.graphAffPdt.Requery
 
End Sub
 
Private Sub filtreproduit_Click()
 Dim produit As String
 If Me.tousproduits = -1 Then Me.tousproduits = 0
 produit = Me.filtreproduit
 Me.NomProduit = produit
 
'1. Gestion des graphiques 
If Me.toutaffaire =-1 Me.graphPdt.Visible = True else Me.graphAffPdt.Visible = True
Me.graphPdt.Requery
Me.graphAffPdt.Requery 
 
.Visible = True
 
End Sub