Sub deneme()
Dim X As Integer
Dim ctl As Control
DoCmd.OpenForm "FormAdı", acDesign
For X = 0 To 2 'Kaç adet eklemek istiyorsanız döngüyü o kadar değiştirebilirsiniz.
Set ctl = CreateControl("FormAdı", actextbox, acDetail)
With ctl
.Name = "Mytextbox" & X + 1
'Formda textboxları nereye yerleştirmek istiyorsanız aşağıdaki değerleri ona göre değiştirebilirsiniz.
.Top = 600
.Left = 600 + (800 * X)
.Width = 800
.Height = 3000
.BorderStyle = fmBorderStyleSingle
.SpecialEffect = fmSpecialEffectFlat
End With
Next
DoCmd.Close acForm, "FormAdı", acSaveYes
End Sub
ErtiAV arkadısımızdan alıntıdır
https://accesstr.net/konu-form-uzerindek...silme.html