アフィリエイト広告を利用しています
<< 手軽にSQLを実行する | TOP | さくらサーバからのお知らせ >>

2020年09月25日

Accessのエラートラップ

Accessのエラートラップ


　Dim strErrMsg as String
　On Error GoTo ErrorTrap
　・
　・

　ExitTrap:
　Exit Sub

　ErrorTrap:
　strErrMsg = Err.Number & ":" & Err.Description
　MsgBox strErrMsg, vbExclamation + vbOKOnly, cnstSystemName
　Resume ExitTrap


注意）サブプロシージャを使用しています。

Err.Number に応じて処理を分岐させることもできる。

あるエラー（エラー番号がxxxx）のときだけ、処理を継続する場合


　Dim strErrMsg as String
　On Error GoTo ErrorTrap
　・
　・

　ExitTrap:
　Exit Sub

　ErrorTrap:
　　If Err.Number = xxx THEN
　　Resume Next
　　End IF
　strErrMsg = Err.Number & ":" & Err.Description
　MsgBox strErrMsg, vbExclamation + vbOKOnly, cnstSystemName
　Resume ExitTrap









【このカテゴリーの最新記事】

posted by db-engineer at 00:00 | Comment(0) | Access、Excel

この記事へのコメント
コメントを書く

お名前:

メールアドレス:


ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。

検索
最新記事
(09/02)ファイル名の後の余分な / (スラッシュ)
(05/29)TCPDF: multicellで行間指定
(05/05)Laravel : 登録フォーム（DateとTextarea）
(04/30)Laravel : migrateでのデータ型指定
(04/29)docker上でphpmyadminを使う。
(04/09)Laravel: migrateで [1045] Access denied for user　
(04/08)Docker : Laravel環境でMysqlに接続
カテゴリーアーカイブ
Access、Excel(53)
Docker(5)
小技(34)
Mysql(63)
Linux(40)
経営(13)
HTML、CSS(34)
日々のこと(102)
Google(12)
PHP(120)
Git(32)
Javascript(16)
PostgreSQL(13)
ブラウザ(19)
ファイルメーカープロ(45)
Mac(33)
システム開発・運用(57)
アフィリエイト(8)
私製 - IT用語辞典(1)
Vue.js(5)
プロフィール
db-engineerさんの画像
db-engineer
プロフィール
タグクラウド