Discussion :

[Ric500]

Bonjour à tous,

Dans le cadre de la migration d'un MDB vers ACCDB, je suis en charge d'enlever les CommandBars de mes formulaires et états. Comme je vais devoir réitérer cette opération sur de nombreux formulaires et sur plusieurs bases j'aurais souhaité modifier ces objets par code VBA.



Je dispose de la procédure suivante qui se déroule correctement mais ne fait pas le "boulot" dans la mesure où les formulaires et états conservent la propriété Barre Outils.

Code :

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

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
Public Sub RemoveFormsCommandBars()
 
    Dim Current As AccessObject
 
 
    For Each Current In Application.CurrentProject.AllForms
        DoCmd.OpenForm Current.Name, acDesign, , , , acWindowNormal
        'MsgBox Current.Name
        With Application.Forms(Current.Name)
            .Toolbar = ""
             .MenuBar = ""
             .ShortcutMenuBar = ""
             Beep
        End With
        DoCmd.Close acForm, Current.Name, acSaveYes
    Next
 
 
    For Each Current In Application.CurrentProject.AllReports
        DoCmd.OpenReport Current.Name, acViewDesign, , , acWindowNormal
        With Application.Reports(Current.Name)
            .Toolbar = ""
            .MenuBar = ""
            .ShortcutMenuBar = ""
        End With
        DoCmd.Close acReport, Current.Name, acSaveYes
        Beep
    Next
 
    MsgBox "Terminé"
 
End Sub

J'avoue que je suis perplexe, avez-vous une idée?

Merci d'avance pour vos réponses

NB: J'ai vérifié sur la doc Microsoft: Toolbar est bien un membre de Forms en lecture-écriture

https://docs.microsoft.com/fr-fr/off...s.form.toolbar

[Ric500]

Je viens d'essayer ce code sous Access 7 (au lieu d'access 2013) et là, çà fonctionne!!!

Mon problème est résolu mais j'aimerais comprendre...

[marot_r]

Bonjour.

Je ne sais pas si c'est la cause mais j'ai eu un problème semblable avec la mise en forme conditionnelle. Les modifications n'étaient pas enregistrées au moment du close.
Il a fallu que procède à un save suivi d'un close pour que la modif soit enregistrée.

Et Access 7, c'est Access 97 ?

A+

[Ric500]

Bonjour marot_r!

Et Access 7, c'est Access 97 ?

Je voulais dire Access 2007 (12.0)