bonjour,
voilà j'ai repris un bout de code de la FAQ et (j'ai essayé de l'adapter à mes besoins, pour l'instant je n'ai fait qu'enlever du code, je n'ai rien ajouté)
sur la ligne : ctl.DeleteControl "F_AFFICHAGE", ctl.Name
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 Public Sub CreationFormulaire(NombrePartie As Integer) Dim frm As Form Dim rst As Recordset Dim ctl As Control Dim i, j As Integer ' --Ouvrir le formulaire en mode modification et caché DoCmd.OpenForm "F_AFFICHAGE", acDesign, , , , acHidden ' --suppression de tous les contrôles avant de les créer de nouveau For Each ctl In Forms!F_AFFICHAGE.Controls ctl.DeleteControl "F_AFFICHAGE", ctl.Name Next ctl rst.Close Set rst = Nothing ' --Sauvegarder le formulaire DoCmd.Save acForm, "F_AFFICHAGE" End Sub
j'ai l'erreur "propriété ou methode non gérée par cet objet". Je ne comprend pas pourquoi... au début il n'y avait aucun control dans mon formulaire donc j'en ai ajouté un mais ca n'a rien changé
un idée?
EDIT : je viens d'essayer comme ca:
meme erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 i = 0 Do Until i >= Forms!F_AFFICHAGE.Controls.Count Forms!F_AFFICHAGE.Controls(i).Delete i = i + 1 Loop
Partager