Discussion :

[kahmsin]

Bonjour,

j'ai une requête sélection dans laquelle il y a une date. Je souhaite plutôt que de modifier la date dans toute les lignes concernées, pouvoir avoir une variable de date mais comment faire ?

voici le code de la requête :

Code :

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

1
2
3
4
5
6
SELECT vehicules.SECTEUR, vehicules.[attrib véhicule], vehicules.[type de véhicule], vehicules.vehicule, Sum(IIf([T_Analytique].[COMPTE]="61553000",[mtht],0)) AS Cout_rep, Sum(IIf([T_Analytique].[COMPTE]="60614000",[mtht],0)) AS Cout_carbur, Sum(IIf([T_Analytique].[COMPTE]="68112000",[mtht],0)) AS Amort, Sum(IIf([T_Analytique].[COMPTE]="61630000",[mtht],0)) AS Assurances, Sum(IIf([T_Analytique].[COMPTE]="63513000",[mtht],0)) AS vignette, Sum(IIf([T_Analytique].[COMPTE]="63540000",[mtht],0)) AS carte_grise, Sum(IIf([T_Analytique].[COMPTE]="79100000",[mtht],0)) AS remb_assurance, Sum(IIf([T_Analytique].[COMPTE]="60635000",[mtht],0)) AS frais_div, ([Cout_rep]+[Cout_carbur]+[Amort]+[Assurances]+[vignette]+[carte_grise]+[remb_assurance]+[frais_div]) AS px_revient_total, Sum(IIf([T_Analytique].[COMPTE]="KMS",[mtht],0)) AS kms_total, IIf([kms_total]<>0,[px_revient_total]/[kms_total],0) AS Px_kms, vehicules.NB1, IIf([NB1]>0,IIf(nz([date de vente])<>"" And nz([date de vente])<#9/30/2005#,round((#9/30/2005#-[date de vente]+1)/365,2),0)+IIf(nz([date de vente])="" Or nz([date de vente])>#9/30/2005#,1,0),0) AS NB2, IIf([NB1]>0,IIf(Nz([date de vente])="" Or [date de vente]<=#9/30/2005#,1,0)+IIf([date de vente]>#9/30/2005#,1,0)-IIf([date de vente]<#9/30/2005#,1,0),0) AS NB3, T_Analytique.date
FROM vehicules LEFT JOIN T_Analytique ON vehicules.vehicule = T_Analytique.vehicule
WHERE (((vehicules.[date de vente])>#9/30/2004# Or (vehicules.[date de vente]) Is Null))
GROUP BY vehicules.SECTEUR, vehicules.[attrib véhicule], vehicules.[type de véhicule], vehicules.vehicule, vehicules.NB1, IIf([NB1]>0,IIf(nz([date de vente])<>"" And nz([date de vente])<#9/30/2005#,round((#9/30/2005#-[date de vente]+1)/365,2),0)+IIf(nz([date de vente])="" Or nz([date de vente])>#9/30/2005#,1,0),0), IIf([NB1]>0,IIf(Nz([date de vente])="" Or [date de vente]<=#9/30/2005#,1,0)+IIf([date de vente]>#9/30/2005#,1,0)-IIf([date de vente]<#9/30/2005#,1,0),0), T_Analytique.date
HAVING (((vehicules.SECTEUR) Is Not Null) AND ((T_Analytique.date)=#9/30/2005#))
ORDER BY vehicules.SECTEUR, vehicules.vehicule;

merci pour votre aide.

[keita]

salut
ta requête, tu l(utilises dans du code vba?tu ne precises pas.

[kahmsin]

Keita a écrit :
ta requête, tu l(utilises dans du code vba?tu ne precises pas.

Non mais j'aimerais bien savoir comment la modifier avec du code VBA

merci pour ton aide.

[keita]

Tu m'escuses mais ta requete me parait exagerement et peut etre meme inutilement longue.as-tu vraiment besoin de tout ces champs en meme temps?
suggestions:
1/elimine de ta req tous les champs inutiles; i.e ne conserve que les champs que tu veux reellemnt voir ou modifiés.
2/t'as deja une notion en vba?

[kahmsin]

suggestions:
1/elimine de ta req tous les champs inutiles; i.e ne conserve que les champs que tu veux reellemnt voir ou modifiés.
2/t'as deja une notion en vba?

J'ai besoin de tous ces champs qui sont donc dans une requête et qui me permettent de faire un état récapitulatif.
Je n'ai pas une très bonne connaissance de VBA mais j'arrive à bidouiller.

Ce que je souhaite, c'est modifier ceci dans ma requête : 9/30/2005
par une variable. Comment puis-je procéder ?

Merci

[Tofalu]

A l'aide des objets Parameters des objets Querydef

http://warin.developpez.com/access/dao

Section querydef

[kahmsin]

J'ai suivi ton conseil Tofalu mais j'ai en faisant un test, un message d'erreur :
"projet ou bibliothèque introuvable"

voici mon

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub btValider_Click()
    Dim oDb As DAO.Database
    Dim oQdf As DAO.QueryDef
    Dim oRst As DAO.Recordset
    Set oDb = CurrentDb
    Set oQdf = oDb.QueryDefs("qryClientParPays_modele")
    oQdf.Parameters("type de véhicule").Value = "206"
    Set oRst = Qdf.OpenRecordset
End Sub

et c'est "Qdf" de la dernière ligne qui en en surbrillance.

où est le problème :

Avec votre aide j'avance. Merci.

[keita]

Normal parce que les objets parameters sont plutot dans ADO et DAO à ce que je sache.revois peut etre tes declarations.
t'as regardé un peu du coté de "Requête paramétré" dans l'aide d'access?