Microsoft Access 掲示板

下記でどうですか。

Public Function 月初(申請日 As Variant) As Variant

    If IsNull(申請日) Then Exit Function

    月初 = 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
End Function

"日付=#" & 申請日 & "#" を "日付=#" & 月初 & "#" に変更しただけです。

動作確認はしてませんので、動作確認は十分にしてください。