Sendkeys problem

[heyarn]

Hi All,

I'm trying to use sendkeys to paste records from the database into a another application. I am able to make Sendkeys work as a macro in access, but the problem is that the keystrokes have to be a variable equal to the record's patient number..

I tried to use sendkeys in vb but it seems vb doesnt recognize the command..

Function Macro2()

SendKeys "patient 2215", False

End Function

When I try to run it, an error message comes up "Compile Error: Expected variable or procedure, not project"

Please let me know how to fix this.

Thanks and Regards!

[puppydogbuddy]

Hi All,

I'm trying to use sendkeys to paste records from the database into a another application. I am able to make Sendkeys work as a macro in access, but the problem is that the keystrokes have to be a variable equal to the record's patient number..

I tried to use sendkeys in vb but it seems vb doesnt recognize the command..

Function Macro2()

SendKeys "patient 2215", False

End Function

When I try to run it, an error message comes up "Compile Error: Expected variable or procedure, not project"

Please let me know how to fix this.

Thanks and Regards!

Try it this way:
SendKeys "patient 2215 {Enter}", False

If the above does not work and your prior macros put you in the application window, try using sendkeys to tab to the patient number field and then send the patient number

Function Macro2()
SendKeys "{Tab} {Tab} {Tab}" 'this is just an example
SendKeys "2215 {Enter}", False

End Function

[ADezii]

Hi All,

I'm trying to use sendkeys to paste records from the database into a another application. I am able to make Sendkeys work as a macro in access, but the problem is that the keystrokes have to be a variable equal to the record's patient number..

I tried to use sendkeys in vb but it seems vb doesnt recognize the command..

Function Macro2()

SendKeys "patient 2215", False

End Function

When I try to run it, an error message comes up "Compile Error: Expected variable or procedure, not project"

Please let me know how to fix this.

Thanks and Regards!

SendKeys can only send Keystrokes to the Active Window. If you are sending Keystrokes to an External Application, you'll have to make sure it is active, as in:

Dim ReturnValue
ReturnValue = Shell("<External App>", 1)    
AppActivate ReturnValue     ' Activate the External Application
 
'Now, try SendKeys