Hallo Leute,
ich finde den Fehler nicht :(
Möchte über ein ungebundenes Kombifeld und über Optionsgruppe filtern....
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 :)
Hallo,
vermutlich:
Zitat.
.
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.
.
.
.
Es hat gefunzt...Du bist der Beste!
Danke :) :) :)