Bonjour,

J'ai créé un recordset à l'aide d'une requête SQL et je l'ai paramétrée en fonction de plusieurs listes de choix.

Seulement le RecordCount me compte à chaque fois un seul enregistrement alors que celui ci en compte plusieurs... (Pour preuve le résultat est différent quand je l'execute dans SQL)
Cela viendrait il du fait que j'utilise des liste de choix pour conditionner ma requête ??

Voici mon code :

Dim rs As DAO.Recordset
    Set rs = db.OpenRecordset("SELECT AGREMENTS.OBJECTID " & _
                        "FROM Agrements " & _
                        "WHERE (((AGREMENTS.MILLESIME)=" & Me.zl_millesime.Column(0) & ") " & _
                        "AND ((AGREMENTS.DATE)=#" & stock_date & "#) " & _
                        "AND ((AGREMENTS.dossier)=" & Me.zl_dossier.Column(0) & ") " & _
                        "AND ((AGREMENTS.cave)=" & Me.zl_cave.Column(0) & ") " & _
                        "AND ((AGREMENTS.cuve)=""" & Me.zl_cuve.Column(0) & """));")

Voyez vous une quelconque erreur !

Merci

Salut,

Moi je pense que dans ta requête, il doit te manquer des ' qui doivent entourés tout ce qui "touche" à du carractère(chaine)...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Salut
- Puisque ta requète ne s'adresse qu'à une seule table, pas la peine de la préciser avant le nom des champs
- Abondance de parenthèse nuit à la compréhension.
- Comme le dit Exploreur, il doit manquer des ' pour encadrer les chaines.
- SQL accepte l'encadrement de chaine avec " mais aussi '. Ca tombe bien car le mélange SQL et VB deviendrait bien lourd.
- Ton champ DATE est mal choisi car il ressemble à un mot clé des langages. Dans ce cas, encadre-le avec des crochets droits [ et ] afin que le moteur ne se trompe pas.
- Il est important de respecter la casse des noms des champs (DATE est en maj alors que les autres en min : bizarre)

Voilà ce que pourrait donner ta requète en supposant que tous tes champs soient définis comme des chaines (sauf DATE apparemment) :

Set rs = db.OpenRecordset( _
      "SELECT OBJECTID " & _
        "FROM Agrements " & _
       "WHERE MILLESIME = '" & Me.zl_millesime.Column(0) & "' " & _
         "AND [DATE] = #" & stock_date & "# " & _
         "AND dossier = '" & Me.zl_dossier.Column(0) & "' " & _
         "AND cave = '" & Me.zl_cave.Column(0) & "' " & _
         "AND cuve = '" & Me.zl_cuve.Column(0) & "';")

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Merci pour vos réponses !!!

Re.
stock_date est une variable date qui permet de conserver la date d'une liste de choix et qui la transforme à l'aide d'une fonction (jj/mm/aaaa -> mm/jj/aaaa). Car SQL lit les dates à l'anglosaxonne...

Salut jmfmarques, j'ai suivi tes conseils en envoyant le résultat de la requête dans une TextBox puis en recopiant celle-ci dans une SQL, il me trouve le bon nombre d'enregistrements et non pas 1 seul enregistrement quel que soit le nombre exact...

Merci