Discussion :

[Lorenzole+bo]

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

[loufab]

Bonjour,

je vois mal un serveur allé virer du code... surtout uniquement celui situé entre les Sub End Sub. Puis les références supprimer et non marqué comme MANQUANTE.

Un crash de la partie VBA est toujours possible mais le message est explicite.

Une mauvaise blague, une restauration des données du serveur, un code malsain (aucun à ma connaissance ne fait ce type de dégat.)

à investiguer.

[Lorenzole+bo]

Bonsoir,

Merci beaucoup pour votre réponse. Il faudra que je m'attaque à la sécurité d'une base de données.

A bientôt.

[loufab]

Pour éviter ce genre de problème tu peux faire une compilation MDE.