OVH Cloud OVH Cloud

Erreur sur ouverture d'un recordset

2 réponses
Avatar
Jacques
Bonjour,

Problème peu courant et que je ne comprends pas du tout.
Pouvez-vous m'aider ?

Merci de vos réponses

Dim db As Database
Dim rs As Recordset
Dim sqlTemp As String

Set db = CurrentDb

sqlTemp = "SELECT * FROM Données_old"

Set rs = db.OpenRecordset(sqlTemp)

Sur cette dernière ligne j'ai un message "Erreur d'exécution 13 -
Incompatibilité de type"

2 réponses

Avatar
david
salut,

le problème vient de l'utilisation simultané des DAO et ADO (par
défaut...)

Ajoutes DAO. devant les database, recordset ...
Dim db As DAO.Database
Dim rs As DAO.Recordset

et tu vas voir que cela fonctionne très bien...
A+, david
Avatar
Jessy Sempere [MVP]
Bonjour

Tu dois avoir un problème de référence...
Rajoutes la référence : "Microsoft DAO x.xx Object Library"
Et changes ton code par :

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sqlTemp As String

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Jacques" a écrit dans le message de
news:eKjiStn%
Bonjour,

Problème peu courant et que je ne comprends pas du tout.
Pouvez-vous m'aider ?

Merci de vos réponses

Dim db As Database
Dim rs As Recordset
Dim sqlTemp As String

Set db = CurrentDb

sqlTemp = "SELECT * FROM Données_old"

Set rs = db.OpenRecordset(sqlTemp)

Sur cette dernière ligne j'ai un message "Erreur d'exécution 13 -
Incompatibilité de type"