Access VBA SendKeys disabling Numlock

[jennifers]

This code is disabling my Numlock. Is there something I can add to enable it again?

Public Sub Go_To_WAP_Module(WAP_Module As String, Optional ObjectType As String, Optional ObjectName As String)
On Error GoTo Err_Handler


    Dim appAccess As New Access.Application
    Dim strFormName As String, frm As Form, ctl As ComboBox
    
    Set appAccess = Nothing
    Set appAccess = OpenAccessApp(WAP_Module, True)
    'appAccess.DoCmd.Maximize
    SendKeys "% x", True
    
    Select Case ObjectType
        Case "Form"
            appAccess.DoCmd.OpenForm ObjectName
        Case "Report"
            strFormName = "Report Options"
'            appAccess.DoCmd.OpenForm ObjectName
            Set frm = appAccess.Forms(strFormName)
            Set ctl = frm!cboReport
            ctl = ObjectName
            frm.cboReport_AfterUpdate
            
'            appAccess.DoCmd.OpenReport ObjectName, acViewPreview
    End Select
    
Exit_Handler:
    Exit Sub


Err_Handler:
    MsgBox Err.Description
    Resume Exit_Handler
    Resume Next
End Sub

[pbaldy]

That's a known bug:

http://theaccessweb.com/api/api0046.htm

I've read you can add this to the end:

Sendkeys "{NUMLOCK}", True

Most of us don't use SendKeys, so there may be a different way of doing what you're doing.

[jennifers]

Thank you! That works for my purpose. I am working with making an old database work during efforts to create a fully upgraded version.

[pbaldy]

Happy to help!