Publicado: 04/08/2005 11:54:40 pmAsunto: conexion telefonico con visual basic desde access
saludos a todos los miembros de este foro, tengo un problema y es que necesito hacer una llamada telefonica desde un numero ubicado en un campo de una tabla desde un formulario de access, agradezco la atencion a la presente
Registrado: Aug 03, 2005 Mensajes: 30 Ubicación: Lima
Publicado: 05/08/2005 01:54:59 pmAsunto:
Puedes usar el MSCOMM, para eso puedes usar el siguiente codigo que esta incluida en la MSDS
Private Sub Form_Load ()
' Búfer para almacenar la cadena de entrada
Dim Instring As String
' Usar COM1.
MSComm1.CommPort = 1
' 9600 baudios, sin paridad, 8 bits de datos y 1
' bit de parada.
MSComm1.Settings = "9600,N,8,1"
' Indicar al control que lea todo el búfer al usar
' Input.
MSComm1.InputLen = 0
' Abrir el puerto.
MSComm1.PortOpen = True
' Enviar al módem el comando de atención.
MSComm1.Output = "ATV1Q0" & Chr$(13) ' Asegúrese de que
' el módem responde con "OK".
' Esperar a que vuelvan los datos al puerto serie.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' Leer los datos de respuesta de aceptación en el
' puerto serie.
' ACA LE PUEDES MANDAR LOS COMANDOS PARA LA LLAMADA DEBEN DE ESTAR EN EL MANUAL DE TU MODEM SI NO
' MAL RECUERDO EL GENERICO ES : ATDT y seguido del numero de telefono
' EN ESTE CASO SERIA: Mscomm1.Output = "ATDT" & TucampoAccess
' Cerrar el puerto serie.
MSComm1.PortOpen = False
End Sub
saludos a todos los miembros de este foro, saludos yuri, fijate que ere precisamente lo que buscaba, voy a analizar las instrucciones y hacer pruebas, te agradezco muchisimo la ayuda que me haz dado, espero contar con tu apoyo cuando me surja alguna duda o me atore en algun error. gracias.
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
FAQ
Buscar
Grupos de Usuarios
Perfil
Entre para ver sus mensajes privados
Login
