SendKeys Function

[drewcp]

I tried writing a code that will send a series of keystrokes to an external application

i have been trying for a long time to do this and finally was able to get it to this point by using this article i found on MSDN

http://msdn.microsoft.com/en-us/library/fx2k26ca(VS.80).aspx

here is the code i wrote

Private Sub Command11_Click()
On Error GoTo Err_Command0_Click

    DoCmd.OpenForm "Sketch"
    
    My.Computer.Keyboard.SendKeys(^c ,wait)

    DoCmd.Close acForm, "Sketch"
    
    Dim stAppName As String
    
    stAppName = "W:\Sketch.exe"
    Call Shell(stAppName, 1)

    My.Computer.Keyboard.SendKeys(% ,wait)
    My.Computer.Keyboard.SendKeys({RIGHT})
    My.Computer.Keyboard.SendKeys({RETURN} ,wait)

    stAppName = "H:\set_click.exe"
    Call Shell (stAppName,1)

    My.Computer.Keyboard.SendKeys(^+{END})
    My.Computer.Keyboard.SendKeys(^v)
    My.Computer.Keyboard.SendKeys({TAB 6})
    My.Computer.Keyboard.SendKeys({RETURN} ,wait)
    My.Computer.Keyboard.SendKeys({RETURN} ,wait)

Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.DESCRIPTION
    Resume Exit_Command0_Click
End Sub

obviously i didn't do something right because when it is in my code area, each My.Computer.Keyboard.SendKeys() command is in red and it won't run

does anyone know what i can do to fix this?

 

[PHV]

In VBA, SendKeys is a native instruction, so get rid of all the My.Computer.Keyboard. stuff and press the F1 key when the cursor is inside the SendKeys word in your code.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886