スポンサードリンク

Access F04明細のVBA

前回までに作成した「F04明細」に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()

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

----------------------------------------------------------------------
↑ここまで



スポンサードリンク






Microsoft Access初心者入門講座 TOPへ