Discussion :

[sissi00000]

Bonjour a tous

J'ai une base de donnée Access UK00 , qui contient des champs : Isin,Date...ext
J'essaie de faire une requete via VBA pour recuprer les données qui ont pour champs Isin = (valeur d'une cellule) et champs Date compris entre deux valeur recupérees de deux cellules aussi mais ca marche pas, ca bloque ici:

Code :

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

1
2
3
 
 
oRs1.Open "SELECT * FROM UK00 WHERE Isin = '" & Cells(34, 2).Value & "'  AND Date = '" & Cells(7, 3).Value & "'  And  Date = '" & Cells(7, 6).Value & "'  ", oCon, adOpenDynamic, adLockBatchOptimistic

et pourtant ca marchait bien quand je mets uniquement Isin = Isin = '" & Cells(34, 2).Value & "'..
Quelqu'un peut m'aider svp???
Merci d'avance

[tirex28]

Bonjour,

Il me semble que tu as des espaces en trop a plusieurs endroits:

Code :

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

1
2
3
oRs1.Open "SELECT * FROM UK00 WHERE Isin = '" & Cells(34, 2).Value & _
            "' AND Date = '" & Cells(7, 3).Value & "' And Date = '" & _
            Cells(7, 6).Value & "'", oCon, adOpenDynamic, adLockBatchOptimistic

Cela dit Date ne peut pas en même temps etre egal à Cells(7, 3).Value et egal a Cells(7, 6).Value, sauf si ces deux cellules contiennent la meme valeur.

Cordialement,

Tirex28/

[sissi00000]

Merci pour votre reponse mais ce que je voulais faire c'est qu'il me donne les données correspondantes aux dates comprise entre Cells(7, 3).Value et Cells(7, 6).Value .

Code :

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

1
2
3
 
 
oRs1.Open "SELECT * FROM UK00 WHERE Isin = '" & Cells(34, 2).Value & "'  AND Date < '" & Cells(7, 3).Value & "'  And  Date > '" & Cells(7, 6).Value & "'  ", oCon, adOpenDynamic, adLockBatchOptimistic

[SorrowLane]

Code :

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

1
2
3
oRs1.Open "SELECT * FROM UK00 WHERE Isin = '" & Cells(34, 2).Value & _
            "' AND Date = '" & Cells(7, 3).Value & "' And Date = '" & _
            Cells(7, 6).Value & "'", oCon, adOpenDynamic, adLockBatchOptimistic

On utilise BETWEEN en sql pour faire les recherches entre deux valeurs :

Code :

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

1
2
3
oRs1.Open "SELECT * FROM UK00 WHERE Isin = '" & Cells(34, 2).Value & _
            "' AND Date BETWEEN #" & cdate(Cells(7, 3).Value) & "# And #" & _
            cdate(Cells(7, 6).Value) & "#", oCon, adOpenDynamic, adLockBatchOptimistic

[sissi00000]

Bonjour SorrowLane
Merci pour ta reponse.
Cela marche mais le probleme ca me donne pas les bonnes valeurs.
Ca prend pas vraiment en compte les deux bornes de dates que je lui donne
Comment faire?

[SorrowLane]

Ca doit être un problème de compatibilité de dates alors. Acces est en anglais et Excel en français.
Essayes avec :

Code :

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

1
2
3
oRs1.Open "SELECT * FROM UK00 WHERE Isin = '" & Cells(34, 2).Value & _
            "' AND Date BETWEEN #" & CDate(CDbl(Cells(7, 3).Value)) & "# And #" & _
            CDate(CDbl(Cells(7, 6).Value)) & "#", oCon, adOpenDynamic, adLockBatchOptimistic