creation de control dynamique

[gyver4000]

salut

voila j'essaie de créer un control sur un formulaire et j'ai une erreur d'exécution 424

est que quelqu'un pourrait me dire pourquoi SVP ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Initialisation_Formulaire1()
Dim nb, x, y As Integer
Dim new_annee As Label
x = 1000
y = 1000
DoCmd.OpenForm "Formulaire1", acDesign, , , , acHidden
 
     Set new_annee = CreateControl(Form_Formulaire1.Name, acLabel, , "", "test", 100, 100, 500, 200)
 
DoCmd.Close acForm, Form_Formulaire1.Name
Set new_annee = Nothing
End Sub

Merci d'avance

bonne journée

[ClaudeLELOUP]

Bonjour,

la bonne syntaxe :

Code :

1
2
3
4
5
6
Public Sub Initialisation_Formulaire1()
Dim new_annee As Label
DoCmd.OpenForm "Formulaire1", acDesign
Set new_annee = CreateControl("Formulaire1", acLabel, , , "Nouvelle étiquette", 1000, 1000)
Set new_annee = Nothing
End Sub