cmdTrace_Prc_Click

'---------------------------------------
'処理名：cmdTrace_Prc_Click
'概要：選んだプロシージャから呼び出される処理を階層でたどり、一覧表へ書き出して結果を開く処理
'---------------------------------------
Private Sub cmdTrace_Prc_Click()

    Dim lngPrcId As Long
    Dim strResult As String

    Const MSG_TITLE As String = "呼出し追跡"
    Const MSG_NO_SELECT As String = "プロシージャを選んでください。"
    Const QRY_PRC As String = "q29a03_Prc追跡"
    Const QRY_MOD As String = "q29a04_Mod追跡"

    If IsNull(Me!cboFLC作成_Prc) Then
        MsgBox MSG_NO_SELECT, vbExclamation, MSG_TITLE
        Exit Sub
    End If

    lngPrcId = CLng(Me!cboFLC作成_Prc)

    DoCmd.Hourglass True
    strResult = traceCallsFrom(lngPrcId)
    DoCmd.Hourglass False

    MsgBox strResult, vbInformation, MSG_TITLE

    DoCmd.OpenQuery QRY_MOD
    DoCmd.OpenQuery QRY_PRC

End Sub