Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1258 / 2272 ツリー ←次へ | 前へ→

【7987】MDEファイルではエラーが出てしまいます ゆう 06/6/14(水) 17:40 質問[未読]
【7988】Re:MDEファイルではエラーが出てしまいます 小僧 06/6/15(木) 9:30 回答[未読]
【7990】エラーコメントです ゆう 06/6/15(木) 18:49 発言[未読]
【7991】小僧さん ありがとう&すいませんです ゆう 06/6/15(木) 19:00 お礼[未読]

【7987】MDEファイルではエラーが出てしまいます
質問  ゆう  - 06/6/14(水) 17:40 -

引用なし
パスワード
   アクセスで作ったデータでMDEファイルを作成し、基本的にはそちらで運用するようにしています。
元のデータでは正常に動く所が、MDEファイルの方ではエラーが出る箇所があります。(印刷ダイアログにて)
MDEファイルの方でも正常に動かすことは可能でしょうか・・・よろしくお願いします
[コードは下記のように書いています、バージョンは2000です]
Private Sub 印刷_Click()
  Dim ret As Integer
  ret = MsgBox("印刷しますか", vbYesNo + vbQuestion)
  If ret = vbYes Then
    'エラー処理の宣言
On Error GoTo Err_印刷_Click

  'データベースウィンドウで[R車両未入庫]レポートを選択
  DoCmd.SelectObject acReport, "R車両未所有", True
  
  '[印刷]コマンドを実行
  DoCmd.RunCommand acCmdPrint
  End If
'正常終了処理
Exit_印刷_Click:
  Exit Sub
  
'エラー処理
Err_印刷_Click:
  Select Case Err.Number
   '[キャンセル]ボタンを選択したとき
   Case 2501
    '何も処理を行わない
    
   'その他のエラー
   Case Else
    Beep
    MsgBox Err.Number & vbCrLf & Err.Description
  End Select
End Sub

以上、よろしくお願いします。

【7988】Re:MDEファイルではエラーが出てしまいます
回答  小僧  - 06/6/15(木) 9:30 -

引用なし
パスワード
   ▼ゆう さん:
おはようございます。

>MDEファイルの方ではエラーが出る箇所があります。(印刷ダイアログにて)
>[コードは下記のように書いています、バージョンは2000です]

On Error をコメント化して、
どの行でどのようなエラーが発生するかを明記しないと
的確な回答が付きにくいですよ^^


MS技術情報より
http://support.microsoft.com/default.aspx?scid=kb;ja;263120&Product=accJPN

【7990】エラーコメントです
発言  ゆう  - 06/6/15(木) 18:49 -

引用なし
パスワード
   説明不足ですいません・・・
エラーコメントは下記です

「2046 コマンドまたはアクション'印刷'は無効です」
発生のタイミングは、印刷ボタンをクリックすると
ダイアログにて【印刷しますか? はい・いいえ】が出ます
【はい】を選択すると、上記のようなエラーメッセージが出ます。

 元のデータ(MDEファイルの元)では、正常に印刷まで進むことが出来ます。
以上、よろしくお願いします

【7991】小僧さん ありがとう&すいませんです
お礼  ゆう  - 06/6/15(木) 19:00 -

引用なし
パスワード
   >MS技術情報より
>http://support.microsoft.com/default.aspx?scid=kb;ja;263120&Product=accJPN

 ↑こちらを見るのが返信より後になってしまって・・・・すいません
どうも、2000のバージョンの問題ゆえ、現状での修正は難しそうですね。
出来れば、プリンターが何台かあるので選択できるようダイアログを表示したかったのですが(;-;)
参考になりました。どうもありがとうございました。

1258 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078227
(SS)C-BOARD v3.8 is Free