Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Ouverture Table

Ouverture Table

2 réponses
Avatar
Decaplan
Bonjour,

J'ai une base de données avec une table appelée "Noms". Je voudrais ouvrir
cette table et "travailler" ses enregistrements...Malheureusement
l'exécution bloque sur l'instruction: Set enrgt = bdd.openrecordset("Noms",
dbopentable) en me renvoyyant un msg d'erreur: "Incompatibilité de type"
NOTA: J'ai bien référencé la bibliothèque DAO 3.6.

Merci de votre aide.

Decaplan


Sub essai()
Dim bdd As database
Dim table As TableDef
Dim enrgt As Recordset
Set bdd = CurrentDb()
Set table = bdd.TableDefs("Noms")
Set enrgt = bdd.openrecordset("Noms", dbopentable)
Debug.Print enrgt![Prénom]
End Sub
Signaler un problème avec ce contenu

2 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
joyeux atchoum
S'lt

Malheureusement
l'exécution bloque sur l'instruction: Set enrgt = bdd.openrecordset("Noms",
dbopentable) en me renvoyyant un msg d'erreur: "Incompatibilité de type"
NOTA: J'ai bien référencé la bibliothèque DAO 3.6.


mais en DAO pour les types
DAO.Recordset
DAO.....

voili
ja;)
qui est trop content d'avoir valider son stage Youpi

Avatar
Raymond
Bonsoir.

essaie comme ceci en supprimant la référence à ado ou en mettant dao avant
ado:
Dim bdd As dao.Database
Dim enrgt As dao.Recordset
Set bdd = CurrentDb()
Set enrgt = bdd.OpenRecordset("Noms")
Debug.Print enrgt![prénom]

'ou
Dim enrgt As dao.Recordset
Set enrgt = CurrentDb.OpenRecordset("Noms")
Debug.Print enrgt![prénom]


--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Decaplan" a écrit dans le message de
news:
Bonjour,

J'ai une base de données avec une table appelée "Noms". Je voudrais ouvrir
cette table et "travailler" ses enregistrements...Malheureusement
l'exécution bloque sur l'instruction: Set enrgt bdd.openrecordset("Noms",
dbopentable) en me renvoyyant un msg d'erreur: "Incompatibilité de type"
NOTA: J'ai bien référencé la bibliothèque DAO 3.6.

Merci de votre aide.

Decaplan


Sub essai()
Dim bdd As database
Dim table As TableDef
Dim enrgt As Recordset
Set bdd = CurrentDb()
Set table = bdd.TableDefs("Noms")
Set enrgt = bdd.openrecordset("Noms", dbopentable)
Debug.Print enrgt![Prénom]
End Sub