當MsgBox函數以ms訪問返回-1時，vbYesno中的值爲

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