Skip to main content

AccessTr.neT


Bağlı Tabloları Silmek

Bağlı Tabloları Silmek

Çözüldü #1
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?
.rar Vrt_bak.rar (Dosya Boyutu: 40,57 KB | İndirme Sayısı: 3)
Cevapla
#2
Merhabalar,
DoCmd.DeleteObject acTable, "tbl_diger"
bu kod ile tek tek silebiliyorum,
ama ben tümünü silmek istiyorum,
nasıl yapabilirim.?
Cevapla
#3
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.
Cevapla
#4
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
Cevapla
#5
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 = Nothing
Cevapla
#6
Çok Çok teşekkür ederim feraz hocam...
size 5 rep puanı gönderdim...
Son Düzenleme: 22/10/2020, 15:35, Düzenleyen: ates2014. (Sebep: rep)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task