| |
アクセスで作ったデータで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
以上、よろしくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
