- PR -

（.NETと6.0の挙動違い）プレビュー表示したACCESSレポートについて

1
投稿者投稿内容
tragedy
会議室デビュー日: 2005/02/09
投稿数: 1
投稿日時: 2005-02-09 10:39
以下のようなコードで、VB6.0から.NETへPGを移行しました。
6.0ではACCESSのレポートのプレビュー画面が表示された後、
レポートのデザインボタンを押すとACCESSが終了します。
ですが同様の処理を.NETで行うと、
レポートのデザインボタンを押すとそのままデザイン画面に遷移します。
そもそも何故6.0だとプレビュー画面からデザインボタンを押すと
ACCESSが終了するのか分からないのですが、
もし対応策等、ご存知の方がいれば是非ご教授下さい。

よろしくお願いします。


''================
''【VB6.0】
Public Function fncPrev() As Boolean

　　Dim AP_OBJ As Object

　　''アクセスアプリケションをセットする。
　　Set AP_OBJ = GetObject("C:\\TEST.mdb", "ACCESS.Application")

　　''アクセスレポートのPreviewを行う．
　　AP_OBJ.DoCmd.OpenReport "TEST_RPT", acPreview, ""

　　AP_OBJ.Visible = True
　　Set AP_OBJ = Nothing

　　fncPrev = True

End Function


''================
''【VB.NET】
Public Function fncPrev() As Boolean

　　Dim AP_OBJ As Access.Application

　　''アクセスアプリケションをセットする。
　　AP_OBJ = CType(GetObject("C:\\TEST.mdb", "ACCESS.Application"), Access.Application)

　　''アクセスレポートのPreviewを行う．
　　AP_OBJ.DoCmd.OpenReport("TEST_RPT", Access.AcView.acViewPreview, "")

　　AP_OBJ.Visible = True
　　AP_OBJ = Nothing

　　fncPrev = True

End Function

Jitta
ぬし
会議室デビュー日: 2002/07/05
投稿数: 6267
お住まい・勤務地: 兵庫県・海手
投稿日時: 2005-02-09 22:23
　ざっと読んで思ったこと。

≫これ、どうしたいの？VB6の挙動にあわせるの？VB.NETの挙動を正としながらも、デザインボタンで終了したいの？

　期待する結果をきちんと書きましょう。

　なお、Nothing参照させただけでは終了しません。Excelでの例がゴロゴロしているので、それをまねてCOMを解放してください。

_________________
1

スキルアップ／キャリアアップ（JOB@IT）