Option Explicit
'給与/賞与モジュール

'給与支払い額の入力
Public Sub PaySalary()

    If gstrName = "" Then GoTo ErrorProc
    '給与支払いフォーム
    frmKyuyo.Show
    
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"

End Sub

'賞与支払い額の入力
Public Sub PayBonus()

    If gstrName = "" Then GoTo ErrorProc
    '賞与支払いフォーム
    frmSyouyo.Show
    
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"

End Sub