Microsoft Access 掲示板

hatena様大変有り難うございました。
考え方としては次の通りでよろしいんでしょうか？

Public Function 月初(申請日 As Variant) As Variant
    If IsNull(申請日) Then Exit Function
'申請日がNULLなら関数は終わり
    月初 = DateSerial(Year([申請日]), Month([申請日]) + 1, 1)
'月初めが出る
    Do
        Select Case Weekday(月初)
        Case vbMonday To vbFriday
            If IsNull(DLookup("祝日名", "T_祝日", "日付=#" & 許可日 & "#")) Then
                Exit Do
            End If
        End Select
        月初 = 月初 + 1
    Loop
'　　月初めが月曜から金曜の間で祝祭日がNULLならD0文が修了。土日はNULLじゃないから終了しない
　　終了するまで月初に1日プラスする。
End Function