閉じる

すべてのリレーションを削除する。


Private Sub cmdDelRelation_Click()

On Error GoTo Err_cmd_LOGIN

        

    '削除確認

    Dim ret As Integer



    ret = MsgBox("すべてのリレーションを削除します。元にはもどせません。" & Chr(13) & _

                    "よろしいですか？", vbYesNo + vbQuestion, "削除")

    If ret = vbNo Then

        '削除中止

        GoTo Exit_cmd_LOGIN

    End If

       

    '参照設定 MicrosoftDAO3.6ObjectLibrary が必要

    Dim db As DAO.Database

    Dim rel As DAO.Relation

    

    Set db = CurrentDb()

    Do While db.Relations.Count > 0

        For Each rel In db.Relations

            db.Relations.Delete rel.Name

        Next rel

    Loop



    MsgBox "すべてのリレーションを削除しました。"



Exit_cmd_LOGIN:

Exit Sub



Err_cmd_LOGIN:

    MsgBox ("cmdDelRelation:" & Err.Number & " " & Err.Description)

    Resume Exit_cmd_LOGIN



End Sub