VBEが閉じてしまいます。
Sub Sample()
Dim mdlName As String
mdlName = "test"
Debug.Print AllProcName(mdlName)
End Sub
Function AllProcName(ByVal strModuleName As String) As String
Dim mdl As Module
Dim lngDecCnt As Long '宣言セクションの行数
Dim strName As String 'プロシージャ名比較用
Dim strProcName As String '全プロシージャ名
Dim lngR As Long 'プロシージャの種類
Dim i As Long
DoCmd.OpenModule strModuleName
Application.VBE.MainWindow.Visible = False
Set mdl = Modules(strModuleName)
'宣言セクションの行数格納
lngDecCnt = mdl.CountOfDeclarationLines
'最初のプロシージャ名格納
strName = mdl.ProcOfLine(lngDecCnt + 1, lngR)
strProcName = strName & vbNewLine
'宣言セクションの次行から最終行までループ
For i = lngDecCnt + 1 To mdl.CountOfLines
'新規プロシージャ名取得
If strName <> mdl.ProcOfLine(i, lngR) Then
strName = mdl.ProcOfLine(i, lngR)
'プロシージャ名追加
strProcName = strProcName & strName & vbCrLf
End If
Next i
Set mdl = Nothing
AllProcName = strProcName
End Function
と言うコードをVBE画面でF5で実行すると、VBEが閉じてしまいます。
しかしF8でゆっくりやっていくとVBE画面は閉じません。
なぜ一気にやると閉じてしまうのでしょうか？
Application.VBE.MainWindow.Visible = False
をコメントアウトすると
VBE画面は閉じませんが該当のモジュールが実行後にアクティブになります。
環境はwin8.1、アクセス２０１０です。
お礼
ありがとうございます。教えていただいた通りに、Shiftキーを押しながらMDBを開くと編集画面になりました。本当に本当に有難うございます！いろんなHPを見たり本を見ても分からず、聞ける人も回りに居なかったので本当に助かりました！ それに、説明不足でつたない質問に的確なご返答頂だけるとは思ってなかったのでとても嬉しいです。
補足
ご回答ありがとうございます。この質問を書いた後、書き方が悪かった事に気付き、もう一度質問を書き直してしまいました。 そちらで書いたのですが、サンプルの内容はAccessの画面を表示せずに自分が作ったフォームを表示させるサンプルでした。 表示されているフォームでは「フォームデザイン」だけ選択可能で、選択すると「実行時エラー'2046' コマンドまたはアクション'終了'は無効です」と表示されます。窓の下には「終了」「デバッグ」のボタンが使用可能で「デバッグ」を選択してもVBの編集画面のみの表示しかしていませんでした。