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.
Hallo,
es wäre wohl sinnvoll, du zeigst deinen Code und nennst die Fehlermeldungen und ihren Entstehungsort (=Codezeile).
Das tu ich gern..... also..
Ich habe ein neues Modul angelegt. Dieses schaut wie folgt aus:
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:
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.
Hi,
du definierst das Telefonieren als sub und endest mit end function.
Also entweder als Function deklarieren oder mit End Sub beenden.
Harald
Hallo,
es reicht, das "End Function" im Modul herauszuwerfen...
Danke für Eure Antworten. Also das End Function ist raus... Nur der Fehler ist immer noch der gleiche.
HAllo,
schreib mal so:
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
Private Sub Befehl291_Click()
Dim A as String
A = Me!AP_Telefon
Call Telefonieren (A, "")
End Sub
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.
Hallo,
kann es sein, dass das Standard-Modul selber "Telefonieren" heißt?
Hallo,
Zitat von: datekk am Dezember 03, 2014, 17:12:02Fehler 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.
MÖÖÖÖP... Genau.... Das war das Problem :o
Danke an Alle - wieder was gelernt...
Man kann Prozeduren auch mit dem zugehörigen Mudulnamen ansprechen.
So wäre das dann vermutlich gelaufen:Call Telefonieren.Telefonieren (A, "")
Sollte man aber dennoch nicht tun und Module grundsätzlich anders benennen, bspw. mit mod_Telefonieren.