Nesne Silme

[sistem93]

Merhabalar;


Örneğin DoCmd.DeleteObject acTable, "Tablo1" koduyla tek bir nesneyi silebilyoruz. Veri tabanındaki bütün tabloları veya diğer nesnelerin hehpsini bir silmek için yukardaki koda nasıl bir eklente yapmalıyız?

İyi Çalışmalar !!

 

[Taruz]

Merhaba..

Bu prosedür tüm tabloları siler..:

Dim objtable As TableDef
For Each objtable In CurrentDb.TableDefs
    If Not Left(objtable.Name, 4) = "MSys" Then
        CurrentDb.TableDefs.Delete (objtable.Name)
    End If
Next

Bu da formları..:

Dim db As Database
Dim objform As Object
Set db = CurrentDb
For Each objform In db.Containers("Forms").Documents
    DoCmd.DeleteObject acForm, objform.Name
Next

 

[sistem93]

Sayın Taruz Hocam!
Çok teşekkür ederim.Sizde olmasanız ne yapardık bilmiyorum.Sağolun varolun.

 

[sistem93]

Merhaba Sayın Taruz!

Her iki kod da çalışmadı. Acaba Access versiyon farkından olabilir mi ?. Ben 2003 kullanıyorum.

 

[sistem93]

Nesne tanımlama satırlarında ki "Tabledef" ve "Database" bölümünde hata veriyor.

 

[modalı]

Sayın sistem93,

Referansları kontrol edin. DAO referansının olup olmadığına bakın.

İyi çalışmalar

 

[sistem93]

Teşhis doğru Sayın Taruz.
DAO referansını tanımlayınca kod kısmen çalıştı. "CurrentDb.TableDefs.Delete (objtable.Name)" satırında hata oluşuyor . Yaptığım kontrol sonucu;Yaklaşık 30 adet tabloya sahip bir uygulamada denedim. 25 kadarını siliyor 5 tanesi kalıyor. Silinmeyen Tabloları inceledim; tabloları alfabetik sıralamaya göre siliyor. Sondan 4 ve 5 inci tablolar ilişkili olduğundan ve diğer kalan üç taloda sıralamada bu iki tablodan sonra geldiği için silinmemiş.
Tekrar teşekkür ederim.
İyi Çalışmalar!

 

[modalı]

Teşhis doğru Sayın Taruz.
DAO referansını tanımlayınca kod kısmen çalıştı. "CurrentDb.TableDefs.Delete (objtable.Name)" satırında hata oluşuyor . Yaptığım kontrol sonucu;Yaklaşık 30 adet tabloya sahip bir uygulamada denedim. 25 kadarını siliyor 5 tanesi kalıyor. Silinmeyen Tabloları inceledim; tabloları alfabetik sıralamaya göre siliyor. Sondan 4 ve 5 inci tablolar ilişkili olduğundan ve diğer kalan üç taloda sıralamada bu iki tablodan sonra geldiği için silinmemiş.
Tekrar teşekkür ederim.
İyi Çalışmalar!

Sayın sistem93,

O zaman da önce ilişkileri silmeniz gerekir.

 

[sistem93]

Sayın Taruz!

Vakit ayırdığınız için çok teşekkürler.

İyi çalışmalar !

 

[Taruz]

Sayın Taruz!

Vakit ayırdığınız için çok teşekkürler.

İyi çalışmalar !

Merhaba..

Sorununuzun son kısımlarında ben değil sayın modalı yardımcı olmuştur..