*初めての方はステップ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()
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 商品CD_AfterUpdate()
Me.AllowAdditions = False
DoCmd.RunCommand acCmdSaveRecord
Me.合計.Requery '念のため
End Sub
Private Sub 新規_Click()
Me.AllowAdditions = True
'DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
DoCmd.GoToRecord , , acNewRec
Me.商品CD.SetFocus
End Sub
Private Sub 数量_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
Me.合計.Requery '念のため
End Sub
Private Sub 単価_AfterUpdate()
Me.AllowAdditions = False
End Sub
----------------------------------------------------------------------
↑ここまで