Public Function tumIliskileriSil()
Dim db As Database ' Current DB
Dim rex As Relations ' Relations of currentDB.
Dim rel As Relation ' Relationship being deleted.
Dim iKt As Integer ' Count of relations deleted.
Dim sMsg As String ' MsgBox string.
Set db = CurrentDb()
Set rex = db.Relations
iKt = rex.Count
Do While rex.Count > 0
rex.Delete rex(0).Name
Loop
End Function
sonra tabloları temizlemek için fonksiyon
Public Function tumTablolariSil()
On Error GoTo Hata_Yakala
Dim vt As DAO.Database
Dim rst As DAO.Recordset
Dim tabloSorgu As String
Set vt = CurrentDb()
tabloSorgu = "SELECT MSysObjects.Name FROM MSysObjects " & "WHERE Left$([Name],1)<>'~' AND Left$([Name],4)<>'MSys' " & "AND MSysObjects.Type =1 ORDER BY MSysObjects.Name"
Set rst = vt.OpenRecordset(tabloSorgu)
If Not rst.EOF Then
rst.MoveFirst
Do Until rst.EOF
rst.MoveNext
tabloAdi = "DROP TABLE " & rst!Name
vt.Execute tabloAdi
Loop
End If
rst.Close
Set rst = Nothing
Hata_Yakala:
MsgBox Err.Description
Exit Function
End Function
bir butonun tıklanma olayında
tumIliskileriSil
tumTablolariSil
