Discussion :

[Djekill]

bonjour a tous
alors voila mon probléme :
j'ai un groupe de bouton d'option grace auquel je souhaite faire une "selection" et afficher l'etat selectionné. J'ai donc 3 bouton d'option : Cocher77, Cocher75, Cocher73 et un bouton "ok" Commande38 qui valide la selection et j'ai crée ce code mais sans succes

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
Private Sub Commande38_Click()
Dim stDocName2005 As String
Dim stDocName2003 As String
Dim stDocName2004 As String
 
stDocName2003 = "E_Nouveau_Marche 2003 (total)"
stDocName2005 = "E_Nouveau_Marche 2005 (total)"
stDocName2004 = "E_Nouveau_Marche 2004 (total)"
 
If Cocher73.Value = True Then
    DoCmd.OpenReport stDocName2003, acViewPreview
ElseIf Cocher75.Value = True Then
    DoCmd.OpenReport stDocName2004, acViewPreview
Else
    DoCmd.OpenReport stDocName2005, acViewPreview
End If
 
End Sub

alors voila si quelqu'un peu m'aider ....
merci d'anvance

[zoom61]

Salut,

Pourquoi te compliquer avec tout ceci, si tu fais ce code cela devrait fonctionner correctement :

Code :

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

1
2
3
4
5
6
7
8
9
If Cocher73.Value = True Then 
    DoCmd.OpenReport "E_Nouveau_Marche 2003 (total)", acViewPreview 
end if
If Cocher75.Value = True Then 
    DoCmd.OpenReport "E_Nouveau_Marche 2004 (total)", acViewPreview 
end if
If Cocher757Value = True Then 
    DoCmd.OpenReport "E_Nouveau_Marche 2005 (total)", acViewPreview 
end if

[Djekill]

merci mais il reste un souci
access me dit "expression sans paramètre"
Alors doi-je rentre une ligne de code precise dans les methode de mes boutons d'options cocher 73, 77, 75 ?
Ou est-ce que je dois declarer des variables au debut de ma methode ?
merci merci

[zoom61]

J'ai fait une erreur dans mon code :

Code :

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

1
2
3
4
5
6
7
8
9
If Cocher73.Value = True Then 
    DoCmd.OpenReport "E_Nouveau_Marche 2003 (total)", acViewPreview 
end if 
If Cocher75.Value = True Then 
    DoCmd.OpenReport "E_Nouveau_Marche 2004 (total)", acViewPreview 
end if 
If Cocher77.Value = True Then 
    DoCmd.OpenReport "E_Nouveau_Marche 2005 (total)", acViewPreview 
end if

Essaie avec celui ci

[Djekill]

si c'etait

Code :

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

1
2
3
If Cocher757Value = True Then 
    DoCmd.OpenReport "E_Nouveau_Marche 2005 (total)", acViewPreview 
end if

j'avai corrigé ...
Et j'ai mis ton nouveau code sans resultat ...
Heeeelpp! [/code]

[Petogaz]

salut,

le problème ne vient pas de la manière dont tu imbriques tes if. ce qu'as dis caféine est juste(oops le msg de caféine a disparu ). il faut mettre le nom de ton cadre. supposons que le nom du cadre est cadre15, ton code devient ceci :

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
Private Sub Commande38_Click()
Dim stDocName2005 As String 
Dim stDocName2003 As String 
Dim stDocName2004 As String 
 
stDocName2003 = "E_Nouveau_Marche 2003 (total)" 
stDocName2005 = "E_Nouveau_Marche 2005 (total)" 
stDocName2004 = "E_Nouveau_Marche 2004 (total)" 
 
If Me.Cadre15.Value = 1 Then
DoCmd.OpenReport stDocName2003, acViewPreview
ElseIf Me.Cadre15.Value = 2 Then
DoCmd.OpenReport stDocName2004, acViewPreview
Else
DoCmd.OpenReport stDocName2003, acViewPreview
End If
End Sub

nb : et comme tu peux le remarquer il ne s'agit des valeurs true mais 1,2,3...

[Djekill]

Caaaaaaa Maaaaarche !!!

Merci ca fait 2 h que j'essaye tous seul de trouver la solution
Merci merci merci