CTI / TAPI Treiber nutzen um Nummer zu wählen

[datekk]

In einem Kontaktformular habe ich ein Telefonnummerfeld. Ich möchte gern, dass bei Click auf eine Schaltfläche im Formular die Telefonnummer aus dem Feld txt_Tel gewählt wird.

Bin schon mal nach dieser Anleitung vorgegangen, komme aber nur zur Fehlermeldungen http://forum.chip.de/office/access2010-tapi-1417592.html

Vieleicht kann der ein oder andere mir Hilfe leisten.

[MaggieMay]

Hallo,

es wäre wohl sinnvoll, du zeigst deinen Code und nennst die Fehlermeldungen und ihren Entstehungsort (=Codezeile).

[datekk]

Das tu ich gern..... also..

Ich habe ein neues Modul angelegt. Dieses schaut wie folgt aus:

Code [Auswählen] Erweitern

Option Compare Database

Option Explicit

Declare Function tapiRequestMakeCall Lib "tapi32.dll" (ByVal DestAddress As String, _
ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long

Sub Telefonieren(TelefonNr$, derName$)
Dim retVal As Long
retVal = tapiRequestMakeCall(TelefonNr, "", derName, "")
If retVal <> 0 Then
MsgBox "Beim Verbindungsaufbau ist ein Fehler aufgetreten!"
End If
End Sub

End Function


Dann habe ich in einem Formular die Eigenschaft bei Click gesetzt und folgenden Code hinterlegt:

Code [Auswählen] Erweitern


Private Sub Befehl291_Click()

' Wählt die Rufnummer, welche in einem Formulartextfeld eingetragen wird.
A$ = AP_Telefon.Value
Telefonieren A$, ""
On Error GoTo 0
End Sub


Bei Klick auf das Feld erhalte ich die Fehlermeldung: "Fehler beim Kompilieren: Variable oder Prozedur anstelle eines Moduls erwartet. Nach klick auf OK ist die Zeile "Private Sub Befehl291_Click()" gelb markiert mit gelben Pfeil davor. Und das Wort "Telefonieren" in der Zeile "Telefonieren A$, """ ist blau markiert.

Die Telefonnummer befindet sich im Feld "AP_Telefon". Ich hoffe dies hilft.

[bahasu]

Hi,

du definierst das Telefonieren als sub und endest mit end function.
Also entweder als Function deklarieren oder mit End Sub beenden.

Harald

[DF6GL]

Hallo,

es reicht, das "End Function" im Modul herauszuwerfen...

[datekk]

Danke für Eure Antworten. Also das End Function ist raus... Nur der Fehler ist immer noch der gleiche.

[DF6GL]

HAllo,


schreib mal so:

Code [Auswählen] Erweitern


Option Compare Database

Option Explicit

Declare Function tapiRequestMakeCall Lib "tapi32.dll" (ByVal DestAddress As String, _
ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long

Sub Telefonieren(TelefonNr as String, derName as String)
Dim retVal As Long
retVal = tapiRequestMakeCall(TelefonNr, "", derName, "")
If retVal <> 0 Then
MsgBox "Beim Verbindungsaufbau ist ein Fehler aufgetreten!"
End If
End Sub


Code [Auswählen] Erweitern


Private Sub Befehl291_Click()
Dim A as String
A = Me!AP_Telefon
Call Telefonieren (A, "")
End Sub

[datekk]

Danke... Aber der Fehler ist immer noch der selbe.

In der Sub der Schaltfläche ist "Call Telefonieren" blau unterlegt und "Private Sub Befehl291_Click()" gelb mit gelben Pfeil davor. Identische Fehlermeldung.

[DF6GL]

Hallo,

kann es sein, dass das Standard-Modul selber "Telefonieren" heißt?

[MaggieMay]

Hallo,

Fehler beim Kompilieren: Variable oder Prozedur anstelle eines Moduls erwartet.

die Fehlermeldung spricht für sich, ein Modul darf nicht denselben Namen haben wie eine Prozedur.

[datekk]

MÖÖÖÖP... Genau.... Das war das Problem 

Danke an Alle - wieder was gelernt...

[MaggieMay]

Man kann Prozeduren auch mit dem zugehörigen Mudulnamen ansprechen.
So wäre das dann vermutlich gelaufen:

Code [Auswählen] Erweitern

Call Telefonieren.Telefonieren (A, "")
Sollte man aber dennoch nicht tun und Module grundsätzlich anders benennen, bspw. mit mod_Telefonieren.