分類:[Microsoft Office 全般]
2014/06/05(Thu) 14:19:43 編集(投稿者)
Access VBAで顧客管理プログラムを作っています。
Access は 2003 です。
テーブル TO2顧客マスター(顧客CD、顧客名、TEL)
レポート RO2顧客マスター
フォーム FO2顧客マスター
フォームでの実行想定は、
新規ボタンを押したら新しいレコードが追加され書き込める
削除ボタンを押したら指定のレコードを削除
印刷ボタンを押したら印刷プレビューが表示される
この中で、
新規を押しますと、
「オブジェクト'F02顧客マスター'が開いていません。」
というエラーが出まして
印刷押しますと、
「プロパティシートまたはマクロで指定したレポート名'RO2顧客マスター'が正しくないか、または存在しないレポートを参照しています。」
というエラーで出ます。
エラーの意味がよく分かりません。
お願いします。
Option Compare Database
Option Explicit
Dim Res As Variant
Private Sub Form_Load()
Me.AllowAdditions = False
Me.AllowDeletions = False
DoCmd.SetWarnings False
End Sub
Private Sub 印刷_click()
Res = MsgBox("印刷してよろしいですか?", vbYesNo, "印刷の確認")
If Res = vbYes Then
DoCmd.OpenReport "R02顧客マスター", acViewPreview
Else
End If
End Sub
Private Sub 削除_Click()
If MsgBox("削除します。よろしいですか?", vbOKCancel, "確認") = vbOK Then
Me.AllowDeletions = True
On Error GoTo err_削除_click
DoCmd.RunCommand acCmdDeleteRecord
Me.AllowDeletions = False
Else
End If
Exit Sub
err_削除_click:
MsgBox Err.Description
End Sub
Private Sub 顧客名_AfterUpdate()
Me.AllowAdditions = False
End Sub
Private Sub 新規_Click()
Me.AllowAdditions = True
DoCmd.GoToRecord acDataForm, "F02顧客マスター", acNewRec
Me.顧客名.SetFocus
End Sub
Private Sub TEL_AfterUpdate()
Me.AllowAdditions = False
End Sub