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

2019-09-20 17:29:00
tmtony8
原创
185

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

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

如下面的代码,通过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




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

    分享