堀川です、今晩は


-----Original Message-----
From: KojiFujita [mailto:who@example.co.jp] 
Sent: Monday, March 01, 2004 6:53 PM
To: who@example.ne.jp
Subject: [ml-msde-beg:01086] Re: ACCESS ADP 一時テーブルを基にしたレポートで「オブジェクトが無効です。」のエラー


>しかし　今回　お聞きしたかったのは　この先です。
>ACCESSのテクニックになってしまうのですが、
>表現したいレポートが　たとえば堀川さんの例題であるならば
>「運送コード」で　ブレイクさせる様な（運送会社のTEL番が　複数あるようなケー
>スを想定して）グループヘッダーを設定したものでは
>どうもうまく表示してくれません。
>私だけでしょうか？


上記部分に関して、受注明細（NorthWindCSが作成したもの）テーブルを使って
次のように試してみました
使用しているAccessは2002です。

      ［レポート］−［新規作成］
で、「レポートウィザード」を選択。テーブルは「受注明細」。
レポートに含めるフィールドは、すべてのフィールドを選択。
グループレベルは、「商品コード」を選択。
並べ替え順序は、適当に設定

以上で、レポートが表示されることを確認します。



次にフォーム上にボタンを置いて、次のVBAを作成します。
Private Sub コマンド0_Click()
  Dim cn
  Set cn = CurrentProject.Connection
  cn.Execute "CREATE TABLE #TMP_受注明細( " & _
           "  受注コード int , 商品コード int ,単価 money , 数量 smallint , 割引 real  " & _
           "  CONSTRAINT PK_KEY  PRIMARY KEY (受注コード,商品コード) )"
  cn.Execute "insert into #tmp_受注明細 select * from 受注明細"

End Sub


次に先ほど作成したレポートのOPENイベントを変更
Private Sub Report_Open(Cancel As Integer)
Dim cn, rs
  Set cn = CurrentProject.Connection
  Set rs = cn.Execute("select 受注コード,商品コード,単価,数量,割引 from #TMP_受注明細")
  Set Me.Recordset = rs
End Sub


以上の準備を行って、フォームのボタンを押して一時テーブルを作成した後で
レポートを表示しようとすると
          指定した式で参照されている'商品コード'フィールドが見つかりません
というエラーが表示され、レポートが表示されません。

今までの話だと、ここで一時テーブルに連結したレポートが表示されますが、
この事例では表示できません。
ただプロファイラで観察しても、サーバー側にはエラー等は一切認められず、
うまく表示された例とイベントの記録は同じです。


面白いことに、一時テーブルではなく通常のテーブルにしても事情は同じです。
エラーが発生しました。
Private Sub Report_Open(Cancel As Integer)
Dim cn, rs
  Set cn = CurrentProject.Connection
  Set rs = cn.Execute("select 受注コード,商品コード,単価,数量,割引 from 受注明細")
  Set Me.Recordset = rs
End Sub
のように、受注明細テーブルに変更しても、同じエラーが出ました。


これはAccessの障害なのか、仕様なのか判断できませんが、複雑なレポートを
作成するようなときは、Recordsetを代入する方法はやめた方が賢そうですね

Access2003では試していないですが、2003でも再現するようなら、仕様なのかも
しれません

------------------------------------
（株）日本技術ソフト開発
  　    　堀川　明  (Akira Horikawa)
    ０３月０２日（火曜日）　０１時１２分記
        mailto:who@example.ne.jp
        http://www.horikawa.ne.jp/msde/