Discussion :

[supertoms]

Salut à tous, je génère dynamqiquement des champs dans mon formulaire :
champ1, champ2, champ3 etc (le nombre de champ est variable).
Je voudrai savoir comment supprimer ces champs, un truc du genre :

Code :

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

1
2
3
 
'TANT QU'IL EXISTE DES CHAMPS S'APPELANT CHAMP1, CHAMP2 ETC
DeleteControl "form", "champ" &i

Merci d'avance !

[ClaudeLELOUP]

essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub SuprimerLesChamps()
Dim ctl As Control
Dim i As Integer
DoCmd.OpenForm "LeNomDuFormulaire", acDesign
For i = 1 To 3 ' augmente si nécessaire
  For Each ctl In Forms!LeNomDuFormulaire.Controls
    If Left(ctl.Name, 5) = "Champ" Then
       DeleteControl "LeNomDuFormulaire", ctl.Name
    End If
  Next ctl
Next i
DoCmd.Close acForm, "LeNomDuFormulaire", acSaveYes
End Sub

[cristof56]

Ou ça :

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
 
 
Dim ctl As Control
Dim i As Integer,var as string
DoCmd.OpenForm "NomForm", acDesign
For i = 1 To 3 
  For Each ctl In me.controls
    var="Champ" & i
    If ctl.name = var Then
       DeleteControl "NomForm", ctl.Name
    End If
  Next ctl
Next i
DoCmd.Close acForm, "NomForm", acSaveYes
End Sub