erreur dans la dernière ligne de mon code visual basic

Question

Bonjour, 
voici mon problème, dans mon code, je crée une requete sql, puis je voudrais l'ouvrir, et je n'y arrive pas, mon code crée la requete, puis quand je veux l'ouvrir il me dit "argument non valide. 
qui peut m'aider 
Dim db As Database 
Dim result As QueryDef 
Dim rs As Recordset

Set db = CurrentDb

Set result = db.CreateQueryDef("Fournisseurs", _ 
 "SELECT T_fournisseurs.Raison_sociale, T_type_materiel.Libele, T_materiel.Libele, T_stock_materiel.Date, T_stock_materiel.Entree, T_stock_materiel.Sortie, T_raison_stock.Libele, T_materiel.Prix_unite, T_personnel.Prenom FROM (T_fournisseurs INNER JOIN (T_type_materiel INNER JOIN T_materiel ON T_type_materiel.N_type_materiel = T_materiel.N_type_materiel) ON T_fournisseurs.N_fournisseur = T_materiel.N_fournisseur) INNER JOIN (T_personnel INNER JOIN (T_raison_stock INNER JOIN T_stock_materiel ON T_raison_stock.N_raison_stock = T_stock_materiel.N_raison_stock) ON T_personnel.N_personnel = T_stock_materiel.N_personnel) ON T_materiel.N_materiel = T_stock_materiel.N_materiel WHERE (((T_stock_materiel.Date)>=[Formulaires]![F_listes]![du] And (T_stock_materiel.Date)<=[Formulaires]![F_listes]![au]) AND ((T_stock_materiel.Sortie)=0))")

Set rs = db.OpenRecordset("Fournisseurs", acTable, , acReadOnly)

NHenry · Answer

Bonsoir,

As-tu vérifier la validité de ta requête dans ton SGBD ?
Es-tu sûr du format de OpenRecordset ?

MrFive · Answer

en fait mon code fonctionne, la requete se crée correctement, mais mon code pour tapper dedans ne fonctionne pas, le but étant d'ensuite créer une boucle pour en extraire des données.
Sinon je ne comprends pas ta question sur la validité de la requete car elle se crée correctement

MrFive · Answer

je voudrais l'ouvrir comme si c'était une table

MrFive · Answer

j'ai essayé le AcView, mais ça ne marche pas, j'ai aussi regardé une methode, amis je ne comprends pas tout

MrFive · Answer

dans mon instruction, après le nom de la requete qui est Fournisseurs il me demande, Type, Options, LockEdit, et c'est dans ces trois arguments que réside l'erreur

comment l'ouvrir autrement pour taper dedans avec

rs.MoveFirst


While Not rs.EOF

    
    MsgBox (rs![Raison_sociale])
    
    rs.MoveNext
    
Wend

NHenry · Answer

Question, tu fais quoi, du ADO, DAO ou ADO.NET ?

MrFive · Answer

je ne suis pas sur mais je crois que c'est du ADO
quelle différence?

NHenry · Answer

D'après la documentation :
http://msdn.microsoft.com/en-us/library/office/ff195966%28v=office.15%29.aspx

Set rs = db.OpenRecordset("Fournisseurs", acTable, , acReadOnly)
devrait être de la forme 
Set rs=result.OpenRecordset(dbOpenSnapshot)

Si tu veux créer une vue, il faut le faire dans ta base de données d'origine.

Erreur dans la dernière ligne de mon code visual basic

8 réponses

Discussions similaires