Option Compare Database
Option Explicit

Public Function fChkBeforeRegist(sEmpNm As String, _
                                   sWorkDate As String, _
                                   sInTime As String, _
                                   sOutTime As String) As Boolean

    '社員名が入力されているか確認
    If sEmpNm = "" Then
        MsgBox "社員名を入力してください"
        fChkBeforeRegist = False
        Exit Function
    End If
    
    '年月日が日付が入力されているか確認
    '出勤時間が時間で入力されているか確認
    '退勤時間が時間で入力されているか確認など


    fChkBeforeRegist = True

End Function

Public Sub fRegistWorkTime(sEmpNm As String, _
                           sWorkDate As String, _
                           sInTime As String, _
                           sOutTime As String)

    Dim strSQL As String
    
    Const scSystemNm As String = "勤怠管理システムα"
    
    '勤怠情報を登録
    strSQL = "INSERT INTO 勤怠情報テーブル "
    strSQL = strSQL & "VALUES('" & sEmpNm & "','" & sWorkDate & "',"
    strSQL = strSQL & "'" & sInTime & "','" & sOutTime & "',"
    strSQL = strSQL & "'" & scSystemNm & "')"
    CurrentDb.Execute strSQL, dbFailOnError

End Sub