Ex7: VBA - Delete relations using DAO

Delete relations between the tables using DAO in VBA

Option Compare Database
Option Explicit

'Constants for examining how a field is indexed.
Private Const intcIndexNone As Integer = 0
Private Const intcIndexGeneral As Integer = 1
Private Const intcIndexUnique As Integer = 3
Private Const intcIndexPrimary As Integer = 7Function DeleteRelationDAO()

    DBEngine(0)(0).Relations.Delete "tblDaoContractortblDaoBooking"
End Function