AccessTr.neT - Commandbuttonları Koşullu Silme

Sayfalar: 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 Img-grin

Hepsine Forms("Form1") olarak yazmak zorunda kaldım.With ile kısaltınca olmuyor sağlık olsun Img-grin

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

Sayfalar: 1 2 3 4