2015-02-06 48 views
2

我的一個數據庫表單工作不正常。我花了一段時間才發現NumLock已關閉。當通過按鍵關閉NumLock時,有一些程序可以反轉該過程,但它可能不僅僅是意外按下關閉NumLock的按鍵。在MS Access中,如果窗口的右下角出現「NUM LOCK」,則表示關閉。在vba中有沒有一種方法可以警告,如果沒有出現「NUM LOCK」字樣?當NumLock關閉時需要訪問內部警告

回答

2
GetNumlock = CBool(GetKeyState(vbKeyNumlock) And 1) 

例子:

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

謝謝。我在哪裏做這個程序? – 2015-02-06 17:14:18

+0

這只是給你關鍵的狀態。根據您的具體要求,您必須弄清楚如何處理它。我已經爲我的答案添加了一個示例。 – 2015-02-06 17:16:58