Access - Windows 10 y sendkeys access 2010

   
Vista:

Windows 10 y sendkeys access 2010

Publicado por mj_ (1 intervención) el 30/06/2016 18:22:55
Tengo un problema con Windows 10 y sendkeys con acces 2010

Estoy intentando generar unos informes que funcionaban correctamente en acces 2010 y windows 7. He desactivado UAC, pero sigue sin funcionar.


Estos informes se generaban de manera automática de postcript a pdf y detrás de uno se generaba el siguiente. El nombre de cada archivo lo pasaba a la memoria con una función "CopyToClipboard" y mediante sendkeys se pegaba automáticamente este nombre y con el return se ejecutaba la acción.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Call CopyToClipboard(strNomPs, False)   ' función dónde copio el nombre del archivo a la memoria
' envio la combinación de teclas a la pantalla 'imprimir a archivo' y hago un intro
 
Sendkeys ("^(v)")                                     ' pego el nombre del archivo
 
Sendkeys ("{ENTER}")                           ' Return
 
DoCmd.OpenReport strReport, acViewNormal, , strWhere 'Abre un report, dónde el nombre del archivo se debería  pegar automáticamente pero falla
 
....
 
Public Sub Sendkeys(text$, Optional wait As Boolean = False)
    Dim WshShell As Object
 
     Set WshShell = CreateObject("wscript.shell")
     WshShell.Sendkeys CStr(text), wait
 
     Set WshShell = Nothing
End Sub

Si alguien sabe como resolver esto. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder