Microsoft Access 掲示板

Microsoft Access 掲示板

申請出来るものと不備のもの一緒に印刷したい / 18

19 コメント
views
4 フォロー
18
hatena 2019/04/12 (金) 13:16:54 修正

Function 許可日 が原因の可能性があります。
下記ように変更してください。

Public Function 許可日(申請日 As Variant) As Variant
    Dim 営業日 As Long
    許可日 = 申請日
    If IsNull(許可日) Then Exit Function 
    Do
        許可日 = 許可日 + 1
        Select Case Weekday(許可日)
        Case vbMonday To vbFriday
            If IsNull(DLookup("祝日名", "T_祝日", "日付=#" & 許可日 & "#")) Then
                営業日 = 営業日 + 1
            End If
        End Select
    Loop Until 営業日 = 2
End Function
通報 ...