Microsoft Access 掲示板

許可日関数を下記のように変更してください。

Public Function 許可日(申請日 As Variant, Optional 営業日数 As Long = 3) 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 営業日 = 営業日数 - 1
End Function

あと、TMGさんの回答のように、テーブルの市外か市内を判断できるフィールドで、条件分けをすればいいでしょう。

出来上日: 許可日([申請日], IIf(軽かつ市内,2,3))

軽かつ市内の部分の条件式はテーブルのフィールド構成が分からないので、適切なの式を考えてください。