Numérotation automatique

wilderwein

15/09/2003 à 12:40

Bonjour,

La question avait déjà été posé sur le forum excel, voici la réponse
proposée :

'Api à déclarer dans le haut d'un module.
Declare Function tapiRequestMakeCall Lib "tapi32.dll" _
(ByVal stNumber As String, ByVal stDummy1 As String, _
ByVal stDummy2 As String, ByVal stDummy3 As String) As Long

Public Const ID_CANCEL = 2
Public Const MB_OKCANCEL = 1
Public Const MB_ICONSTOP = 16, MB_ICONINFORMATION = 64

Tu peux utiliser cette procédure et appeler la fonction de cette façon si tu
désires :
DialNumber "12454556", "Diane"

'----------------------------
Sub Dialer()
ColName = 1
ColPhone = 2
vRow = Selection.Row - 1
If vRow = 0 Then Exit Sub
DialNumber Range("A1").Offset(vRow, ColPhone - 1).Value, _
Range("A1").Offset(vRow, ColName - 1).Value
End Sub
'----------------------------

' ***********************************************************
' Function DialNumber()
'
' PURPOSE: To dial a telephone number using the computer's modem
'
' ARGUMENTS:
' PhoneNumber: The telephone number to dial
'
' EXAMPLE:
' Type the following in the Debug window to dial a phone number:
'
' ? DialNumber("555-1212")
'
' About this code see Microsoft knowledgebase article Q141625
' ***********************************************************

Function DialNumber(PhoneNumber, Optional vName As Variant)
Dim Msg As String, MsgBoxType As Integer, MsgBoxTitle As String
Dim RetVal As Long

' Ask the user to pick up the phone.
Msg = "Please pickup the phone and click OK to dial " _
& Chr(13) & Chr(13) & PhoneNumber & " " & vName
MsgBoxType = MB_ICONINFORMATION + MB_OKCANCEL
MsgBoxTitle = "Dial Number"
If MsgBox(Msg, MsgBoxType, MsgBoxTitle) = ID_CANCEL Then
Exit Function
End If

' Send the telephone number to the modem.
RetVal = tapiRequestMakeCall(PhoneNumber, "", vName, "")
If RetVal < 0 Then
Msg = "Unable to dial number " & PhoneNumber
GoTo Err_DialNumber
End If
Exit Function

Err_DialNumber: 'This is not an On Error routine.
Msg = Msg & Chr(13) & Chr(13) & _
"Make sure no other devices are using the Com port"
MsgBoxType = MB_ICONSTOP
MsgBoxTitle = "Dial Number Error"
MsgBox Msg, MsgBoxType, MsgBoxTitle

End Function
'=========================================== "alain teyssedre" a écrit dans le message de
news:OEy%

Bonjour

Comment peut on faire fonctionner la numérotation automatique avec ACCESS
?

(je clique sur un Numéro de tél et hop il se compose tout seul et
m'etablit

une communication
téléphonique )

quels matériels sont nécessaires (téléphone spécial, ... ??)

merci

@+
Alain

Bonjour,

La question avait déjà été posé sur le forum excel, voici la réponse
proposée :

'Api à déclarer dans le haut d'un module.
Declare Function tapiRequestMakeCall Lib "tapi32.dll" _
(ByVal stNumber As String, ByVal stDummy1 As String, _
ByVal stDummy2 As String, ByVal stDummy3 As String) As Long

Public Const ID_CANCEL = 2
Public Const MB_OKCANCEL = 1
Public Const MB_ICONSTOP = 16, MB_ICONINFORMATION = 64

Tu peux utiliser cette procédure et appeler la fonction de cette façon si tu
désires :
DialNumber "12454556", "Diane"

'----------------------------
Sub Dialer()
ColName = 1
ColPhone = 2
vRow = Selection.Row - 1
If vRow = 0 Then Exit Sub
DialNumber Range("A1").Offset(vRow, ColPhone - 1).Value, _
Range("A1").Offset(vRow, ColName - 1).Value
End Sub
'----------------------------

' ***********************************************************
' Function DialNumber()
'
' PURPOSE: To dial a telephone number using the computer's modem
'
' ARGUMENTS:
' PhoneNumber: The telephone number to dial
'
' EXAMPLE:
' Type the following in the Debug window to dial a phone number:
'
' ? DialNumber("555-1212")
'
' About this code see Microsoft knowledgebase article Q141625
' ***********************************************************

Function DialNumber(PhoneNumber, Optional vName As Variant)
Dim Msg As String, MsgBoxType As Integer, MsgBoxTitle As String
Dim RetVal As Long

' Ask the user to pick up the phone.
Msg = "Please pickup the phone and click OK to dial " _
& Chr(13) & Chr(13) & PhoneNumber & " " & vName
MsgBoxType = MB_ICONINFORMATION + MB_OKCANCEL
MsgBoxTitle = "Dial Number"
If MsgBox(Msg, MsgBoxType, MsgBoxTitle) = ID_CANCEL Then
Exit Function
End If

' Send the telephone number to the modem.
RetVal = tapiRequestMakeCall(PhoneNumber, "", vName, "")
If RetVal < 0 Then
Msg = "Unable to dial number " & PhoneNumber
GoTo Err_DialNumber
End If
Exit Function

Err_DialNumber: 'This is not an On Error routine.
Msg = Msg & Chr(13) & Chr(13) & _
"Make sure no other devices are using the Com port"
MsgBoxType = MB_ICONSTOP
MsgBoxTitle = "Dial Number Error"
MsgBox Msg, MsgBoxType, MsgBoxTitle

End Function
'=========================================== "alain teyssedre" <alain.teyssedre@iae-aix.com> a écrit dans le message de
news:OEy%23092eDHA.616@TK2MSFTNGP11.phx.gbl...

Bonjour

Comment peut on faire fonctionner la numérotation automatique avec ACCESS
?

(je clique sur un Numéro de tél et hop il se compose tout seul et
m'etablit

une communication
téléphonique )

quels matériels sont nécessaires (téléphone spécial, ... ??)

merci

@+
Alain

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

La question avait déjà été posé sur le forum excel, voici la réponse
proposée :

'Api à déclarer dans le haut d'un module.
Declare Function tapiRequestMakeCall Lib "tapi32.dll" _
(ByVal stNumber As String, ByVal stDummy1 As String, _
ByVal stDummy2 As String, ByVal stDummy3 As String) As Long

Public Const ID_CANCEL = 2
Public Const MB_OKCANCEL = 1
Public Const MB_ICONSTOP = 16, MB_ICONINFORMATION = 64

Tu peux utiliser cette procédure et appeler la fonction de cette façon si tu
désires :
DialNumber "12454556", "Diane"

'----------------------------
Sub Dialer()
ColName = 1
ColPhone = 2
vRow = Selection.Row - 1
If vRow = 0 Then Exit Sub
DialNumber Range("A1").Offset(vRow, ColPhone - 1).Value, _
Range("A1").Offset(vRow, ColName - 1).Value
End Sub
'----------------------------

' ***********************************************************
' Function DialNumber()
'
' PURPOSE: To dial a telephone number using the computer's modem
'
' ARGUMENTS:
' PhoneNumber: The telephone number to dial
'
' EXAMPLE:
' Type the following in the Debug window to dial a phone number:
'
' ? DialNumber("555-1212")
'
' About this code see Microsoft knowledgebase article Q141625
' ***********************************************************

Function DialNumber(PhoneNumber, Optional vName As Variant)
Dim Msg As String, MsgBoxType As Integer, MsgBoxTitle As String
Dim RetVal As Long

' Ask the user to pick up the phone.
Msg = "Please pickup the phone and click OK to dial " _
& Chr(13) & Chr(13) & PhoneNumber & " " & vName
MsgBoxType = MB_ICONINFORMATION + MB_OKCANCEL
MsgBoxTitle = "Dial Number"
If MsgBox(Msg, MsgBoxType, MsgBoxTitle) = ID_CANCEL Then
Exit Function
End If

' Send the telephone number to the modem.
RetVal = tapiRequestMakeCall(PhoneNumber, "", vName, "")
If RetVal < 0 Then
Msg = "Unable to dial number " & PhoneNumber
GoTo Err_DialNumber
End If
Exit Function

Err_DialNumber: 'This is not an On Error routine.
Msg = Msg & Chr(13) & Chr(13) & _
"Make sure no other devices are using the Com port"
MsgBoxType = MB_ICONSTOP
MsgBoxTitle = "Dial Number Error"
MsgBox Msg, MsgBoxType, MsgBoxTitle

End Function
'=========================================== "alain teyssedre" a écrit dans le message de
news:OEy%

Bonjour

Comment peut on faire fonctionner la numérotation automatique avec ACCESS
?

(je clique sur un Numéro de tél et hop il se compose tout seul et
m'etablit

une communication
téléphonique )

quels matériels sont nécessaires (téléphone spécial, ... ??)

merci

@+
Alain

3stone

15/09/2003 à 13:44

Salut,

"alain teyssedre" a écrit:
| Comment peut on faire fonctionner la numérotation automatique avec ACCESS ?
| (je clique sur un Numéro de tél et hop il se compose tout seul et m'etablit
| une communication
| téléphonique )
|
| quels matériels sont nécessaires (téléphone spécial, ... ??)

Crée un bouton avec l'assistant...

Choisir la Catégorie : Divers
Action: Composition automatique

Tu te retrouve avec un bouton "Téléphone"...
Pour l'utilisation, il suffit d'avoir sur ton formulaire une zonne de texte
dans laquelle se trouve le numéro à appeller.

Tu clique dans cette zone de texte et puis sur le bouton.

Bien sûr, tu peut adapter le code VBA pour "lire" le numéro directement.

--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------

alain teyssedre

15/09/2003 à 16:05

Merci

je vais tester tout ça

@+

Alain

"3stone" a écrit dans le message de news:

Salut,

"alain teyssedre" a écrit:
| Comment peut on faire fonctionner la numérotation automatique avec
ACCESS ?

| (je clique sur un Numéro de tél et hop il se compose tout seul et
m'etablit

| une communication
| téléphonique )
|
| quels matériels sont nécessaires (téléphone spécial, ... ??)

Crée un bouton avec l'assistant...

Choisir la Catégorie : Divers
Action: Composition automatique

Tu te retrouve avec un bouton "Téléphone"...
Pour l'utilisation, il suffit d'avoir sur ton formulaire une zonne de
texte

dans laquelle se trouve le numéro à appeller.

Tu clique dans cette zone de texte et puis sur le bouton.

Bien sûr, tu peut adapter le code VBA pour "lire" le numéro directement.

--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------

Numérotation automatique

3 réponses

Veuillez sélectionner un problème