textbox ekleme

Buton tıklayınca kodlarla forma textbox ekleme nasıl yapılır ?

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

ErtiAV arkadısımızdan alıntıdır
https://accesstr.net/konu-form-uzerindek...silme.html

Sn.sumeyyecolakoglur53
Lütfen açmış olduğunuz konu hakkında geri bildirimde bulununuz.

Konu cevaplanmışlara taşınmıştır.