Comment accéder 1 table en VBA en utilisant recordset ?
2 réponses
PhilippeUL
Dans la version Access 97, pour accéder à la table abcdef à partir d'un
module VBA, j'utilisais :
Dim MyDB As Database, MyRS As Recordset
Set MyDB = DBEngine.Workspaces(0).Databases(0)
Set MyRS = MyDB.OpenRecordset("abcdef")
MyRS.AddNew
....
Ca ne fonctionne plus avec Access 2002 !
Quelqu'un aurait-il l'amabilité de m'aider ?
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
Eric
Bonsoir,
Il faut que tu coches la référence Microsoft DAO 3.6 Object Library, car par défaut depuis Access2000, la référence est Microsoft ADO 2.x , et préfixes ainsi : Dim MyDB As DAO.Database, MyRS As DAO.Recordset
De même, je pense que tu peux remplacer Set MyDB = DBEngine.Workspaces(0).Databases(0) par Set MyBd = CurrentDb
Dans la version Access 97, pour accéder à la table abcdef à partir d'un module VBA, j'utilisais : Dim MyDB As Database, MyRS As Recordset Set MyDB = DBEngine.Workspaces(0).Databases(0) Set MyRS = MyDB.OpenRecordset("abcdef") MyRS.AddNew .... Ca ne fonctionne plus avec Access 2002 ! Quelqu'un aurait-il l'amabilité de m'aider ?
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir,
Il faut que tu coches la référence Microsoft DAO 3.6 Object Library, car
par défaut depuis Access2000, la référence est Microsoft ADO 2.x , et
préfixes ainsi :
Dim MyDB As DAO.Database, MyRS As DAO.Recordset
De même, je pense que tu peux remplacer
Set MyDB = DBEngine.Workspaces(0).Databases(0)
par Set MyBd = CurrentDb
Dans la version Access 97, pour accéder à la table abcdef à partir d'un
module VBA, j'utilisais :
Dim MyDB As Database, MyRS As Recordset
Set MyDB = DBEngine.Workspaces(0).Databases(0)
Set MyRS = MyDB.OpenRecordset("abcdef")
MyRS.AddNew
....
Ca ne fonctionne plus avec Access 2002 !
Quelqu'un aurait-il l'amabilité de m'aider ?
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Il faut que tu coches la référence Microsoft DAO 3.6 Object Library, car par défaut depuis Access2000, la référence est Microsoft ADO 2.x , et préfixes ainsi : Dim MyDB As DAO.Database, MyRS As DAO.Recordset
De même, je pense que tu peux remplacer Set MyDB = DBEngine.Workspaces(0).Databases(0) par Set MyBd = CurrentDb
Dans la version Access 97, pour accéder à la table abcdef à partir d'un module VBA, j'utilisais : Dim MyDB As Database, MyRS As Recordset Set MyDB = DBEngine.Workspaces(0).Databases(0) Set MyRS = MyDB.OpenRecordset("abcdef") MyRS.AddNew .... Ca ne fonctionne plus avec Access 2002 ! Quelqu'un aurait-il l'amabilité de m'aider ?
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
PhilippeUL
Un grand merci ! ; ) Et un beau bonjour de Montréal !
Bonsoir,
Il faut que tu coches la référence Microsoft DAO 3.6 Object Library, car par défaut depuis Access2000, la référence est Microsoft ADO 2.x , et préfixes ainsi : Dim MyDB As DAO.Database, MyRS As DAO.Recordset
De même, je pense que tu peux remplacer Set MyDB = DBEngine.Workspaces(0).Databases(0) par Set MyBd = CurrentDb
Dans la version Access 97, pour accéder à la table abcdef à partir d'un module VBA, j'utilisais : Dim MyDB As Database, MyRS As Recordset Set MyDB = DBEngine.Workspaces(0).Databases(0) Set MyRS = MyDB.OpenRecordset("abcdef") MyRS.AddNew .... Ca ne fonctionne plus avec Access 2002 ! Quelqu'un aurait-il l'amabilité de m'aider ?
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Un grand merci ! ; )
Et un beau bonjour de Montréal !
Bonsoir,
Il faut que tu coches la référence Microsoft DAO 3.6 Object Library, car
par défaut depuis Access2000, la référence est Microsoft ADO 2.x , et
préfixes ainsi :
Dim MyDB As DAO.Database, MyRS As DAO.Recordset
De même, je pense que tu peux remplacer
Set MyDB = DBEngine.Workspaces(0).Databases(0)
par Set MyBd = CurrentDb
Dans la version Access 97, pour accéder à la table abcdef à partir d'un
module VBA, j'utilisais :
Dim MyDB As Database, MyRS As Recordset
Set MyDB = DBEngine.Workspaces(0).Databases(0)
Set MyRS = MyDB.OpenRecordset("abcdef")
MyRS.AddNew
....
Ca ne fonctionne plus avec Access 2002 !
Quelqu'un aurait-il l'amabilité de m'aider ?
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Un grand merci ! ; ) Et un beau bonjour de Montréal !
Bonsoir,
Il faut que tu coches la référence Microsoft DAO 3.6 Object Library, car par défaut depuis Access2000, la référence est Microsoft ADO 2.x , et préfixes ainsi : Dim MyDB As DAO.Database, MyRS As DAO.Recordset
De même, je pense que tu peux remplacer Set MyDB = DBEngine.Workspaces(0).Databases(0) par Set MyBd = CurrentDb
Dans la version Access 97, pour accéder à la table abcdef à partir d'un module VBA, j'utilisais : Dim MyDB As Database, MyRS As Recordset Set MyDB = DBEngine.Workspaces(0).Databases(0) Set MyRS = MyDB.OpenRecordset("abcdef") MyRS.AddNew .... Ca ne fonctionne plus avec Access 2002 ! Quelqu'un aurait-il l'amabilité de m'aider ?
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
