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 TableDef et QueryDef

TableDef et QueryDef

1 réponse
Avatar
G Roydor
Bonjour,
j'ai un message d'erreur sur Set Rs= .....

j'ai simplement modifié QueryDef en TableDef dans l'exemple ci-dessous
que se passe t il ?

Merci
GR

Dim Qry As DAO.TableDef
Dim Rs As DAO.Recordset
Set Qry = CurrentDb.TableDefs("TABLE001")

Set Rs = Qry.OpenRecordset
Signaler un problème avec ce contenu

1 réponse

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
Raymond [mvp]
Bonjour.

tu mélanges un peu tout;
pour ouvrir un recordset:
Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("select * from table0001")

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"G Roydor" a écrit dans le message de news:

Bonjour,
j'ai un message d'erreur sur Set Rs= .....

j'ai simplement modifié QueryDef en TableDef dans l'exemple ci-dessous
que se passe t il ?

Merci
GR

Dim Qry As DAO.TableDef
Dim Rs As DAO.Recordset
Set Qry = CurrentDb.TableDefs("TABLE001")

Set Rs = Qry.OpenRecordset