VBA'dan Tools/References'ten Microsoft Visual Basic for Applications Extensibility seçiyorsunuz. Daha sonra Textbox eklemek istediğiniz formdan önceki forma aşağıdaki kodları ekliyorsunuz. Form açıkken bu uygulama çalışmaz bu yüzden öncesinde yapmanız gerekiyor.
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
Cevapla
Son Düzenleme: 25/02/2010, 12:15, Düzenleyen: ErtiAV.