Fatal编程技术网
  • ms-access/
  • Ms access 当ms access中的MsgBox函数在vbYesno中返回-1值时 如果[到期日]

Ms access 当ms access中的MsgBox函数在vbYesno中返回-1值时 如果[到期日]

ms-access vba

Ms access 当ms access中的MsgBox函数在vbYesno中返回-1值时 如果[到期日],ms-access,vba,ms-access-2003,Ms Access,Vba,Ms Access 2003,何时j的值为-1。 我试着到处找，却找不到 您应该坚持使用常量，并为可读性重写一点： 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 DoCm

何时j的值为-1。
我试着到处找，却找不到

您应该坚持使用常量，并为可读性重写一点：

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

如果[到期日]
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