Option Compare Database
Option Explicit

'** 登録ボタンをクリックしたときの処理 **

Private Sub 登録ボタン_Click()

    On Error GoTo ErrPrc
    
    '画面入力値のチェック処理
    If fChkBeforeRegist(Me.社員名テキストボックス.Value, _
                          Me.登録年月日テキストボックス.Value, _
                          Me.出勤時間テキストボックス.Value, _
                          Me.退勤時間テキストボックス.Value) = False Then
        Exit Sub
    End If
    
    'DB登録処理
    Call fRegistWorkTime(Me.社員名テキストボックス.Value, _
                    Me.登録年月日テキストボックス.Value, _
                    Me.出勤時間テキストボックス.Value, _
                    Me.退勤時間テキストボックス.Value)
    
    MsgBox "登録完了しました"

    Exit Sub
ErrPrc:
    MsgBox "エラーが発生しました。"
End Sub