AccessTr.neT

Tam Versiyon: Commandbuttonları Koşullu Silme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.


[Resim: do.php?img=9582]


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