今回はVBAの解答を掲載しますので、自分で作ったものとくらべてください。
*初めての方はステップ1からご覧下さい。
↓ここから
----------------------------------------------------------------------
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
商品マスターまで理解できていたら顧客マスターは簡単に作れたと思います。難しいと感じた方は、STEP1から復習してください。