Discussion :

[ShAk44]

Bonjour,
Je cherche à importer une table sous excel à partir d'Access, j'ai donc une requête qui marche très bien, mais j'aimerais passer l'un des critères en une variable pour que l'utilisateur puisse l'entrer.
Problème, je n'ai jamais fait de SQL et je n'arrive pas à trouver quelque chose qui marche.
Voilà le critère d'origine:
(`Portefeuilles Tickers`.quote_date={ts '2007-07-02 00:00:00'})

Voilà ce que j'ai essayé :
(`Portefeuilles Tickers`.quote_date={ts '" & variable & " 00:00:00'})

Mais comme vous l'avez compris ca ne marche pas.
C'est sûrement très simple, probablement un tout petit truc à changer mais je ne le trouve pas donc merci d'avance pour votre aide!

[Daranc]

Salut
essaie l'enregistreur de macro
tu lances une modification de ta requete par MSquerry aprés tu pourra regarde le code genere les variables seront à "bricoler" pour etre integre au code
Daranc

[ShAk44]

J'ai déjà utilisé l'enregistreur de macro pour avoir le code en VBA qui fonctionne sans problème. Mais justement quand je fais la requête je dois dire le champ, égal à, la valeur. Et ca m'enregistre le code avec la valeur fixée.
J'imagine que mon problème est juste un problème de syntaxe, à savoir que j'ai mal intégré la variable dans la ligne de code. Je pense notamment qu'il y a un problème avec les 00:00:00.

[Daranc]

non si tu as reper ta valeur et que tu puisse la changer 99% du boulot est fait
il faut qu'avant ce code tu place un truc du genre mavariable= range("p5").value
( P etant la cellule ou tu va saisir la valeur qui t'interesse
et dans le code tu place (de memoire): debut du code" & mavarible & " suite du code
Daranc
bon ap'

[ShAk44]

C'est ce que j'ai fait
(`Portefeuilles Tickers`.quote_date={ts '2007-07-02 00:00:00'})
C'est l'instruction d'origine, qui marche

et j'ai bien fait:
mavariable = 2007-07-02
(`Portefeuilles Tickers`.quote_date={ts '" & mavariable & " 00:00:00'})

Je ne vois donc pas ce qui ne va pas...

[Daranc]

Excuse j'avais zappé au retour de la pose bouffe (j'ai été harponné dès la pointeuse)

Code :

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

1
2
3
4
Dim fin$
Dim debut$
fin$ = "{ts '" & Range("r22").Value & "'}"
debut$ = "{ts '" & Range("r21").Value & "'}"

pour une date de début saisie en R22 et une date de fin en R21 (pas la Renault)
c'est ce que j'ai sur une requête mais le code en variable à une forme String (c'est plus sexy)
ce qui donne ceci dans la macro

Code :

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

1
2
3
 AND (C.DATE_DECL>=" & debut$ & "  And C.DATE_DECL<=" & fin$ & ")" _
        )
        .Refresh BackgroundQuery:=False

en plus des dates j'ai huit autres critères de sélection dans les lignes de requêtes; donc ça devrait marcher.
Daranc

[ShAk44]

Merci Daranc mais j'avais réussi à résoudre mon problème. En fait c'est juste que la variable se mettait automatiquement en type date alors qu'en la mettant en type String ca marche.
Merci quand même pour ton aide!