| |
VB & DatenbankenRe: 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?
| |
| 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 |
|
|
sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|