Calculadora
Existe la forma de insertar un botón en un formulario de access y que al pulsarlo me abra la calculadora que viene en el sistema
1 Respuesta
Respuesta
1
Si el código que le tienes que agregar al botón del formulario en el evento: "Al hacer clic" es el siguiente:
Private Sub Calculadora_Click()
On Error GoTo Err_Calculadora_Click
Dim stAppName As String
stAppName = "Calc"
Call Shell(stAppName, 1)
Exit_Calculadora_Click:
Exit Sub
Err_Calculadora_Click:
MsgBox Err.Description
Resume Exit_Calculadora_Click
End Sub
Private Sub Calculadora_Click()
On Error GoTo Err_Calculadora_Click
Dim stAppName As String
stAppName = "Calc"
Call Shell(stAppName, 1)
Exit_Calculadora_Click:
Exit Sub
Err_Calculadora_Click:
MsgBox Err.Description
Resume Exit_Calculadora_Click
End Sub