Code behind "Find Record" button turns off NumLock
Posted on 2015-01-10
I have an Address Book database that I built many years ago in Access (part of MS Office 97) running on a Windows XP computer. For the last couple of years, I've been running Office 2003 on a Windows 7 computer. After the changeover I noticed that my NumLock key (which I always keep ON) was frequently being turned off. Eventually I realized that the culprit is a particular button in my Address Book database.
The button, titled "Find Record", runs code that allows me to find a sub-string anywhere within the active field (not just at the beginning of the field). Here is the button's code, which is triggered by the button's "On Click" event:
Private Sub btnFindRec_Click()
On Error GoTo Err_btnFindRec_Click
'DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
'SendKeys "%EF" 'calls EDIT menu, then FIND
SendKeys "%HA" 'goes to MATCH field, then changes it to ANY PART OF FIELD
SendKeys "%N" 'goes to FIND WHAT field
The problem is that the moment I hit that button, "NumLock" is turned off. This did not happen when I was running Access97 on WinXP. Can someone tell me what is causing it under Access2003 & Win7? And how to fix it?