Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Je ne comprends pas

Je ne comprends pas

3 réponses
Avatar
MANUR
Bonjour,

Soit le code suivant en vba sous acces :



Dim SqlReq As String
Dim bds As Database
Dim qdf As QueryDef
Dim rst01 As Recordset
Dim nb As Long

SqlReq =3D "Select * from INSEE2 where Naf4 =3D "751A";"

Set bds =3D CurrentDb
Set qdf =3D bds.CreateQueryDef("temporaire", SqlReq)
Set rst01 =3D bds.OpenRecordset(SqlReq)

et au passage sur rst01 j'ai erreur 13 incompatibilit=E9 de
type ???? alors que openrecordset m'est propos=E9 apr=E8s la
saisie du point de bds.
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Pierre CFI [mvp]
bonjour
SqlReq = "Select * from INSEE2 where Naf4 = '751A';"

s
s
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"MANUR" a écrit dans le message de news:587b01c4c726$13750fa0$
Bonjour,

Soit le code suivant en vba sous acces :



Dim SqlReq As String
Dim bds As Database
Dim qdf As QueryDef
Dim rst01 As Recordset
Dim nb As Long

SqlReq = "Select * from INSEE2 where Naf4 = "751A";"

Set bds = CurrentDb
Set qdf = bds.CreateQueryDef("temporaire", SqlReq)
Set rst01 = bds.OpenRecordset(SqlReq)

et au passage sur rst01 j'ai erreur 13 incompatibilité de
type ???? alors que openrecordset m'est proposé après la
saisie du point de bds.
Avatar
Merci mais le problèm reste le même !
-----Message d'origine-----
bonjour
SqlReq = "Select * from INSEE2 where Naf4 = '751A';"

s
s
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"MANUR" a écrit dans
le message de news:587b01c4c726$13750fa0$

Bonjour,

Soit le code suivant en vba sous acces :



Dim SqlReq As String
Dim bds As Database
Dim qdf As QueryDef
Dim rst01 As Recordset
Dim nb As Long

SqlReq = "Select * from INSEE2 where Naf4 = "751A";"

Set bds = CurrentDb
Set qdf = bds.CreateQueryDef("temporaire", SqlReq)
Set rst01 = bds.OpenRecordset(SqlReq)

et au passage sur rst01 j'ai erreur 13 incompatibilité de
type ???? alors que openrecordset m'est proposé après la
saisie du point de bds.


.



Avatar
Pierre CFI [mvp]
../...
ajoute DAO à toutes tes variables objet DAO.recordset ....
tu es bien sur du type de ton champ ? texte ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
a écrit dans le message de news:486c01c4c733$148e5bf0$
Merci mais le problèm reste le même !
-----Message d'origine-----
bonjour
SqlReq = "Select * from INSEE2 where Naf4 = '751A';"

s
s
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"MANUR" a écrit dans
le message de news:587b01c4c726$13750fa0$

Bonjour,

Soit le code suivant en vba sous acces :



Dim SqlReq As String
Dim bds As Database
Dim qdf As QueryDef
Dim rst01 As Recordset
Dim nb As Long

SqlReq = "Select * from INSEE2 where Naf4 = "751A";"

Set bds = CurrentDb
Set qdf = bds.CreateQueryDef("temporaire", SqlReq)
Set rst01 = bds.OpenRecordset(SqlReq)

et au passage sur rst01 j'ai erreur 13 incompatibilité de
type ???? alors que openrecordset m'est proposé après la
saisie du point de bds.


.