Bonsoir,

J'essaie de créer un controle de façon dynamique c'est à dire aprés "click" d'un bouton sur un formulaire.

Le code que j'utilise est le 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
 
Dim Top, Left, Width, Height, i As Integer 
Dim NumeroTextBox As Integer 
Dim TextBoxName As String 
 
Top = 150 
Left = 150 
Width = 2000 
Height = 275 
NumeroTextBox = 1 
 
For i = 0 To 4 - 1 
 
TextBoxName = "NomdelaTextBox" & NumeroTextBox 
Set TextBox = Controls.Add("VB.textbox", "" & TextBoxName & "", Me.Name) 
With TextBox 
.Visible = True 
.Top = Top 'Definit la distance entre le bord de la fenetre et le bord du conteneur 
.Left = Left 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur 
.Width = Width 'Definit la largeur de l'objet 
.Height = Height 'Definit la hauteur de l'objet 
.Font.Size = 8 ématiqu
End With 
 
Top = Top + 500 
NumeroTextBox = NumeroTextBox + 1 
 
Next
Aprés avoir cherché sur différent forums j'ai lié FM20.dll

Malgré cela j'ai une erreur de compil sur Controls.Add.
J'utilise Access 2003

Je ne sais plus comment faire pour résoudre ce pb.

Quelqu'un peut il me donner un coup de main ?

Merci d'avance.