Form üzerindeki textbox, label VBA ile silme

1 2 3
25/02/2010, 12:52

Masalcı

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
25/02/2010, 13:26

assenucler

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...
25/02/2010, 13:31

Puletin

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
25/02/2010, 13:59

Masalcı

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
25/02/2010, 16:51

ErtiAV

[attachment=7150]Evet arkadaşlar sizlerinde yazdığı birkaç örnekten esinlenerek otomatik silmeyi de yaptım
Hepimizin ellerine sağlık
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
25/02/2010, 18:07

Puletin

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.
1 2 3