Usuario
Añadir resultado consulta al ejecutar una aplicacion

Pregunta
-
Hola
BD en Acces 2007
Necesito añadir al llamar a una aplicación el resultado de una consulta.
En este caso es un numero de teléfono.
Tengo una bd con una serie de fichas en las que aparece un numero de teléfono.
Necesito crear un botón que me llame a una aplicación ( cmd ) con la que llamare a otra aplicación para llamar por teléfono (Pimphony)
Al llamar la aplicación mediante el cmd le tengo que indicar el numero de teléfono y algún que otro parámetro pero el único que es variable es el numero de teléfono.
De momento consigo llamar la aplicación cmd pero no soy capaz de aplicarle ningún parámetro.
Tampoco se como realizar la consulta para que al llamar al cmd añada el numero de telefono al que quiero llamar.
Con lo que necesito que el botón añada el numero de teléfono que se este mostrando en ese momento.
Necesito añadir el numero de teléfono detrás de cmd.exe entiendo que es mediante una consulta.(Adjunto el código del botón)
Pero no se como hacerlo.
Tengo el botón creado con este código
Private Sub Comando5_Click()
Dim MiApp As Integer
MiApp = Shell("C:\WINDOWS\system32\cmd.exe")
If MiaApp = 0 Then
MsgBox "Saliendo..."
End If
End SubGracias por adelantado
Todas las respuestas
-
-
Hola
Gracias por la respuesta
La aplicación si que permite parámetros (Alcatel Pimphony)
Lo que no se es como realizar la consulta sobre el campo de la tabla y que el resultado (num teléfono) aparezca en la linea donde llamo a la aplicación
Gracias de nuevo
-
Hola de nuevo
Puedes construir la llamada al ejecutable con el correspondiente parámetro (consulta la documentación del producto para ver como hacerlo) en un variable de cadena, y la puedes usar como parámetro en el método shell. Mira en la ayuda para más información.
Salu2,
José Mª Fueyo [MS MVP Access]
-
Hola
Gracias
El problema lo tengo en el código, no se como definir la variable para la consulta
y luego llamar la variable como parámetro en el método shell
Tengo un formulario llamado form en el que hay un cuadro de texto con origen del control "Num_telf"
En el que "Num_Telf" es un campo de la tabla llamada contactsQuier añadir en el codigo del boton
Private Sub Comando5_Click()
Dim dial As String (Nueva variable)
dial = (no se como definirle aqui que el valor de dial corresponde con el origen del control "Num_telf" del formulario form
Dim MiApp As Integer
MiApp = Shell("C:\Program Files (x86)\Alcatel_PIMphony\aocphone.exe") (y despues del exe pasarle como parametro la variable dial)
If MiaApp = 0 Then
MsgBox "Saliendo..."
End If
End SubNo se si me he explicado correctamente
Gracias