bon bah c'est encore moi

voilà j'ai donc réussi à creer dynamiquement un controle en lui associant du code mais maintenant si je lance ma fonction qui me crée un bouton avec du code sur un formulaire et bien il me crée à chaque fois le module

en gros j'ai ca :


Public Sub FonctionCréée()
...
End Sub


Public Sub FonctionCréée()
...
End Sub


Public Sub FonctionCréée()
...
End Sub

(enfin je l'ai pas 3 fois car il me dit qu'il y a ambiguité sur le nom dès la 2eme fois)

j'ai donc tenté (on rigole pas merci ) de supprimer l'ancien module mais bon ca marche pas biensur... :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim fm As Form
'Ouvrir le formulaire en mode création
DoCmd.OpenForm NomForm, acDesign
Set fm = Forms(NomForm)
 
 
Do While fm.Module.Count > 0
     fm.Module.DeleteLines
Loop
"membre de données ou de methodes introuvable"

sur la ligne : Do While fm.Module.Count > 0 (sur le Count)

j'avais tenté de faire un copier/coller de mon bout de code qui supprime mes control mais non..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Do While fm.Controls.Count > 0
    Application.DeleteControl strFmName, fm.Controls(0).Name
Loop
et pourtant quand je tape le point apres fm.Module. il me propose "count" ce %$^*

merci d'avance