Question

我的某个数据库表单无法正常运行。在我意识到NumLock关闭之前我花了一段时间。当按下按键关闭NumLock时，有一些程序可以反转过程，但可能不会只是意外按下关闭NumLock的按键。在MS Access中，在窗口的右下角，您可以获得＆＃34; NUM LOCK＆＃34;如果它开启，如果它关闭，则什么也没有。有没有办法，比如在vba中，警告是否有＆＃34; NUM LOCK＆＃34;不出现？

Answer 1

GetNumlock = CBool(GetKeyState(vbKeyNumlock) And 1)

示例：

If (CBool(GetKeyState(vbKeyNumlock) And 1) = True
    MsgBox "NumLock is on." 
End If

NumLock关闭时需要在Access中发出警告

1 个答案: