Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6588 / 9994

←次へ　｜　前へ→


	【6609】OnErrorについて

新米 - 05/10/26(水) 12:19 -


	引用なし

	パスワード

初めて投稿させていただきます。
Access初心者です。

以下の処理を実行時に意図的にｴﾗｰとなるようにしたの
ですが、実行時ｴﾗｰ(OnError)にとびません。
なぜでしょうか・・・？

　　On Error GoTo ErrHandler

　　'保存ﾀﾞｲｱﾛｸﾞ出力後ｸｴﾘ実行→ｴｸｾﾙ表示
　　DoCmd.OutputTo acQuery, strBuff, acFormatXLS, , True
　　
Error_Exit:
　　'DAO開放
　　mdb.Close: Set rst = Nothing: Set mqe = Nothing: Set mdb = Nothing
　　Exit Sub
ErrHandler:
　　Select Case Err.Number
　　　　Case 2302
　　　　　　MsgBox "同名の Excelファイルが開いています。" & _
　　　　　　　　　　"閉じてから再度実行してください｡ ", vbOKOnly
　　　　Case 2501　 ' キャンセル
　　　　　　MsgBox "処理を中止します。", vbOKOnly
　　　　Case Else
　　　　　　MsgBox Err.Description
　　　　　　Exit Sub
　　End Select
　　Resume Error_Exit
End Sub

322 hits

▼

【6609】OnErrorについて 新米 05/10/26(水) 12:19

≪