Commandbuttonları Koşullu Silme

1 2 3 4

(09/02/2020, 21:47)feraz yazdı:
(09/02/2020, 21:24)berduş yazdı: nasıl çalıştırdığınızı anlatır mısınız?
silinecek nesne varsa siler eğer yoksa hata vermesi normal çünkü dizinin boş olup olmadığını kontrol ettirömedim
Hatalı olarak örnek ekledim.

Alttaki kod ile tüm butonlar siliniyor Hepsine Forms("Form1") olarak yazmak zorunda kaldım.With ile kısaltınca olmuyor sağlık olsun

Kod:
Public Function butonsil() Dim x As Integer DoCmd.OpenForm "Form1", acDesign For x = 0 To Forms("Form1").Controls.Count - 1 DeleteControl Forms("Form1").Name, Forms("Form1").Controls(0).Name Next DoCmd.OpenForm Forms("Form1").Name, acNormal End Function

Alttakide koşullu silme kısaltılmışı.

For i = LBound(silinmemesiGerekenler) To UBound(silinmemesiGerekenler)
scr.Add silinmemesiGerekenler(i), ""
Next

DoCmd.OpenForm "Form1", acDesign
var:

For x = 0 To Forms("Form1").Controls.Count - 1
If Not scr.exists(Forms("Form1").Controls(x).Name) Then
DeleteControl Forms("Form1").Name, Forms("Form1").Controls(x).Name
GoTo var
End If
Next

1 2 3 4