access使用键盘的加减号“+”或“ - ”上下滚动日期

在应用程序中，如果默认日期与所需选择的日期相近。我们就可以让用户按“+”或者“-”来增加或者减少日期的录入。

这样就不需重新选择日期并输入新值。

如下面的代码，通过KeyPress事件获取键盘输入的KeyAscii值

Private Sub Text0_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 43            ' Plus key
        KeyAscii = 0
        Screen.ActiveControl = Screen.ActiveControl + 1
    Case 45            ' Minus key
        KeyAscii = 0
        Screen.ActiveControl = Screen.ActiveControl - 1
    End Select
End Sub

按两下“+”自动增加日期