Discussion :

[tonio-lille]

Bonjour à tous,

Voilà je n'arrive pas ouvrir un recordSet sur une querydef nouvellement créée

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Dim db        As Database
    Dim rsTmp     As DAO.Recordset
    Dim qdfTmp    As QueryDef
....
Set db = CurrentDb
    'création de la requete temporaire
    Set qdfTmp = db.CreateQueryDef("QueryTmp", "SELECT [T_export_stock].référence FROM [T_export_stock]")
    'ouverture d'un recordset sur la requete
    Set rsTmp = qdfTmp.OpenRecordset(dbOpenDynaset, dbReadOnly)

Je tombe sur une erreur 3061, trop peu de paramètres. 1 attendu

Pourtant dans ça ressemble fort à ce qui est dit dans l'aide access.
C'est surement une erreur très bete, mais ça fait longtemps que je bloque dessus.
Merci d'avance pour vos réponses

[Tofalu]

Le nom du champ est peut être mal orthographié

[tonio-lille]

Non, non, j'ai essayé avec (select *) et ça ne fonctionne pas non plus. Pourtant la requete est bien créé, j'arrive à y accéder à partir d'access.c'est très bizarre. J'ai aussi essayé avec les différents arguments de openRecordSet et meme échec.

[Tofalu]

T_export_stock est bien une table ?

[tonio-lille]

Non c'est une autre requete(non temporaire celle-ci). mais c'est bizarre comme problème vu que la requete est bien créée et renvoi le résultat escompté, l'ouverture d'un recordset ne devrait pas poser de problème.

[Tofalu]

Quel est le SQL de cette requête ?

DAO ne peut interroger des formulaires par exemple. Je pense que le problème est là.

[tonio-lille]

Pour résumer :

Je veux mettre en place un système simple d'export de fichier:
-J'ai donc créer une requete T_export_stock

SELECT [00300-articles].art_ref_cli AS Référence, [00300-articles].art_designation AS désignation, [00300-articles].art_couleur AS couleur, [00300-articles].art_taille AS taille, [00300-articles].art_prix AS prix, [00300-articles].art_poid AS poids, [00300-articles].art_stock_info AS [stock disponible], [00300-articles].art_stock_reserve AS [stock reservé], [00200-fournisseurs].frn_nom AS fournisseur, [00700-categories].cat_nom AS catégorie, [00750-sous_categories].sscat_nom AS [sous-catégorie]
FROM [00750-sous_categories] RIGHT JOIN ([00700-categories] RIGHT JOIN ([00200-fournisseurs] RIGHT JOIN [00300-articles] ON [00200-fournisseurs].frn_id = [00300-articles].frn_id) ON [00700-categories].cat_id = [00300-articles].cat_id) ON [00750-sous_categories].sscat_id = [00300-articles].sscat_id
WHERE ((([00300-articles].cli_id)=[Formulaires]![INDEX]![id_client]));

Bon elle n'est pas si complexe qu'elle y parait, elle fait juste des jointures entre les tables articles, fournisseurs, catégories, sous-catégories.
- Dans mon formulaire j'ai une zone de liste qui contient les champs de cette requete.
-L'utilisateur selectionne les champs qu'il veut exporter.
-Le bouton export lance le code contenant le querydef et le recordset qu ne veut pas s'ouvrir,
----> mon but est de créer une requete temporaire à partir de la sélection faite par l'utilisateur et d'exporter le résultat de cette requete.

J'espère avoir été clair

[micniv]

Essaie de mettre le Sql dans une variable

Code SQL :

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

1
2
3
4
5
6
7
 
'création de la requete temporaire
    dim strSql as String
...
strSql ="SELECT [T_export_stock].référence FROM [T_export_stock]"
    Set qdfTmp = db.CreateQueryDef("QueryTmp", strSql )
...

Et puis par soucis de cohérence complètes tes références DAO.

Code :

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

1
2
3
Dim db        As DAO.Database
    Dim rsTmp     As DAO.Recordset
    Dim qdfTmp    As DAO.QueryDef

Bonne journée

[tonio-lille]

Essaie de mettre le Sql dans une variable
Code SQL :

'création de la requete temporaire dim strSql as String ... strSql ="SELECT [T_export_stock].référence FROM [T_export_stock]" Set qdfTmp = db.CreateQueryDef("QueryTmp", strSql ) ...


Et puis par soucis de cohérence complètes tes références DAO.
Code :

Dim db As DAO.Database Dim rsTmp As DAO.Recordset Dim qdfTmp As DAO.QueryDef


Bonne journée

J'ai essayé sans succès

j'ai aussi essayer de remplacer

Code :

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

Set rsTmp = qdfTmp.OpenRecordset()

par

Code :

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

Set rsTmp = db.OpenRecordset("QueryTmp")

sans succès

[Tofalu]

mmm

J'ai donné la raison

Ta requête fait appel à des contrôles de formulaires, ce n'est pas possible de les exécuter avec DAO, d'où l'intéret de créer de vraies requêtes paramétrées

[tonio-lille]

Ah ok d'accord, je n'avais pas compris ça dans ce sens là.
Ok je vais corriger ça, je vais mettre le filtre au moment de la création de la requete temporaire.


Merci beaucoup