+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bağlı Tabloları Silmek (/konu-bagli-tablolari-silmek.html)
Sayfalar:
1
2
Bağlı Tabloları Silmek - ates2014 - 21/10/2020
Merhaba arkadaşlar,
bazan arayüzü başka birilerine göndermek zorunda kalıyorum,
veri tabanına bağlanmakta prg zorlanıyor,
ben çareyi, arayüzdeki bağlı tabloların silinesinde görüyorum
önce bağlı tabloların silinmesi sonra bağlanmasını nasıl yapabilirim,
bağlı tabloların hepsini bir çırpıda nasıl silebilirim?
RE: Bağlı Tabloları Silmek - ates2014 - 21/10/2020
Merhabalar,
DoCmd.DeleteObject acTable, "tbl_diger"
bu kod ile tek tek silebiliyorum,
ama ben tümünü silmek istiyorum,
nasıl yapabilirim.?
RE: Bağlı Tabloları Silmek - ozanakkaya - 21/10/2020
SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Type)=4)) OR (((MSysObjects.Type)=6));Üstteki sorgu. Bağlı tabloları listeler. Bu sorgu sonucundaki verileri ado ile döngüye ekleyerek tabloların silinmesini sağlayabilirsiniz.
RE: Bağlı Tabloları Silmek - ates2014 - 22/10/2020
Sayın hocam bir türlü yapamadım lütfen bir bakarmısınız?
Dim i As Object
i = "SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects WHERE (((MSysObjects.Type)=4)) OR (((MSysObjects.Type)=6));"
For i = 1 To i.Count
DoCmd.DeleteObject acTable, i
Next i
RE: Bağlı Tabloları Silmek - feraz - 22/10/2020
Merhaba.
Alttaki gibi deneyin.
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Set db = CurrentDb
For Each tbl In db.TableDefs
If Len(tbl.Connect) > 0 Then
DoCmd.DeleteObject acTable, tbl.name
End If
Next
db.Close
Set db = NothingRE: Bağlı Tabloları Silmek - ates2014 - 22/10/2020
Çok Çok teşekkür ederim feraz hocam...
size 5 rep puanı gönderdim...