(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

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