| |
初めて投稿させていただきます。
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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
