AccessTr.neT

Tam Versiyon: Nesne Silme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhabalar;


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

İyi Çalışmalar !!
ADO veya DAO ile tüm nesneleri döngü ile kontrol ederken sil komutu verirsiniz.
İlginize Teşekkür ederim
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
döngüsüyle komut gerçekleşti.+rep
Açıkçası neden ihtiyaç duyduğunuzu merak etmiyor değilim Img-grin