msアクセスのMsgBox関数がvbYesnoに-1の値を返すとき

Question

If [Due_date] < (Date - 1826) Then 
j = (MsgBox("This invoice is long overdue, isn't it. Is it correct? 
    Do you want to save it?", vbYesNo, "Due date < 5 yrs from Today")) = 7 

If j = -1 Then DoCmd.GoToControl ("Due_date"): GoTo 9999 

いつj値が-1になりますか？ 私はあらゆる場所を見ようとしましたが、それを見つけることはできませんでした。

Answer 1

あなたは、定数に固執すべきである - と読みやすさのために少しを書き換える：

If [Due_date] < DateAdd("yyyy", -5, Date) Then 
    If MsgBox("This invoice is long overdue, isn't it. Is it correct? Do you want to save it?", vbQuestion + vbYesNo, "Due date < 5 yrs from Today") = vbNo Then 
     DoCmd.GoToControl "Due_date" 
    Else 
     GoTo 9999 
    End If 
End If