1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Dim CtrlTxt As Control, CtrlLbl As Control
DoCmd.OpenForm "formulaire1", acDesign
'Création des textbox
Dim lLeft As Long
Dim lTop As Long
Dim lWidth As Long
Dim lHeight As Long
Dim lEcart As Long
lLeft = 70
lTop = 950
lWidth = 1670
lHeight = 315
lEcart = 70
Set CtrlTxt = CreateControl("formulaire1", acTextBox, acDetail, , "Nom", lLeft + lWidth + lEcart, lTop, lWidth, lHeight)
CtrlTxt.Name = "Champ1"
'Création des labels
Set CtrlLbl = CreateControl("formulaire1", acLabel, acHeader, "Champ1", , lLeft, lTop, lWidth, lHeight)
CtrlLbl.Name = "Tri_Champ1"
CtrlLbl.Caption = "Etiquette Champ1" |
Partager