スポンサードリンク

課題・顧客マスターVBAの解答です。

前回はSTEP1から作ってきた「商品マスター」を参考に新たに「顧客マスター」を作るというものでしたが、顧客マスターのVBAは上手く書けたでしょうか?

今回は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から復習してください。


スポンサードリンク






Microsoft Access初心者入門講座 TOPへ