OVH Cloud OVH Cloud

Téléphoner à partir d'access

4 réponses
Avatar
Pierre
Bonjour
est-il possible de programmer (via un bouton d'action) un appel téléphonique
à partir d'un N°de téléphone stocker dans une base access
Merci

4 réponses

Avatar
3stone
Salut,

"Pierre"
| est-il possible de programmer (via un bouton d'action) un appel téléphonique
| à partir d'un N°de téléphone stocker dans une base access


Access réalise cela avec l'assistant bouton !!

http://mypage.bluewin.ch/w.stucki/Formulaires.htm#Telephone



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Pierre
Bonjour et Merci
me conseilles-tu d'utiliser cette application de téléphonie ou une autre
serait préférable (en fait il faudra surement que je la pilote (numéro
occupé, renumérotation...)
Merci de ton aide
Pierre
"3stone" a écrit dans le message de news:
%23%
Salut,

"Pierre"
| est-il possible de programmer (via un bouton d'action) un appel
téléphonique
| à partir d'un N°de téléphone stocker dans une base access


Access réalise cela avec l'assistant bouton !!

http://mypage.bluewin.ch/w.stucki/Formulaires.htm#Telephone



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw



Avatar
Bonjour,

Vu le code généré par l'assistant, on ne peut pas parler d'intéractivité profonde vois
ci-dessous,
je doute qu'on puisse intercepter des retours du modem....

Private Sub Commande4_Click()
On Error GoTo Err_Commande4_Click

Dim stDialStr As String
Dim PrevCtl As Control
Const ERR_OBJNOTEXIST = 2467
Const ERR_OBJNOTSET = 91
Const ERR_CANTMOVE = 2483

Set PrevCtl = Screen.PreviousControl

If TypeOf PrevCtl Is TextBox Then
stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
ElseIf TypeOf PrevCtl Is ListBox Then
stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
ElseIf TypeOf PrevCtl Is ComboBox Then
stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
Else
stDialStr = ""
End If

Application.Run "utility.wlib_AutoDial", stDialStr

Exit_Commande4_Click:
Exit Sub

Err_Commande4_Click:
If (err = ERR_OBJNOTEXIST) Or (err = ERR_OBJNOTSET) Or (err = ERR_CANTMOVE) Then
Resume Next
End If
MsgBox err.Description
Resume Exit_Commande4_Click

End Sub



Il faudrait "écouter" le port série sur lequel est branché le modem...

Si Print COM1 marche, Read COM1 peut-être ??
à+
--
Arnaud
-----------------------------------
http://users.skynet.be/mpfa/
-----------------------------------

"Pierre" a écrit dans le message de news:
42baf0e7$0$25028$
| Bonjour et Merci
| me conseilles-tu d'utiliser cette application de téléphonie ou une autre
| serait préférable (en fait il faudra surement que je la pilote (numéro
| occupé, renumérotation...)
| Merci de ton aide
| Pierre
| "3stone" a écrit dans le message de news:
| %23%
| > Salut,
| >
| > "Pierre"
| > | est-il possible de programmer (via un bouton d'action) un appel
| > téléphonique
| > | à partir d'un N°de téléphone stocker dans une base access
| >
| >
| > Access réalise cela avec l'assistant bouton !!
| >
| > http://mypage.bluewin.ch/w.stucki/Formulaires.htm#Telephone
| >
| >
| >
| > --
| > A+
| > Pierre (3stone) Access MVP
| > Perso: http://users.skynet.be/accesshome/
| > Conseils MPFA: http://users.skynet.be/mpfa/
| > Email : http://www.cerbermail.com/?Xfg61Z3IQw
| >
|
|
Avatar
3stone
Salut,

"Pierre"
| me conseilles-tu d'utiliser cette application de téléphonie ou une autre
| serait préférable (en fait il faudra surement que je la pilote (numéro
| occupé, renumérotation...)


heu... cela répondait farpaitement à la question ;-)


| > | est-il possible de programmer (via un bouton d'action) un appel
| > téléphonique à partir d'un N°de téléphone stocker dans une base access


Pour "gérer" une centrale téléphonique, il faut plus... bien sûr!

J'ai eu "quelque chose" pour faire cela.
Le plus dur sera de remettre la main dessus :-(


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw