Commandbuttonları Koşullu Silme

Commandbuttonları Koşullu Silme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Commandbuttonları Koşullu Silme (/konu-commandbuttonlari-kosullu-silme.html)

Sayfalar: 1 2 3 4

Cvp: Commandbuttonları Koşullu Silme - feraz - 15/02/2020

(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

Cvp: Commandbuttonları Koşullu Silme - feraz - 15/02/2020

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