Discussion :

[AndréPe]

Bonjour,
J'ai voulu convertir en AC2007 une base .mdb développée en AC2003, qui avait été compilée correctement sous AC2007 et que je traitais avec AC2007 sans pb.
Après conversion en AC2007 (.accdb), à l'ouverture j'obtiens l'erreur 13 (incompatibilité de type) à la ligne 4 du code suivant

Code :

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

1
2
3
4
Dim MaBd As Database
Dim rst As Recordset
Set MaBd = DBEngine.Workspaces(0).Databases(0)
Set rst = MaBd.OpenRecordset("index")

En essayant de compiler en 2007, je retrouve la même erreur sur une ligne semblable d'une autre procédure.
Aucune référence ne manque.

Alors qu'avant conversion, tout se passait bien.
Un indice de remède ?
Merci d'avance

[Invité]

Bonjour

Coche la référence Microsoft DAO 3.6 et décoche celle qui est activée qui doit être Microsoft Office 12.0 Access database ... ou Microsoft Active X ....

Car ton code est pour l'ouverture d'un recordset DAO.

Cela devrait fonctionner.

Philippe

[AndréPe]

Merci Philippe de la suggestion, mais ça bute toujours malgré la modif des références.
J'ai essayé en introduisant DAO

Code :

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

1
2
3
4
Dim MaBd As Database
Dim rst As DAO.Recordset
Set MaBd = DBEngine.Workspaces(0).Databases(0)
Set rst = MaBd.OpenRecordset("index", db_open_dynaset)

sans plus de succès.

La compilation donne en plus une erreur sur la ligne 7 (membre de méthode ou de données introuvable)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
With rst
  .MoveFirst
  Do While Not .EOF
    Base = !Base
    Set rstB = CurrentDb.OpenRecordset("SELECT * FROM index WHERE ABR = '" & Base & "'")
    DoEvents
    .Edit
    "traitement"
    .Update
    .MoveNext
  Loop
  .Close
End With

Je continue à rechercher.

[micniv]

Bonjour à tous,
André il ne faut pas oublier de saisir la colonne à modifier :

Code :

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

1
2
3
4
5
6

 .Edit
   !(champ_a_updater]= "traitement"
    .Update
    .MoveNext

Et puis que veux tu faire au juste avec le recordset rstB ?

[AndréPe]

@micniv
Merci de t'intérresser à mon pb.
Ce n'est pas cette portion de code qui est en jeu. le n'aurais pas du la mettre, elle a pollué la discussion. Elle est effectivement incomplète, mais pour ne pas encombrer le post, j'y avais supprimé des lignes, ce que tu as remarqué.
Pas de soucis, elle fonctionne bien à l'état "natif" dans mon appli en 2003.

@Philippe
J'ai fait comme indiqué, sans changement.

Comme cette base est la frontale d'une autre base (dans le même répertoire) dans laquelle se trouve la table "index", j'ai transformé aussi cette dernière base en accdb. Pas de changement.

Je continue à chercher....

[AndréPe]

J'ai trouvé : tout venait de l'absence de "DAO" pour les différents Recordset.
J'ai modifié en conséquence la version accdb.
Maintenant la compilation se fait bien sans erreurs et l'appli tourne aussi sans erreurs.
Ca me surprend, car sous 2007 avec la version .mdb, ça allait bien sans les DAO.

.accdb serait-il plus exigeant que .mdb ?

Merci de votre aide.
Terminé

[Invité]

Re

Tu devais les avoirs sous 2003, mais elle a dut sautée en passant sous 2007.

Philippe

[AndréPe]

Eh non, certains DAO n'existaient pas en .mdb !
Amtiés