basculer de 2003 à 2007, erreur vba

Version imprimable

Bonjour,

J'ai une appli qui fonctionne sous 2003.
Je voudrais la faire fonctionner sous 2007, voir 2010.

J'ai du enlever une référence : manquant utility.mda. Mais visiblement elle n'est pas utile sous 2007.

J'ai des fonctions qui plantent:
"Erreur inattendue: Code 2046-->La commande ou l'action "AfficherFenêtre" n'est pas disponible pour l'instant."

Le code correspondant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Function Gen_Maintenance(ByVal Fonction As String)
'**********************************************************************
'Opérations : Donne accès au fonctions de maintenance
'**********************************************************************
 
On Error GoTo Err_Gen_Maintenance
 
'Initialisation des variables
Dim Réponse As Variant
Dim optionAppli As Property
Dim Ardéchoise As Database
Const TITRE_MSGBOX As String = "Mode Maintenance"
 
 
'** demande de confirmation de l'opération de MAJ du champ abandon
'Réponse = MsgBox("Vous allez passer en mode 'Maintenance' reservé à l'administrateur.", _
            vbInformation + vbOKCancel + vbDefaultButton1, TITRE_MSGBOX)
 
'If Réponse = vbOK And SécuInput() Then
 
  Select Case Fonction
    Case "Restaure"
      'Affichage des menus
      Call Menu_on
      'Touches de raccourcis
      'Application.SetOption "Macro d'affectation des raccourcis", ""
      'Barres d'outils
      Set Ardéchoise = CurrentDb
      'Set optionAppli = Ardéchoise.CreateProperty("AllowBuiltInToolbars", dbBoolean, True)
      'Ardéchoise.Properties.Append optionAppli
      Ardéchoise.Properties![AllowBuiltInToolbars] = True
      'Set optionAppli = Ardéchoise.CreateProperty("AllowToolbarChanges", dbBoolean, True)
      'Ardéchoise.Properties.Append optionAppli
      Ardéchoise.Properties![AllowToolbarChanges] = True
      'Set optionAppli = Ardéchoise.CreateProperty("AllowShortcutMenus", dbBoolean, True)
      'Ardéchoise.Properties.Append optionAppli
      Ardéchoise.Properties![AllowShortcutMenus] = True
 
      'Fenetre BD
      DoCmd.Close acForm, "Lien Caché", acSaveNo
      Application.RunCommand acCmdWindowUnhide
      Application.DoCmd.Maximize
  End Select
 
'Else
'  Réponse = MsgBox("Opération Annulée.", vbInformation + vbOKOnly, TITRE_MSGBOX)
'End If
 
Exit_Gen_Maintenance:
  Exit Function
 
Err_Gen_Maintenance:
  Call Gen_Erreur(Err.Number, DATA_ERRFUNCTION)
  Resume Exit_Gen_Maintenance
 
End Function

Je ne sais pas ce qu'il faut mettre à jour.

Une idée?
Merci

26/10/2010, 22h11
marot_r

Ton application compile-t'elle ?

A+
26/10/2010, 22h31
fredo2009

Compiler?
Quand je ferme l'appli, ça compacte bien
27/10/2010, 08h19
jcdenton057

Regarde au niveau des références dans le VBA.

J'ai déjà converti des bases de 2003 en 2007 (et 2010). Le problème qui revient presque tout le temps (pour moi), c'est la DAO.

Tu vas dans le VBA, puis dans le menu Outils, référence.
Ensuite, tu décoches la version actuelle de Microsoft DAO 3.xx et tu recherches la plus récente dans la liste.....

Bonne chance..
27/10/2010, 10h05
fredo2009

Merci jcdenton057, effectivement ça me semble une bonne piste.

Par contre, à par Microsoft DAO 3.6 Object Library qui est cochée sous 2003 et 2007, je ne vois pas d'autre DAO dans les références.
Ca porte un autre nom?
27/10/2010, 10h41
jcdenton057

Non, je ne crois pas.
Je regarde ce soir chez moi (je travaille en v 2003 en ce moment) et je te confirme.
27/10/2010, 12h59
fredo2009

Ok merci c'est sympa

En attendant, voici les références cochées sur 2003:
Visual Basic For Applications
Microsoft Access 11.0 Object Library
Utility
OLE Automation
Microsoft Visual Basic for Applications Extensibility 5.3
Microsoft DAO 3.6 Object Library
CompatUI 1.0 Type Library
Microsoft Excel 11.0 Object Library

Et celles sur 2007:
Visual Basic For Applications
Microsoft Access 12.0 Object Library
OLE Automation
Microsoft Visual Basic for Applications Extensibility 5.3
CompatUI 1.0 Type Library
Microsoft DAO 3.6 Object Library
Microsoft Excel 12.0 Object Library
27/10/2010, 13h33
jj4822

Bonjour.

Tout d'abord il faut rajouter en haut de la fenetre VBA : "Option Explicit". Ca permettra, lors de la compilation, de signaler toutes les erreurs. Sans ca, certains problemes ne seront pas signales. C'est peut etre deja fait.

Pour compiler, dans l'ecran VBA, il faut cliquer dans le menu du haut "Debug" puis Compile. Ca permet de verifier que le programme ne pose pas probleme.

S'il y a un probleme au niveau d'une ligne du programme la ligne concernee sera surlignee et un message indique le type d'erreur.

Il se peut qu'une valeur definie dans les declarations (dim....) pose probleme. Si c'est ca, on peut eventuellement decouvrir quelle reference pose probleme. Il peut aussi manquer la declartion d'une valeur.

Concernant DAO il n'y a pas de reference autre que DAO 3.6.

Je sais que sous Access 2007, pour eviter une erreur lors de la compilation il m'a suffit de supprimer la declaration OLE. Il me semble que c'etait celle la, je ne m'en souviens plus. Et mon programme fonctionne alors sans probleme.

Cdlt
27/10/2010, 22h58
fredo2009

Ok pour l'option explicit

Ca compile sans problème
J'ai également enlevé la declaration OLE, ça ne change rien
28/10/2010, 09h20
Arkham46
bjr

il n'y a pas de fenêtre de base de données sous 2007, et le acCmdWindowUnhide ne fonctionne apparement pas pour le panneau de navigation

essaye en fonction de la version :
Code:

1 2 3 4 5 6 7 8 9 If Val(Application.Version) >=12 then ' Access >= 2007 DoCmd.SelectObject acTable, , True Else ' Access < 2007 Application.RunCommand acCmdWindowUnhide Application.DoCmd.Maximize End If
je n'ai pas 2007 sous la main pour tester, il est possible que ça ouvre le panneau de navigation sur le groupe des tables sans conserver la sélection précédente
28/10/2010, 12h01
fredo2009

Super Arkham46,
C'est exactement ça, je retrouve le panneau navigation avec tous les objets access.
J'aurai vraiment pas pensé à ça.