Bonjour à tous,

Cela faisait longtemps que je n'avais pas ouvert de nouvelle discussion.

Je me suis inspiré d'un exemple de code de Morsi pour créer un formulaire dynamiquement mais je rencontre un problème avec le code de suppression des champs.

J'ai le code suivant:

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
Option Compare Database
Option Explicit
 
Public Sub SuppChampsForm()
On Error GoTo Erreur
 
Dim NomForm As String
Dim MyControl As Control
 
'NomForm = "F_ReleveRCNS"
NomForm = "Formulaire2"
 
'Ouverture du formulaire en mode création
DoCmd.OpenForm NomForm, acDesign
 
'suppression de tous les contrôles
For Each MyControl In Forms(NomForm).Controls
        DeleteControl NomForm, MyControl.Name
Next MyControl
 
Erreur_Exit:
    Exit Sub
 
Erreur:
    MsgBox Err.Description
    Resume Erreur_Exit
 
End Sub
Il est sensé supprimer tous les champs de mon formulaire mais il en supprime un sur deux.

Si je relance le code il me supprime 1 seul champ et si je le relance de nouveau il ne supprime qu'un seul champ.

J'ai fait un formulaire tout simple avec 4 champs qui sont indépendants et j'ai le même souci.

Quelqu'un a une idée de se qui ne fonctionne pas ?

Merci par avance de votre aide.