Probleme VBA requete SQL

Version imprimable

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:

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

Bonjour,

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

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/

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:

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

Code:

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:

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

14/07/2008, 15h36
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:cry:
Comment faire?

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

Code:

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

14/07/2008, 16h21
sissi00000

Merci encore SorrowLane.
en fait mon excel est en anglais aussi.
J'ai essayé ce new code mais c tjs la meme chose.
J'ai remarqué qu'il prends surtout pas la borne sup en compte ( la deuxieme date)...
Et meme parfois mes données sont desordonnées alors que dans ma base, je les ai bien trié par ordre croissant,simplement en ouvrant la base et en cliquant droit sur le champs Date Mais es ce que c'est la bonne methode???

Normalement ce devrait être bon.
Comme le format date est en anglais, il faut bien vérifier que les dates sont en anglais.
Essayes avec ces lignes de code :
Code:

1 2 3 4 5 6 Date1 = Format(FormatDateTime(Cells(7,3).value, vbShortDate), "mm/dd/yyyy") Date 2 = Format(FormatDateTime(Cells(7,6).value, vbShortDate), "mm/dd/yyyy") oRs1.Open "SELECT * FROM UK00 WHERE Isin = '" & Cells(34, 2).Value & _ "' AND Date BETWEEN #" & Date1 & "# And #" & _ Date2 & "#", oCon, adOpenDynamic, adLockBatchOptimistic
Si cela ne marche pas, je vois pas trop quoi ce qui pourrait marcher, je ne suis pas informaticien...