Discussion :

[DidoFido]

Bonjour à tous,

j'ai un formulaire avec des champs dates et des boutons pour ouvrir mes États, et je récupère les dates du formulaire afin d'ouvrir mes États avec les dates voulues. sauf que quand j' appuis sur le nouveau bouton "Ouvrir l'état" j'ai ce message qui affiche "Erreur d'éxécution '3070' le moteur de la base de données Microsoft Access ne reconnais «[Champ2]» en tant que nom de champ ou expression correcte" voici l'image de mon formulaire ainsi que le message d'erreur.



Voici mes codes VBA

Code :

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

1
2
3
4
Private Sub Commande21_Click()
    ' Ouverture de l'État Comparatif Trimestre Dollars
    DoCmd.OpenReport "6- État Comparatif Mois Dollars", acViewPreview, , , , Format(RecupDate(1), "yyyy") & ";" & Format(RecupDate(3), "yyyy")
End Sub

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
Private Sub Report_Open(Cancel As Integer)
Dim vsAnnee() As String
    vsAnnee = Split(Me.OpenArgs, ";")
    Et_Champ1.Caption = vsAnnee(0) 'Libellé de l'étiquette 2014
    Et_Champ2.Caption = vsAnnee(1)  'Libellé de l'étiquette 2015
    Champ1.ControlSource = "=[" & vsAnnee(0) & "]"  '[2014] dans ton exemple
    Champ2.ControlSource = "=[" & vsAnnee(1) & "]"  '[2015] dans ton exemple
    Champ3.ControlSource = "=[" & vsAnnee(1) & "]-[" & vsAnnee(0) & "]"   '=[2015]-[2014] dans ton exemple
    TotalP1.ControlSource = "=sum([" & vsAnnee(0) & "])"
    TotalP2.ControlSource = "=sum([" & vsAnnee(1) & "])"
    GrandTotal1.ControlSource = "=sum([" & vsAnnee(0) & "])"
    GrandTotal2.ControlSource = "=sum([" & vsAnnee(1) & "])"
    TotalGeneral1.ControlSource = "=sum([" & vsAnnee(0) & "])"
    TotalGeneral2.ControlSource = "=sum([" & vsAnnee(1) & "])"
End Sub

merci de votre aide