请教删除有关系的表的代码

将以下代码放在你的窗体中：

Private Sub Command8_Click()
    TestDelRela '删除所有的关系
    DoCmd.DeleteObject acTable, "表2"
    DoCmd.DeleteObject acTable, "表3"

End Sub

Sub TestDelRela()
    Dim i As Long
    Dim x As Long
    Dim strRela As String    '关系的名称
    Dim db As DAO.Database
    Set db = CurrentDb
    i = db.Relations.Count
    For x = 1 To i
        strRela = db.Relations(i - 1).Name '关系的名称
        db.Relations.Delete strRela    '删除这个关系
    Next x
End Sub