Discussion :

[AgriPhilou]

Bonjour,

Sur un bouton de commande je reprends le code en ligne "0" d'une liste de choix, F pour formulaire F1 pour Formulaire avec une date donnée et F2 pour un formulaire entre dates.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub E1_Click()
If Me.L2 = "F" Or Me.L2 = "F1" Or Me.L2 = "F2" Then
DoCmd.OpenForm Me.L2
Else
If Me.L2 = "E" Or Me.L2 = "E1" Or Me.L2 = "E2" Then
DoCmd.OpenReport Me.L2, acViewReport, "", "", acNormal
End If
End If
End Sub

Or cela ne fonctionne pas, pouvez-vous me guider ?
En dessous de "ELSE" il sagit d'ouverture d'états.

Merci d'avance.

[AgriPhilou]

J'ai trouvé,

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub E1_Click()
If Me.L2.Column(2) = "F1" Or Me.L2.Column(2) = "F2" Then
DoCmd.OpenForm Me.L2
Else
If Me.L2.Column(2) = "E1" Or Me.L2.Column(2) = "E2" Then
DoCmd.OpenReport Me.L2, acViewReport, "", "", acNormal
End If
End If
End Sub

Merci quand même.