Discussion :

[sfourre]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jeannot45]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[sfourre]

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

[Arkham46]

Bjr

Essayez dbOpenDynaset au lieu de dbOpenTable

[Tofalu]

Bjr

Essayez dbOpenDynaset au lieu de dbOpenTable

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

[sfourre]

Je vous remercie de votre réponse.

Effectivement le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Fonctione. Mais du coup :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sfourre]

Merci à tous de vos réponses

Amicalement

Stéphane