Error en la instrucción AppActivate
Publicado por j.j. (5 intervenciones) el 27/09/2016 15:25:49
en un formulario de access al pulsar un botón tiene que ejecutarse este código, que automáticamente debe abrir la calculadora y sumar los 100 primeros números naturales:
Pero el programa da error al ejecutarse en la instrucción AppActivate y dice lo siguiente: "Error 5: Argumento o llamada a procedimiento no válida". ¿Dónde está el fallo?
1
2
3
4
5
6
7
Dim ReturnValue, IReturnValue = Shell("CALC.EXE", 1) ' Run Calculator.
AppActivate ReturnValue ' Activate the Calculator.
For I = 1 To 100 ' Set up counting loop.
SendKeys I & "{+}", True ' Send keystrokes to Calculator
Next I ' to add each value of I.
SendKeys "=", True ' Get grand total.
Pero el programa da error al ejecutarse en la instrucción AppActivate y dice lo siguiente: "Error 5: Argumento o llamada a procedimiento no válida". ¿Dónde está el fallo?
Valora esta pregunta
0