Oktober 22, 2021, 21:27:00

Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!


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

Begonnen von shinoda70, September 28, 2021, 09:05:42

⏪ vorheriges - nächstes ⏩

shinoda70

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  :)

DF6GL

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.
.
.
.

shinoda70