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