В Access столкнулся с проблемой переключения NumLock при использовании SendKeys. Помог WS. При нажатии одной кнопки надо, чтобы "нажалась" другая. Если использовать SendKeys - NumLock переключается, а так:
| Код |
|---|
Private Sub NB2_Click()
Me.NB1.SetFocus: SendSomeKey "~", -1
End Sub
Sub SendSomeKey(Code As String, Optional Wait As Boolean)
Dim ws As Variant
Set ws = CreateObject("WScript.Shell")
ws.SendKeys Code, Wait
Delay 0.5 ' подождать 1/2 секунды любым доступны в VBA способом
End Sub |
Спасибо.
