Laufzeitfehler 13, Typen unnverträglich......HILFE

[shinoda70]

Hallo Leute,

ich finde den Fehler nicht 
Möchte über ein ungebundenes Kombifeld und über Optionsgruppe filtern....

Code [Auswählen] Erweitern

Private Sub RahmenTeiligkeit_AfterUpdate()

Dim strSQL As String
Dim strKRIT As String

strSQL = "SELECT [01b_Hydra].res_nr, [01b_Hydra].Artikel, [01b_Hydra].soll_teiligkeit, [01b_Hydra].teiligkeit,100*[teiligkeit]/[soll_teiligkeit] AS Prozentfachigkeit, [01b_Hydra].Werkzeuge FROM 01b_Hydra WHERE"

Select Case Me.Teiligkeit

Case 1
strKRIT = "(((100*[teiligkeit]/[soll_teiligkeit])=100)) AND (([01b_Hydra].Werkzeuge) Like " * " & [Formulare]![10_a Wkz Teiligkeit]![GoToWkz] & " * "));"

Case 2
strKRIT = "(((100*[teiligkeit]/[soll_teiligkeit])<=99)) AND (([01b_Hydra].Werkzeuge) Like " * " & [Formulare]![10_a Wkz Teiligkeit]![GoToWkz] & " * "));"

Case 3
strKRIT = "(((100*[teiligkeit]/[soll_teiligkeit])<=90)) AND (([01b_Hydra].Werkzeuge) Like " * " & [Formulare]![10_a Wkz Teiligkeit]![GoToWkz] & " * "));"

End Select

strSQL = strSQL & strKRIT
Me.RecordSource = strSQL

Me.FilterOn = True

End Sub

Vielen Dank für Eure Hilfe 

[DF6GL]

Hallo,

vermutlich:

.
.
strSQL = "SELECT [01b_Hydra].res_nr, [01b_Hydra].Artikel, [01b_Hydra].soll_teiligkeit, [01b_Hydra].teiligkeit,100*[teiligkeit]/[soll_teiligkeit] AS Prozentfachigkeit, [01b_Hydra].Werkzeuge FROM 01b_Hydra WHERE "   'Leerzeichen nötig

Select Case Me.Teiligkeit

Case 1
strKRIT = "(((100*[teiligkeit]/[soll_teiligkeit])=100)) AND (([01b_Hydra].Werkzeuge) Like '* " & Me![GoToWkz] & "*'));"      'Hochkomma innerhalb eines Strings. Leerzeichen sind hier zu vermeiden. "Me", wenn Steuerelement innerhalb des aktuellen Forms liegt. Ansonsten "Forms" statt "Formulare" schreiben.
.
.
.

[shinoda70]

Es hat gefunzt...Du bist der Beste!
Danke