スポンサードリンク



Access F03伝票のVBA

前回までに作成した「F03伝票」に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 新規_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

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


スポンサードリンク






Microsoft Access初心者入門講座 TOPへ