if分で複数条件の記述方法を教えてください。

質問

Accessの検索フォームに締日入力用のコンボボックスと請求日の日付入力ボックスを配置しました。
締日が月末の場合、コンボボックスから31を選択すると請求日日付入力ボックスに前月の月末が出て、それ以外の締日(例として25日)を選択すると、前月の25日が入るようにVBAを作成しました。

尚、コンボボックス(close1)は20や25,27等の締日が選択できます。
下記VBAは先月のみ対応します。
締日が選択できるコンボボックス名は(close1)、日付入力ボックス名は(day1)です。

Private Sub close1_AfterUpdate()
Dim i As Date
i = DateSerial(Year(Date), Month(Date) - 1, [close1])
If (Me!close1) <> 31 Then
Me!day1 = i
Else
Me!day1 = DateSerial(Year(Date), Month(Date), 0)
End If

End Sub

これを今月の締日かどうかのmsgboxを表示して、今月なら今月の請求日付、違う場合は先月の請求日付を日付入力ボックスに入れたいのですが、どうすればよいでしょうか？

おそらく下の様な流れではと思うのですが、条件が少し複雑なため、どうまとめたら良いかわかりません。
Dim rc as Integer
if (Me!close1) <> 0 then ‘締日が０以外ならテキストボックスを表示させたいです'
rc = msgbox (今月の締日ですか？, vbYesNo)
If rc = vbYes then
"今月の請求日をday1に表示"
else
"先月の請求日をday1に表示"

よろしくお願いします。

回答No.2

kkkkkm · ベストアンサー

示されているコードでいいのではないでしょうか。
rc使わなくて直接
If MsgBox("今月の締日ですか？", vbYesNo) = vbYes Then
でもいけます。

お礼

ご回答ありがとうございます。
ご指示通り参考にしながら、下記VBAを作成して思う通りできました。ありがとうございました。
Private Sub close1_AfterUpdate()

Dim i As Date, j As Date, k As Date, l As Date
i = DateSerial(Year(Date), Month(Date) - 1, [close1]) '先月の31日以外の締日から請求日付を取得
j = DateSerial(Year(Date), Month(Date), 0) '先月の31日の締日から請求日付を取得
k = DateSerial(Year(Date), Month(Date), [close1]) '今月の31日以外の締日から請求日付を取得
l = DateSerial(Year(Date), Month(Date) + 1, 0) '今月の31日の締日から請求日付を取得

If MsgBox("今月の締日ですか？", vbYesNo) = vbYes Then

If (Me!close1) <> 31 Then
Me!day1 = k

Else
Me!day1 = l
End If

ElseIf (Me!close1) <> 31 Then
Me!day1 = i

Else
Me!day1 = j
End If
End Sub

回答No.1

unokwave

And/Or/Xorなどと括弧を使って論理条件を組み合わせられます。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/operator-summary
if a = b And (c > d Or c < e ) Then

お礼

ご回答ありがとうございます。無事解決しました。