Typen unverträglich

05/12/2008 - 10:32 von Beck, Alwin | Report spam
Hallo,

bei diesem Code kommt immer die Fehlermeldung "Typen unvertràglich"

Public Function parameter(Bezeichnung As String, Optional
Standartwert)
'Auslesen von Werten aus der Tabelle T_Parameter

Dim RS As Recordset

Set RS = CurrentDb.OpenRecordset("SELECT * FROM T_Parameter WHERE
T_PBez='" & Bezeichnung & "'")
If RS.RecordCount = 1 Then
parameter = RS.Fields("T_PWert").Value
Else
parameter = Standartwert
End If

End Function

Alle Werte welche ich übergebe sind Textwerte - was kann hier nicht
stimmen ?

Danke
Gruß
Alwin
 

Lesen sie die antworten

#1 Karl Donaubauer
05/12/2008 - 10:48 | Warnen spam
Beck, Alwin wrote:
bei diesem Code kommt immer die Fehlermeldung "Typen unvertràglich"

Public Function parameter(Bezeichnung As String, Optional
Standartwert)
'Auslesen von Werten aus der Tabelle T_Parameter

Dim RS As Recordset

Set RS = CurrentDb.OpenRecordset("SELECT * FROM T_Parameter WHERE
T_PBez='" & Bezeichnung & "'")
If RS.RecordCount = 1 Then
parameter = RS.Fields("T_PWert").Value
Else
parameter = Standartwert
End If

End Function

Alle Werte welche ich übergebe sind Textwerte - was kann hier nicht
stimmen ?



Wahrscheinlich geht's eher um "As Recordset".
s. www.donkarl.com?FAQ7.11

BTW "Standartwert" ist beliebt, heißt aber "Standardwert", auch
wenn's nicht den Typfehler werfen sollte. ;-)

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com

Ähnliche fragen