ACC: Gebruiken TAPI om telefoon nummers kiezen onder Win95/NT 4. 0 (95/97)

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 141625 - Bekijk de producten waarop dit artikel van toepassing is.
Alles uitklappen | Alles samenvouwen

Samenvatting

Geavanceerd: Expert codering, interoperabiliteit en meerdere gebruikers vaardigheden vereist.

Dit artikel beschrijft een VBA-functie, DialNumber(), u kunt een telefoon nummer van Microsoft Access 7. 0 en 97 met de modem van uw computer. Deze methode wordt gebruikt voor telefonie Application Programming Interface (TAPI) functieaanroepen te kiezen de nummer.

Deze techniek biedt dezelfde werking hebben als de ingebouwde Auto kiezer functie in Microsoft Access 7. 0 en 97.

Opmerking: Hoewel deze techniek in Windows 95 en Windows NT 4. 0 werkt werkt mogelijk niet in Windows NT 3. 51 omdat geen Windows NT 3. 51 ingebouwde ondersteuning voor TAPI. Voor meer informatie over het kiezen van een telefoonnummer Raadpleeg het volgende artikel in Microsoft Access zonder TAPI Hier in de Microsoft Knowledge Base:
148857ACC: Hoe een telefoon nummer met MS Access 95/97
In dit artikel wordt ervan uitgegaan dat u bekend bent met Visual Basic voor Toepassingen en met het maken van toepassingen met behulp van de program meer hulp middelen van Microsoft Access. Voor meer informatie informatie over Visual Basic for Applications, raadpleegt u de versie van de Hand boek ''Building Applications with Microsoft Access'.

Meer informatie

Hoewel de TAPI-software development kit (SDK) een volledige set bevat telefoon functies, hoeft u slechts één functie, tapiRequestMakeCall(), een telefoonnummer kiezen.

De volgende stappen wordt beschreven hoe maken en gebruiken van de DialNumber() functie in Microsoft Access 7. 0 en 97.

  1. Open de voorbeeld data base Noordenwind. mdb.
  2. Maak een module en typ de volgende regels in de verklaringen sectie:

    Opmerking: U mogelijk sommige Microsoft Windows API-functies gedefinieerd in een bestaande Microsoft Access-bibliotheek. Daarom is de declaraties mogelijk dubbele records. Als er een foutbericht van dubbele procedure naam Verwijder of commentaar de declaratie-instructie in uw code.

    Opmerking: De instructie Declare exact typen zoals weer gegeven, inclusief hoofd letter gebruik, omdat de Win32-namen zijn hoofdlettergevoelig. Optie Explicit
     Option Explicit
          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
    
    						
  3. Typ de volgende procedure:
          ' ***********************************************************
          ' 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")
          ' ***********************************************************
          Function DialNumber (PhoneNumber)
             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 " _
                & PhoneNumber
             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, "", "", "")
    
             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 & vbCr & vbCr & _
                "Make sure no other devices are using the Com port"
             MsgBoxType = MB_ICONSTOP
             MsgBoxTitle = "Dial Number Error"
             MsgBox Msg, MsgBoxType, MsgBoxTitle
    
          End Function
    						
  4. Open het formulier Employees in de ontwerpweergave.
  5. Een opdracht knop aan het formulier naast het veld TelefoonPrivé toevoegen en instellen de opdracht knop eigenschappen als volgt:
    Naam: btnDialPhone
    Bijschrift: kiezen
    OnClick: =DialNumber([HomePhone])
  6. Bekijk het formulier in de formulier weergave. Een werknemer thuis telefoonnummer, kiezen Klik op de knop kiezen.

Referenties

Voor meer informatie over de functie Auto zoeken in de Help-Index voorAuto kiezer.

Voor meer informatie over de instructie Declare zoeken in de Help-Index voorDeclare, instructie.

Eigenschappen

Artikel ID: 141625 - Laatste beoordeling: woensdag 23 februari 2011 - Wijziging: 2.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Access 97 Standard Edition
Trefwoorden: 
kbinfo kbprogramming kbmt KB141625 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:141625
Vrijwaring inhoud KB-artikelen over niet langer ondersteunde producten
Dit artikel heeft betrekking op producten waarvoor Microsoft geen ondersteuning meer biedt. Daarom wordt dit artikel alleen in de huidige vorm aangeboden en wordt het niet meer bijgewerkt.

Geef ons feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com