Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Liste als Parameter für Abfrage
Autor: Git-Git
Datum: 20.07.15 12:58
Also ich hab jetzt eine Funtktion geschrieben, die die einzelnen teil ausliest, das funktioniert soweit auch. hab im SQL jetzt so geschrieben: ..... WHERE ( ( ([Datenbank].Arg1)=fcDatenausStrg(Arg1_TF,1) Or ([Datenbank].Arg1)=fcDatenausStrg(Arg1_TF,2) Or ([Datenbank].Arg1)=fcDatenausStrg(Arg1_TF,3) Or ([Datenbank].Arg1)=fcDatenausStrg(Arg1_TF,4) ) And ( ([Datenbank].Arg2)=fcDatenausStrg(Arg2_TF,1) ) And ( ([Datenbank].Arg3)=fcDatenausStrg(Arg3_TF,1) )); Wenn ich jetzt 4-2 Sachen für Arg1 Auswähle funktioniert es, wenn ich nur eine ausähle nicht... Das ist meine Funktion: Public Function fcDatenausStrg(str As String, Komma As Integer) Dim a As String Dim Pos As Integer Dim Pos2 As Integer Dim n As Integer n = 1 Pos = InStr(1, str, ",", vbTextCompare) If str = "" Then fcDatenausStrg = "nix" ElseIf Pos = 0 Then fcDatenausStrg = "nix" ElseIf Komma > 2 Then Do While n < Komma - 1 Pos = InStr(Pos + 1, str, ",", vbTextCompare) n = n + 1 If Pos = 0 Then a = "nix" Exit Do End If Loop Pos2 = InStr(Pos + 1, str, ",", vbTextCompare) If Pos > Pos2 Then fcDatenausStrg = "nix" ElseIf a = "nix" Then fcDatenausStrg = a Else fcDatenausStrg = Mid(str, Pos + 1, Pos2 - Pos - 1) End If ElseIf Komma = 2 Then Pos2 = InStr(Pos + 1, str, ",", vbTextCompare) If Pos2 = 0 Then fcDatenausStrg = Mid(str, 1, Pos - 1) Else fcDatenausStrg = Mid(str, Pos + 1, Pos2 - Pos - 1) End If ElseIf Komma = 1 Then fcDatenausStrg = Mid(str, 1, Pos - 1) End If End Function Sieht vielleicht jemand woran das liegt?

Liste als Parameter für Abfrage	3.168	Git-Git	17.07.15 11:48
Re: Liste als Parameter für Abfrage	1.820	Manfred X	17.07.15 15:19
Re: Liste als Parameter für Abfrage	1.701	Git-Git	20.07.15 07:49
Re: Liste als Parameter für Abfrage	1.782	Blackbox	17.07.15 17:11
Re: Liste als Parameter für Abfrage	1.746	Git-Git	20.07.15 07:52
Re: Liste als Parameter für Abfrage	1.668	Git-Git	20.07.15 12:58
Re: Liste als Parameter für Abfrage	1.690	Git-Git	21.07.15 10:54
Re: Liste als Parameter für Abfrage	1.660	Git-Git	21.07.15 11:00

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen