Discussion :

[cretgil]

Bonjour à tous,

voilà quelques heures que je cherche la solution à mon problème peut-être que quelqu'un pourra m'aider.

J'essaye d'ouvrir un état grâce à une requête avec 2 paramètres.

j'ai sur un formulaire un bouton imprimer avec l'action suivante :

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
19
20
21
Private Sub cmdImprimer_Click()
    Dim sql As String
 
    sql = "SELECT tblProjetInvestissement.strNomProjet, tblGroupeProjets.strNomGroupe, tblLocalisation.strLocalisation, " & _
        "tblUE.strUE, tblNumOrdreSap.strNumOrdreSap, Sum(tblNumOrdreSap.lngV0Sap) AS BudgetV0, Sum(tblNumOrdreSap.lngV1Sap) " & _
        "AS BudgetV1, Sum(qryDGProjetNumOrdreSap.SommeDG) AS DevisGeneral, Sum(qryDGProjetNumOrdreSap.SommeForecast) AS Forecast, " & _
        "Sum(tblNumOrdreSap.lngReelN) AS FactureSapN, Sum(tblNumOrdreSap.lngReelCumule) AS FactureSapCumule, " & _
        "Sum([lngReelN]+[lngEngagementN]) AS ContratsSapN, Sum([lngReelCumule]+[lngEngagementCumule]) AS ContratSapCumule " & _
        "FROM tblUE INNER JOIN ((tblLocalisation INNER JOIN (tblGroupeProjets INNER JOIN (tblPilotes INNER JOIN tblProjetInvestissement " & _
        "ON tblPilotes.strPilInitiales = tblProjetInvestissement.strPilProjet) ON tblGroupeProjets.lngGroupeProjetID = " & _
        "tblProjetInvestissement.lngGroupProjetID) ON tblLocalisation.lngLocalisationID = tblGroupeProjets.lngLocalisationID) " & _
        "INNER JOIN (tblNumOrdreSap INNER JOIN qryDGProjetNumOrdreSap ON tblNumOrdreSap.strNumOrdreSap = " & _
        "qryDGProjetNumOrdreSap.strNumOrdreSap) ON tblProjetInvestissement.strNomProjet = tblNumOrdreSap.strNomProjet) " & _
        "ON tblUE.lngUEID = tblLocalisation.lngUEID WHERE (((tblPilotes.lngPilID) = '" & mduIdPilote.gblIdPilote & "') And " & _
        "((tblProjetInvestissement.strNomProjet) = '" & mduIdPilote.gblNomProjet & "')) GROUP BY tblProjetInvestissement.strNomProjet, " & _
        "tblGroupeProjets.strNomGroupe, tblLocalisation.strLocalisation, tblUE.strUE, tblNumOrdreSap.strNumOrdreSap " & _
        "ORDER BY tblProjetInvestissement.strNomProjet;"
 
    MsgBox mduIdPilote.gblIdPilote & " " & mduIdPilote.gblNomProjet
    DoCmd.OpenReport "etaPilotageSapProjetEtat", acPreview, , OpenArgs:=sql
 End Sub

et dans mon état, j'ai :

Code :

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

1
2
3
Private Sub Report_Open(Cancel As Integer)
    Me.RecordSource = Me.OpenArgs
End Sub

le problème est qu'access ouvre une fenêtre en me demandant d'entrer lngPilID ? d'où vient cette fenêtre ?

Merci pour votre aide
salutations
djillius

[marot_r]

Access ouvre une fenêtre en me demandant d'entrer lngPilID ? d'où vient cette fenêtre ?

Access fait cela quand il ne trouve pas un des champs utilisés dans la requêtre.

La cause principale est une mauvaise orthographe du nom du champ ou un champ qui n'existe plus dans les sources de données (tables ou requêtes) utilisées par la requête.

Une façon assez simple de débugger du SQL dans le code est :

1. Mettre un point d'arrête juste après l'instruction qui calcule le SQL.
2. Ouvrir la fenêtre d'exécution immédiate en tapant sur [ctrl][g]
3. Dans cette fenêtre mettre quelque chose qui ressemble à [codeinline]? NomTaVariableSQL [Enter][#codeinline], cela va afficher le contenu de la variable NomTaVariableSQL
4. Après tu sélectionne le SQL. tu fais Copier, puis tu le colles dans une nouvelle requête en mode SQL.
5. Tu n'as plus qu'à utiliser l'éditeur de requête en mode conception pour dubugger ta requete.
   Une fois le SQL correct tu le remets dans ton code.

A+

[cretgil]

Hello
merci pour ta réponse.

J'ai résolu mon problème en supprimant sur mon état le champ pilProjetID responsable de la fenêtre d'Access qui me demandait de le saisir.

@++