Private Sub コマンド29_Click()

'アクションクエリ時の警告メッセージを非表示
Application.SetOption "confirm action queries", False

Dim msg As Integer
msg = MsgBox("表示されている案件をデータベース上から完全に削除します。よろしいですか？", vbYesNo, "削除確認")
If msg = vbYes Then
GoTo line1

Else: GoTo line2

line1:

DoCmd.OpenQuery "DB削除クエリ6"
msg = MsgBox("表示されている案件を削除しました。", vbOKOnly, "削除確認")

DoCmd.Close acForm, "detail_completion_status", acSaveNo
DoCmd.OpenForm "completion_status"

line2:

End If

End Sub

-------------------------------------------
アクションクエリ時の警告メッセージを非表示にする