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
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"
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
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Jacques" <jac_be@hotmail.com> a écrit dans le message de
news:eKjiStn%23FHA.2156@TK2MSFTNGP10.phx.gbl...
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"
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"