Discussion :

[Elstak]

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é)

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

sur la ligne : ctl.DeleteControl "F_AFFICHAGE", ctl.Name
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:

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

meme erreur

[LedZeppII]

Bonsoir,

un autre exemple pour vider un formulaire

Code vb :

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

1
2
3
4
5
6
7
8
9
10
Dim fm As Form
Dim strFmName As String
 
strFmName = "fmMonFormulaire"
DoCmd.OpenForm strFmName, acDesign
Set fm = Forms(strFmName)
 
Do While fm.Controls.Count > 0
    Application.DeleteControl strFmName, fm.Controls(0).Name
Loop

Supprimer des éléments d'une collection avec For Each ne fonctionne pas car on saute des élément.

On ne peux pas non plus faire une boucle For i = 0 to fm.Controls.Count
car quelques fois on supprime deux contrôles d'un coup quand un contrôle a un contrôle enfant (étiquette par exemple).

A+

[Elstak]

ok,

ca marche bien merci

car quelques fois on supprime deux contrôles d'un coup quand un contrôle a un contrôle enfant (étiquette par exemple)

oui j'avait deja remarqué ca