Discussion :

[Jertho]

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.

[Jean-Philippe André]

salut,
on ne peut pas faire comme avec les objets TableDef ou Field ?
du style

Code :

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

1
2
3
4
5
6
dim a as Control
a.Top = top
.
.
.
Forms("").Controls.Append a

?

[Jertho]

Non il n'y a que Controls.Count, ou .Remove en standard mais non souci, je pense, c'est qu'il me manque une référence pour faire reconnaitre Controls.Add.

[cbleas]

bonjour,

Code :

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

1
2
              Dim ctlCréé As Control
               Set ctlCréé = CreateControl(Nom, acTextBox, , , "numServiceGMAO", 0, 0, 200)

cela fonctionne.

Bonne soirée

[LE VIEUX]

bonsoir,
et en regardant par la
http://access.developpez.com/faq/?pa...reeDynCtrlCode

[Jertho]

Merci des réponses, je teste et vous tiens au courant