Discussion :

[fsautejeau]

salut,

aujourd hui j ai plein de questions :

Dans le fenetre Visual Basic, comment fait on pour supprimer un module du repetoire module du projet?

Meme question pour les formulaire.J ai un Form_~TMPCLP317831 qui est apparu, qui est une copie d un code vba d un form deja existant.


Est possible?

[fsautejeau]

sauf que la deuxieme question est tjs valable, avec ce formulaire temporaire.

[guigui5931]

Tu clique dessus et tu fait Suppr........

[fsautejeau]

oui mais pour mon form, il n apparait pas ds la fenettree de ma base de donnee mais que dans ma fenetre vba.

[Arkham46]

slt,

essaye de compacter la base

[fsautejeau]

j avais deja essayé ca ne marche pas

[PhilMil]

Dans VBA, il faut aller chercher ta form "Form_~TMP..." + click droit "view object". Maintenant, la form apparait en mode design.

Par la suite, va dans les propriétés de cette form puis dans la propriété "Has Module", changer la valeur de "YES" à "NO".

Maintenant, le code de la form est effacé et n'apparait plus dans VBA.

Il reste à effectuer une sauvegarde, puis (pour la forme) un petit "Compact & repair"

Bon essai

[jblangenwitsch]

Bonjour PhilMil,

bravo pour ces explications cela a fonctionné sous Access 2003.

merci

Salutations
Jeff

[Papy Turbo]

D'abord, merci, Phil Mil pour la piste à suivre.

J'en ai eu 2 du même type, qui ont bien disparu... en apparence.

En voulant vérifier, j'ai tapé la commande suivante dans la fenêtre d'exécution :

Code :

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

for x = 0 to CurrentProject.AllForms.Count-1:? x, CurrentProject.AllForms(x).Name:next

Plus aucun nom bizarre, parmi les 100 formulaires listés

Par curiosité, j'ai ensuite essayé l'autre méthode (Containers) :

Code :

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

for x = 0 to currentdb.Containers("Forms").Documents.Count-1: ? x, currentdb.Containers("Forms").Documents(x).Name:Next x

Et là, dans la réponse, mes 2 formulaires corrompus :

Code :

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

1
2
 12           ~TMPCLP333601
 13           ~TMPCLP423441

Pas grave, la méthode DeleteObject fonctionne très bien :

Code :

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

1
2
docmd.DeleteObject acForm ,"~TMPCLP333601"
docmd.DeleteObject acForm ,"~TMPCLP423441"

suivi du même listing que ci-dessus : plus rien d'anormal. Sans oublier le petit compactage/repair à la sortie.

En fait, pour savoir s'il y a des formulaires corrompus, avec ou SANS module, il faut comparer les 2 collections :

Code :

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

? currentdb.Containers("Forms").Documents.Count, CurrentProject.AllForms.Count

S'il y en a plus dans le container que dans AllForms, il y a fort à parier que quelques dates de péremption sont dépassées...


Etienne