Discussion :

[DodoDAix]

Bonjour !!

Alors voila mon problème. Je travaille sur une appli Access depuis un moment, et travaillant seul sur l'appli en local je me suis dit pas besoin de faire de sauvegarde (oui je sais ce n'est pas bien). Et la, ce matin j'ai modifié le code et l'éditeur VBA ne se lance plus, Access plante complétement. Je sais de quel formulaire ça vient, je peux l'éditer mais pas le lancer. Je ne peux pas le modifier, supprimer des éléments ou en ajouter. J'ai essayer de tout importer dans un nouveau fichier mdb, mais ca plante sur ce formulaire. Ca doit faire 2 ou 3 semaines que je bosse uniquement sur ce formulaire, vous comprendrez sûrement mon désir de récuperer le code !

J'ai vu un post similaire concernant Access 2003, mais il n'y a pas de solution dans celui-ci. Je suis sur Access 2002 avec une version de base de données en 2000.

Donc en conclusion, si quelqu'un peut m'aider !! Help !
Sinon connaissez vous un logiciel qui permet de récupérer le code d'un fichier mdb ??
Merci

[Tofalu]

Je pense que tu es parti pour tout recommencer. Si tu veux récupérer le formulaire (mais pas le code ).

Fixe la propriété Avec module du formulaire à Non, et importe le dans une nouvelle base. Essaye ensuite d'accéder au code dans la première base mais je doute que ça fonctionne. Tu auras au moins récupérer l'interface

[DodoDAix]

J'ai essayé de mettre la propriété Avec Module à Non, mais quand j'enregistre le formulaire, Access plante... Du coup la propriété reste à oui

[Tofalu]

Ben tu as plus qu'à tout refaire

[DodoDAix]

Vu que je peux ouvrir l'ancien formulaire en mode création, j'ai pu faire un copier-coller des éléments, comme ça j'ai quand même gardé l'interface... Mais il me reste le code
y'a du taf !!

En tt cas merci

[random]

tu as essayé de lancer une compilation depuis un module standard ?

[random]

si tu te contentes d'ouvrir le formulaire tu es déjà en erreur ?

[random]

tu crées une table nommée rtest avec un champ ligne texte 255
null autorisé et champ vide autorisé
tu ouvres ton formulaire en mode modif
tu te places en mode vba
tu copies ceci

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
 
Sub recupcode(nomform As String)
Dim mabase As DAO.Database
Dim matable As DAO.Recordset
Dim boucle As Long
Dim mdl As Module
Set mdl = Modules(nomform)
Set mabase = CurrentDb()
Set matable = mabase.OpenRecordset("rtest")
For boucle = 1 To mdl.CountOfLines
matable.AddNew
matable![ligne] = mdl.Lines(boucle, 1)
matable.Update
Next boucle
End Sub

tu tapes call recupcode("form_nomdureport") dans la fenêtre d'éxécution

[DodoDAix]

Merci, ca à l'air super, mais le souci c'est que je ne peux pas acceder à l'éditeur vba depuis n'importe quelle form ou depuis le menu principal. Donc comment puis-je faire pour taper ton code ?? Avec la form qui pose problème je ne peux que l'ouvrir en mode création, et dès que j'essai d'enregistrer quelque modif, Access plante. Je ne peux ni supprimer ni ajouter des controls.

[random]

accèdes tu à vba si ta forme est fermée ?

[cafeine]

Si tu as encore VBA dans Excel, tu peux tester ce code, je viens de le faire fonctionner ...

il faut quand meme ajouter la référence Microsoft Access X.0 Object Library

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
Sub GetAccessModule()

Dim appAcc As Access.Application
Dim mdl As Access.Module
Set appAcc = GetObject("H:\MaBase.mdb")

' les noms de module de classe de forms sont précédés
'  par un Form_
Set mdl = appAcc.Modules("Form_NomduForm")

For i = 1 To mdl.CountOfLines
    Debug.Print mdl.Lines(i, 1)
Next i

Set mdl = Nothing
appAcc.CloseCurrentDatabase
Set appAcc = Nothing

End Sub

[DodoDAix]

En faisant un petit mix des bouts de codes de cafeine et random, j'ai réussi depuis un nouveau fichier Access à parcourir la collection Modules de mon application défectueuse. Je me suis rendu compte, que le module correspondant à mon formulaire n'y était pas.
Je pense donc que c'est pas possible de récupérer le code. En tout cas merci beaucoup pour votre aide, j'ai appris des trucs sympas !

Bonne continuation !!

[cafeine]

En faisant un petit mix des bouts de codes de cafeine et random, j'ai réussi depuis un nouveau fichier Access à parcourir la collection Modules de mon application défectueuse. Je me suis rendu compte, que le module correspondant à mon formulaire n'y était pas.
Je pense donc que c'est pas possible de récupérer le code. En tout cas merci beaucoup pour votre aide, j'ai appris des trucs sympas !

Bonne continuation !!

même préfixé par Form_ ?

dommage ...

[random]

commence par regarder dans l'explorateur d'objet
pour ce faire
ouvre une base vierge
en mode vba module ajoute la référence à ta base
et regarde les modules présents avec leurs noms

[DodoDAix]

Quand j'ouvre une nouvelle base, et que j'ajoute en référence la mienne, Access plante. Décidement... tan pis