Utilisation OpenRecordset

Par le passé ce code fonctionait parfaitement en ACCES 97
Pour différente raisons j'ai dû passer à ACCES 2003 en conservant la BD au format ACCESS 97.

Dans ma BDD j'ai donc importé formulaire et codes et lié les tables de la BD au format ACESS 97.

Du coup le code ci-dessous génère une erreur 3219 sur la ligne OpenRecordset.

Code:

---

1 2 3 4 5 6 7

Dim rsAdr As DAO.Recordset Dim GAF As Database   Set GAF = CurrentDb Set rsAdr = GAF.OpenRecordset("Adresse", dbOpenTable) rsAdr.Index = "PrimaryKey"

---

Par avance, merci de votre aide.

Cordialement

Stéphane

Bonjour,

1) As-tu vérifié dans tes références que la bibliothèque DAO 3.6 était reprise ?

2) tu devrais également préciser DAO.Database dans ta déclaration

Citation:

---

Dim rsAdr As DAO.Recordset
Dim GAF As DAO.Database

Set GAF = CurrentDb
Set rsAdr = GAF.OpenRecordset("Adresse", dbOpenTable)
rsAdr.Index = "PrimaryKey"

---

3) tu aurais pu écrire directement :

Code:

---

1 2 3 4 5 6

Dim rsAdr As DAO.Recordset 'Dim GAF As Database   'Set GAF = CurrentDb Set rsAdr = CurrentDb.OpenRecordset("Adresse", dbOpenTable) rsAdr.Index = "PrimaryKey"

---

DAO 3.6 est bien référencé

j'ai essayé votre dernier code, effectivement plus élégant.

malheureusement, l'erreur générée reste la même !

je me demande si ce problème n'est pas lié au fait d'utiliser une table liée au lieu d'une table présente dans la BDD elle même ?

D'avance merci de votre aide.

Amicalement

Stéphane

Bjr

Essayez dbOpenDynaset au lieu de dbOpenTable

Citation:

---

Envoyé par Arkham46

Bjr

Essayez dbOpenDynaset au lieu de dbOpenTable

---

Exactement, dbopentable n'est pas disponible pour les tables liées ;)

Je vous remercie de votre réponse.

Effectivement le code :

Code:

---

1 2	Set rsAdr = CurrentDb.OpenRecordset("Adresse", dbOpenDynaset)

---

Fonctione. Mais du coup :

Code:

---

1 2 3

rsAdr.Index = "PrimaryKey" rsAdr.Seek "=", MaCle

---

ne fonctione plus avec un Dynaset.

Auriez vous une solution qui permette de faire une recherche sur la clé de l'enregistrement ?

Amicalement

Stéphane

Merci à tous de vos réponses

Amicalement

Stéphane

La méthode FindFirst ;)