Bonjour,

A l’ouverture du fichier MaDataBase.mdb, je me suis aperçu que mes boutons de commande, listes déroulantes, etc., ne répondaient plus au Code VBA qui y avait été introduit. En consultant l’environnement VBE, j’ai constaté que le code VBA avait totalement disparu, mis à part les lignes de départ (Sub) et fin de procédure (End Sub) à chaque objet contenant du code.

La base se trouve sur serveur. Aucune intervention au niveau des références, Outils - Options – Shared, Code VBA.
Aucun message d’erreur n’est apparu à l’ouverture de la base.

J’en déduit deux raisons possibles mais invérifiables à ce stade :

- Bogue système Serveur – Access 2003
- Intervention humaine (peu probable mais possible)

Quelqu’un aurait-il connu une situation similaire et en connaîtrait la/les raison(s) techniques ?

Ci-dessous, l’environnement tel qu’il était avant ouverture de la base (situation normale) et après ouverture de la base (situation anormale).

Avant

Outils – Références (cochées)

- Visual Basic For Applications
- Microsoft Access 11.0 Object Library
- OLE automation
- Microsoft DAO 3.6 Object Library
- Microsoft Active X Data Objects 2.1 Library
- Microsoft Word 11.0 Object Library

Outils – Options – Shared

VBE (Code exemple)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
 
Private Sub Commande6_Click()
On Error GoTo Err_Commande6_Click
    DoCmd.Quit
Exit_Commande6_Click:
    Exit Sub
Err_Commande6_Click:
    MsgBox Err.Description
    Resume Exit_Commande6_Click
End Sub
…

Après

Outils – Références (cochées)

- Visual Basic For Applications
- Microsoft Access 11.0 Object Library
- OLE automation
(trois éléments manquants)

Outils – Options – Shared

Situation du Code

VBE (Code exemple)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub Commande6_Click()

(disparition du Code)

End Sub
…

Merci