Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour. le OpenRecordset ne doit pas se faire sur le dbs mais sur le qdf.
profite aussi pour modifier ton code en explicitant que tu travailles en DAO, ça te servira plus tard.
Dim bds As DAO.Database Dim qdf As DAO.QueryDef Dim rst01 As DAO.Recordset Dim SqlReq As String ' SqlReq = "select * from table1" ' pour l'exemple Set bds = CurrentDb Set qdf = bds.CreateQueryDef("temporaire", SqlReq) Set rst01 = qdf.OpenRecordset MsgBox rst01(0) Set qdf = Nothing Set rst01 = Nothing Set bds = Nothing
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ManuR" a écrit dans le message de news: 07ba01c4d857$407a7ca0$ Bonjour à tous
Soit le code suivant
Dim bds As Database Dim qdf As QueryDef Dim rst01 As Recordset Dim SqlReq As String
Set bds = CurrentDb Set qdf = bds.CreateQueryDef("temporaire", SqlReq) Set rst01 = bds.OpenRecordset(SqlReq)
Bien sur SqlReq est renseigné et j'ai un plantage sur le set rst01 avec code erreur 13 Incompatibilité de type !
Cette req à marché avant que j'ajoute l'ocx dblist32 que j'ai dailleur enlevé mais jai tjrs la meme erreur ??? Merci à tous
Bonjour.
le OpenRecordset ne doit pas se faire sur le dbs mais sur le qdf.
profite aussi pour modifier ton code en explicitant que tu travailles en
DAO, ça te servira plus tard.
Dim bds As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst01 As DAO.Recordset
Dim SqlReq As String
' SqlReq = "select * from table1" ' pour l'exemple
Set bds = CurrentDb
Set qdf = bds.CreateQueryDef("temporaire", SqlReq)
Set rst01 = qdf.OpenRecordset
MsgBox rst01(0)
Set qdf = Nothing
Set rst01 = Nothing
Set bds = Nothing
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"ManuR" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 07ba01c4d857$407a7ca0$a601280a@phx.gbl...
Bonjour à tous
Soit le code suivant
Dim bds As Database
Dim qdf As QueryDef
Dim rst01 As Recordset
Dim SqlReq As String
Set bds = CurrentDb
Set qdf = bds.CreateQueryDef("temporaire", SqlReq)
Set rst01 = bds.OpenRecordset(SqlReq)
Bien sur SqlReq est renseigné et j'ai un plantage
sur le set rst01 avec code erreur 13
Incompatibilité de type !
Cette req à marché avant que j'ajoute l'ocx dblist32
que j'ai dailleur enlevé mais jai tjrs la meme erreur ???
Merci à tous
Bonjour. le OpenRecordset ne doit pas se faire sur le dbs mais sur le qdf.
profite aussi pour modifier ton code en explicitant que tu travailles en DAO, ça te servira plus tard.
Dim bds As DAO.Database Dim qdf As DAO.QueryDef Dim rst01 As DAO.Recordset Dim SqlReq As String ' SqlReq = "select * from table1" ' pour l'exemple Set bds = CurrentDb Set qdf = bds.CreateQueryDef("temporaire", SqlReq) Set rst01 = qdf.OpenRecordset MsgBox rst01(0) Set qdf = Nothing Set rst01 = Nothing Set bds = Nothing
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ManuR" a écrit dans le message de news: 07ba01c4d857$407a7ca0$ Bonjour à tous
Soit le code suivant
Dim bds As Database Dim qdf As QueryDef Dim rst01 As Recordset Dim SqlReq As String
Set bds = CurrentDb Set qdf = bds.CreateQueryDef("temporaire", SqlReq) Set rst01 = bds.OpenRecordset(SqlReq)
Bien sur SqlReq est renseigné et j'ai un plantage sur le set rst01 avec code erreur 13 Incompatibilité de type !
Cette req à marché avant que j'ajoute l'ocx dblist32 que j'ai dailleur enlevé mais jai tjrs la meme erreur ??? Merci à tous
