Compatibilité VBA ACCESS 2002 - 2007

Bonjour à tous,

Je suis dans la comptabilité et j'ai de bonnes connaissances en Access mais mon VBA reste assez limité... J'ai repris une base de données qui permet de gérer des taxes au boulot et dois essayer de le faire migrer d'Access 2002 à Access 2007.

Je l'ai donc convertie et suis en train de la tester mais je suis tombé sur une erreur qui m'empêche d'ouvrir un des formulaires.

Voici une partie du code de ce formulaire, la partie qui pose problème (la ligne "Set MonRecordSet(...)" est surlignée en jaune pendant le débogage):

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form_Open(Cancel As Integer) Dim MaBaseDeDonnee As DAO.Database Set MaBaseDeDonnee = CurrentDb Dim MonRecordSet As Recordset   Set MonRecordSet = MaBaseDeDonnee.OpenRecordset("SELECT COUNT(*) AS nb FROM Import", dbOpenDynaset) Me!lbl_nb_site_non_traite.Caption = "Il reste " & MonRecordSet("nb") & " sites à traiter" End Sub

---

Cette partie du code est censé compter à l'ouverture, le nombre de lignes figurant dans la table 'Import' et ressortir un texte du type "Il reste 34 sites à traiter" sur le formulaire. Le formulaire s'ouvre correctement sur Access 2002 mais pas sur Access 2007, dans lequel j'ai une erreur d'exécution 13 "Incompatibilité de type".

Je sollicite donc votre assistance afin de trouver d'où vient réellement le problème, s'il existe une différence de syntaxe par exemple entre les deux versions d'Access ou une différence de ce type...

Merci d'avance pour votre aide !

Bonjour,

Dans l'éditeur VBA, menu Outils ==> Références.

Vérifie que la référence Microsoft DAO 3.6 Object Library soit bien cochée.

Egalement, si tu as des références marquées manquantes, tu les décoches.

Domi2

Il faut effectivement vérifier que les références adéquates soient bien ajoutées à ta base - sans quoi Access ne sait pas comment utiliser certaines parties de ton code. Pour le reste, je te propose de faire les petites modifications suivantes pour avoir un code un tout petit peu plus propre... ;-)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Form_Open(Cancel As Integer) Dim MaBaseDeDonnee As DAO.Database Set MaBaseDeDonnee = Application.CurrentDb Dim MonRecordSet As DAO.Recordset   Set MonRecordSet = MaBaseDeDonnee.OpenRecordset("SELECT COUNT(*) AS nb FROM Import", dbOpenDynaset) Me!lbl_nb_site_non_traite.Caption = "Il reste " & MonRecordSet("nb") & " sites à traiter" MonRecordSet.Close Set MonRecordSet = Nothing Set MaBaseDeDonnee = Nothing End Sub

---

Ca marche, merci beaucoup pour votre aide !