DAO et Datagrid, petite errerur

fabricioliking Messages postés 79 Date d'inscription mercredi 30 août 2006 Statut Membre Dernière intervention 15 mai 2009 - 6 mai 2008 à 10:50
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 6 mai 2008 à 21:51
J'ai une erreur " Type incompatible [erreur d'execution '13'] sur mon code Set DataGrid1.DataSource = larequete

Je vous fait par d'un peu plus de détails ci-dessous :

If T_Article("TypeArt") = "A" Then
Dim larequete As DAO.Recordset
Dim requete_prix2 As Stringrequete_prix2 "SELECT Lgcdf.NUMCDFNO, Lgcdf.NUMLIGNE, Lgcdf.PRIXUNIT, Lgcdf.FORFAIT, Lgcdf.UNITACHA, Lgcdf.QTECOMDE FROM (Article INNER JOIN Lgcdf ON Article.ARTICLE Lgcdf.ARTICLE) INNER JOIN (Encdf INNER JOIN Fourni ON Encdf.CODEFOUR = Fourni.CODEFOUR) ON (Lgcdf.NUMCDFNO = Encdf.NUMCDFNO) AND (Lgcdf.NUMCDFAN = Encdf.NUMCDFAN) ORDER BY Lgcdf.NUMCDFNO, Lgcdf.NUMLIGNE DESC;"
Set larequete = Db_VisualGP.OpenRecordset(requete3, dbOpenSnapshot)


 


Set DataGrid1.DataSource = larequete

1 réponse

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
6 mai 2008 à 21:51
salut,

possible que.....
<strike>Set larequete = Db_VisualGP.OpenRecordset(requete3, dbOpenSnapshot)</strike>
Set larequete = Db_VisualGP.OpenRecordset(requete_prix2, dbOpenSnapshot)

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
0
Rejoignez-nous