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?

Merhabalar,
DoCmd.DeleteObject acTable, "tbl_diger"
bu kod ile tek tek silebiliyorum,
ama ben tümünü silmek istiyorum,
nasıl yapabilirim.?

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.

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

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

Çok Çok teşekkür ederim feraz hocam...
size 5 rep puanı gönderdim...