AccessTr.neT

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.

Açıkçası neden ihtiyaç duyduğunuzu merak etmiyor değilim