Bonjour,
Je suis à la recherche d'un code permettant de supprimer tous les contrôles présents dans un formulaire. Dans la partie Détails plus précisément.

J'offre la possibilité à un utilisateur de choisir le nombre de listbox qu'il souhaite.

Voila le code qui crée le formulaire. je souhaiterai savoir comment supprimer ces controls une fois que le formulaire a été utilisé.

Et j'abuse, en demandant comment peut on enregistrer le formulaire en mode Création sans passer par la fenêtre d'enregistrement système.

Merci

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Sub ModifFormScoring(nbVariable As Integer)
 
Dim lstbox As Control
Dim txtbox As Control
 
Dim NomfrmScoring As String
 
Dim i As Integer
Dim hauteur As Long
 
NomfrmScoring = "SCORING"
hauteur = 500
 
'J'ouvre le formulaire en mode création
DoCmd.OpenForm NomfrmScoring, acDesign
 
'nbVariable représente le nombre de listbox et textbox que souhaite l'utilisateur
For i = 1 To nbVariable
 
    Set lstbox = Application.CreateControl(NomfrmScoring, acComboBox, acDetail, "", "", 600, hauteur, 8000, 300)
    With lstbox
        .Name = "lstQuest" & i
        .RowSourceType = "Value List"
 
    End With
 
    Set txtbox = Application.CreateControl(NomfrmScoring, acTextBox, acDetail, "", "", 9000, hauteur, 500, 300)
    With txtbox
        .Name = "txtbFacteurRisque" & i
    End With
 
    hauteur = hauteur + 500
Next i
 
DoCmd.OpenForm NomfrmScoring
End Sub