*初めての方はステップ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 新規_Click()
Me.AllowAdditions = True
DoCmd.GoToRecord acDataForm, "F03伝票", acNewRec
Me.日付.SetFocus
End Sub
Private Sub 顧客CD_AfterUpdate()
Me.AllowAdditions = False
End Sub
Private Sub 日付_AfterUpdate()
Me.AllowAdditions = False
End Sub
----------------------------------------------------------------------
↑ここまで