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...