Skip to main content

AccessTr.neT


Form üzerindeki textbox, label VBA ile silme

Form üzerindeki textbox, label VBA ile silme

Çözüldü #7
DeleteControl nasıl kullanılacağını bulamadım
object browser da şöyle yazmış

Sub DeleteControl(FormName As String, ControlName As String)

bende kod arasına

Set ctl = DeleteControl("Form2", "Mytextbox1")

yazdım
tabiki oda kabul etmedi

Sub DeleteControl(FormName As String, ControlName As String)

nasıl kullanılmalı
nette şöyle bir kod buldum

Public Function clearForm()

Dim ctl As Control, ctls As Controls
Dim frm As Form
Dim x As String

DoCmd.openForm "JSA Form V2", acDesign

Set frm = Forms![JSA Form V2]
Set ctls = frm.Controls

For Each ctl In frm.Controls
x = Mid(ctl.Properties("Name"), 1, 1)
If x = "X" Then
DeleteControl frm.Name, ctl.Properties("Name")
End If
Next

DoCmd.Close acForm, "JSA Form V2", acSaveYes

End Function
Masalcı, 21-01-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 25/02/2010, 12:59, Düzenleyen: Masalcı.
Cevapla
Çözüldü #8
Sayın EriAV;

Dosyanız için teşekkür ederim. Sayın Masalcı'nın kodları sizin isteğinizi karşılıyor mu? Merak ettim...
Cevapla
Çözüldü #9
Bunu bir deneyiniz işinize yarar mı acaba


Kod:
Sub deneme2()

DoCmd.OpenForm "FormAdı", acDesign
DoCmd.RunCommand acCmdSelectAll
DoCmd.RunCommand acCmdDelete

DoCmd.Close acForm, "FormAdı", acSaveYes
End Sub

Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #10
bu işe yarıyor
denenmiştir
form2 deki Mytextbox3 isimli texboxu siliyor

Private Sub Komut6_Click()
DoCmd.OpenForm "Form2", acDesign
DeleteControl "form2", "Mytextbox3"
DoCmd.Close acForm, "Form2", acSaveYes
End Sub
Masalcı, 21-01-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 25/02/2010, 14:00, Düzenleyen: Masalcı.
Cevapla
Çözüldü #11
.mdb db1_yeni.mdb (Dosya Boyutu: 204 KB | İndirme Sayısı: 12)
Evet arkadaşlar sizlerinde yazdığı birkaç örnekten esinlenerek otomatik silmeyi de yaptım Img-grin

Hepimizin ellerine sağlık Img-grin

Private Sub Command5_Click()
Dim ctl As Control
Dim frm As Form

DoCmd.OpenForm "Form2", acDesign
Set frm = Forms!Form2

For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
For i = 1 To ctl
DeleteControl frm.Name, "Mytextbox" & i
Next i
End If
Next

DoCmd.Close acForm, "Form2", acSaveYes

DoCmd.OpenForm "Form2", acNormal
End Sub
Cevapla
Çözüldü #12
Sn ArtiAV sorununuzun çözüldüğüne sevindim, ayrıca paylaşım içinde teşekkür ederiz, yalnız eklentilerinizi Foruma eklerken lütfen herhangi bir sıkıştırma programı ile sıkıştırdıktan sonra ekleyiniz. Lütfen Site Kurallarına uyalım.
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da