Access y VBA
Blog de Access y VBA del Buho


Inicio


Acerca de
Suscríbete al blog

Categorías
General [3] Sindicar categoría
Access con Codigo VBA [15] Sindicar categoría

Archivos
Septiembre 2005 [11]
Agosto 2005 [5]
Junio 2005 [2]

Sindicación (RSS)
Artículos
Comentarios

 


Tip Autodial de Access

Cuando nosotros colocamos en Access el codigo:
Application.Run "utility.wlib_AutoDial", "983222222"

realmente lo que estás cargando es un formulario del complemento de Access llamado Utility.mda
Este fichero le podrás buscar en tu disco duro, pues es uno de los varios MDA que acompañan al producto de Access.

En realidad, la llamada anterior, se hace a través de una funcion
(«wlib_autodial») que está dentro de ese completo, en el modulo de clase «utils».
Esa función abre el formulario «acr_frmautodial» que es en realidad el
formulario que se te muestra en pantalla cuando pones:
Application.Run "utility.wlib_AutoDial", "983222222"

¿Y que hace este formulario?
Pues nada mas que llamar a la API y marcar el numero de telefono que
escribas en la caja de texto, y que dicho formulario recibe como parametro desde Application.Run "utility.wlib_AutoDial", "983222222"
(En este caso 983222222)
En resumen...y yendo a las tripas de todo esto, ese complmento, en esa parte, lo unico que hace es llamar a la api de esta forma:

Declare Function TAPI_Make_Call Lib "tapi32.dll" _Alias  "tapiRequestMakeCall" _

(ByVal stNumber As String, _

ByVal  stDummy1 As String, _

ByVal  stDummy2 As String, _

ByVal  stDummy3 As String) As Long


y ejecuta esta funcion, así de simple.

Por lo tanto, podemos pasar de poner ese código  Application.Run "utility.wlib_AutoDial", "983222222" y construirnos un marcador telefónico al margen del complemento de access y del formulario mencionado. La función, todo junto ya, puesto en un módulo, podría quedar:

Option Explicit

Declare Function TAPI_Make_Call Lib "tapi32.dll" _

Alias  "tapiRequestMakeCall" _

(ByVal stNumber As String, _

ByVal  stDummy1 As String, _

ByVal  stDummy2 As String, _

ByVal  stDummy3 As String) As Long

Function MarcaTelefono(Numero As String) 
  Dim VarRet As Long 
  If IsNumeric(Numero) = True Then 
    VarRet = TAPI_Make_Call(Numero, "", "", "") 
  End If
End Function

Y obtendrías el mismo resultado, pero sin el formulario de DAR conformidad para marcar el numero de TF.

Desde cualquier formulario, que tenga un campo de texto con un número de teléfono, bastaría que asociaras a un boton de comando este codigo:

MarcaTelefono Me.TxtTelefono

donde TxtTelefono es una caja / campo de texto con el numero de telefono a marcar

Saludos del Búho

Function MarcaTelefono(Numero As String) 
  Dim VarRet As Long 
  If IsNumeric(Numero) = True Then 
    VarRet = TAPI_Make_Call(Numero, "", "", "") 
  End If
End Function

Y obtendrías el mismo resultado, pero sin el formulario de DAR conformidad para marcar el numero de TF.

Desde cualquier formulario, que tenga un campo de texto con un número de teléfono, bastaría que asociaras a un boton de comando este codigo:

MarcaTelefono Me.TxtTelefono

donde TxtTelefono es una caja / campo de texto con el numero de telefono a marcar

Saludos del Búho

Por ErBuho - 5 de Septiembre, 2005, 1:23, Categoría: Access con Codigo VBA
Enlace Permanente | Referencias (0)




<<   Septiembre 2005    
LMMiJVSD
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30   

Enlaces
eGrupos
ZoomBlog

 

Blog alojado en ZoomBlog.com