Skip to main content

AccessTr.neT


Form üzerindeki textbox, label VBA ile silme

Form üzerindeki textbox, label VBA ile silme

Çözüldü #3
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
Son Düzenleme: 25/02/2010, 12:15, Düzenleyen: ErtiAV.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Form üzerindeki textbox, label silme - Yazar: ErtiAV - 25/02/2010, 12:13
Task