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