[ACC2] モジュール実行時のエラー

現象

パラメータクエリーからレコードセットを作成するには、予めパラメータに値を設定しておく必要があります。パラメータの設定は、QueryDefs コレクションから QueryDefオブジェクトを開き、Parameters コレクションに値を設定します。そのあとで、OpenRecordset メソッドでレコードセットを作成します。

■ パラメータ クエリーの作成

サンプルデータベースの NWIND.MDB ファイルの中の、[社員リスト] クエリーをパラメータクエリーに変更します。

1. [社員リスト] クエリーをデザインビューで開きます。
2. QBE グリッドの [社員コード] フィールドの抽出条件に次のように設定します。
3. [選択コード]
4. [クエリー] - [パラメータ] コマンドを選択します。[変数の定義] と [データ型] を設定します。

         変数の定義      データ型
         [選択コード]    長整数型
   

■ プロシージャの作成

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

■ サンプル プロシージャ

以下の例では、 [社員リスト] クエリー から、レコードセットを作成します。
[社員リスト] クエリーの抽出条件に設定しているパラメータ [選択コード] は、[社員] フォーム上の [社員コード] テキストボックスの値を参照します。

  -----------------------------------------------------------------------------
  Function Test ()
      Dim MyDB As Database, MyQuery  As QueryDef, MyRecordset  As Recordset
      Set MyDB = DBEngine(0)(0)
              'QueryDef オブジェクトを編集のために開きます。
      Set MyQuery = MyDB.Querydefs("社員リスト")
              'ここでクエリーのパラメータに値を設定します。
      MyQuery.Parameters("選択コード") = Forms![社員]![社員コード]
              'レコードセットを作成します。
      Set MyRecordset = MyQuery.OpenRecordset()
      MyQuery.Close
  End Function
  -----------------------------------------------------------------------------