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

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

    tumIliskileriSil

    tumTablolariSil