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