[ACC2]AccessBasicで Executeメソッド実行時のエラーを取得する方法

詳細

単に Execute メソッドを使用し、Access Basic 中から 更新クエリーや削除クエリー等のアクション クエリーを実行する場合には、クエリー実行時にエラーが発生しても Access Basic 中では エラー値を取得することができません。 Execute メソッドの引き数 options に、定数「 DB_FAILONERROR 」を設定すると、エラー値を取得できます。

プロシージャの作成

1. データベース ウィンドウで [ファイル] - [新規] - [モジュール] コマンドを選択するか、データベース ウィンドウの <モジュール> ボタンをクリックし、<新規作成>ボタンをクリックします。
2. [編集] - [新規プロシージャ] コマンドを選択するか、ツールバーの <プロシージャ作成> ボタンをクリックします。
3. [プロシージャの新規作成] ダイアログ ボックスの [種類] で"Function"を選択します。[名前] でプロシージャ名 (Test) を入力します。
4. 以下のサンプルプロシージャを入力します。

サンプルプロシージャ

以下の例では、アクション クエリー [クエリー 1] を実行する Execute メソッドで、Execute メソッドの引き数 options に「 DB_FAILONERROR 」を設定しています。
エラーが発生した場合は、On Error ステートメントでエラーをトラップし、エラーメッセージを表示しています。

  -----------------------------------------------------------------------------
  Function Test ()
  Dim DB As Database, QD As QueryDef
  Set DB = DBENGINE(0)(0)
  Set QD = DB.QUERYDEFS("クエリー 1")   ' 実行するアクションクエリー
  On Error GoTo ErrorHandler
  QD.Execute DB_FAILONERROR  ' オプション DB_FAILONERROR を設定します。
  Exit Function
  ErrorHandler:
  MsgBox "エラーメッセージ：" &  Error  ' エラーメッセージを表示します。
  Exit Function
  End Function
  -----------------------------------------------------------------------------