Merhaba.

Ekte mor rekli butonların silinmemesi gerek.Diğer butonlar tablo1 deki verilere göre oluşuyor.

       For Each con In .Controls

             If Not scr.exists(con.Name) Then DeleteControl frm.Name, con.Name

        Next

Yukarıdaki gibi  yapmam gerek.

Alttaki gibi silmek isteyincede döngüden erken şıkıp tamamını silmiyor hayret.
İnternetten do while formad.count>0 gibi bir kod buldum lakin onuda dictionary ile kullanamadım.

For Each con In .Controls

 DeleteControl frm.Name, con.Name

 Next