Office: (Office 2003) Problem mit einer Suchfunktion

Joghurt2 · 16. Oktober 2008

EDIT.
Aktuell gehts unten weiter *Smilie

Anne Berg · 16. Oktober 2008

Hallo,

das Order By musst du mit dem String verketten und in Gänsefüßchen setzen.
Außerdem musst du das Semikolon weglassen, wenn du an strSQL noch etwas anfügen möchtest.

...ach ja, und Code-Auszüge immer in Code-Tags einfügen. *wink.gif*

Joghurt2 · 16. Oktober 2008

Jetzt Funktionierts! Danke!

Joghurt2 · 26. Februar 2009

Hallo zusammen,

jetzt habe ich die Funktion an andere Stelle noch einmal verwendet und es gibt wieder ein Problem.

Das Formular seht ihr im Bild im Anhang

Zuerst hier der Code vom Button:

Code:

Private Sub cmdFilter_Click()

setFilter

End Sub

Private Sub setFilter()

Dim strPersFilter As String

Dim aLieferspektrum As Variant
Dim lngAnzLieferspektrum As Long
Dim i As Long
Dim lst As ListBox

Set lst = Me!lstFiltLieferspektrum
lngAnzLieferspektrum = lst.ItemsSelected.Count
If lngAnzLieferspektrum > 0 Then
ReDim aLieferspektrum(lngAnzLieferspektrum - 1)
With lst
For i = 0 To (lngAnzLieferspektrum - 1)
aLieferspektrum(i) = .Column(0, .ItemsSelected.Item(i))
Next
End With
Else
aLieferspektrum = Null
End If
Set lst = Nothing

Me!UF_SucheFirma.Form.setFilter strPersFilter, aLieferspektrum

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann hier der Code im Unterformular

Code:

Public Sub setFilter(ByVal PersFilter As String, ByRef Lieferspektrum As Variant)

Dim strSQL As String
Dim strFilter As String
Dim strLieferspektrum As String
Dim i As Long

strSQL = "SELECT Firmenname, [tbl_Lieferspektrum].Firma, Bereich FROM tbl_Firmen INNER JOIN [tbl_Lieferspektrum] ON [tbl_Lieferspektrum].Firma = tbl_Firmen.Firmenname"

If Not IsNull(Lieferspektrum) Then
For i = LBound(Lieferspektrum) To UBound(Lieferspektrum)
strLieferspektrum = strLieferspektrum & ", " & Lieferspektrum(i) & ""
Next i
End If
If Len(strLieferspektrum) > 0 Then
strLieferspektrum = Mid(strLieferspektrum, 3)
If Len(strFilter) > 0 Then
strFilter = strFilter & " AND "
End If
strFilter = strFilter & "[tbl_Lieferspektrum].Lieferspektrum IN (" & strLieferspektrum & ")"
End If

If Len(strFilter) > 0 Then
strSQL = strSQL & " WHERE " & strFilter & _
" GROUP BY [tbl_Lieferspektrum.Firma], Firmenname, Bereich" & _
" HAVING Count([tbl_Lieferspektrum].Lieferspektrum)=" & (UBound(Lieferspektrum) - LBound(Lieferspektrum) + 1) & " ORDER BY Firmenname"

Else
strSQL = "SELECT Firmenname, Bereich FROM tbl_Firmen ORDER BY Firmenname;"
End If

Me.RecordSource = strSQL

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zur Tabellenstruktur:

tbl_Firmen verknüpft mit tbl_Lieferspektrum in einer 1:n Beziehung
Die tbl_Lieferspektrum ist über Firmenname = Firma verknüpft.
Die tbl_Lieferspektrum enthält außerdem einen ein Feld Lieferspektrum. Diese Werte werden einer dritten Tabelle "tbl_Lieferspektrumsliste" entnommen. Hier wird direkt der Wert gespeichert und keine ID, d.h. die "tbl_Lieferspektrumsliste" enthält keine Schlüsselspalte.

Was soll passieren?

Über das Listenfeld soll das Unterformular eingeschränkt werden.
Man klickt dazu Einträge im Listenfeld an und klickt auf Suchen. ==> Die Einschränkung erfolgt.
An anderer Stelle funktioniert das ohne Probleme. Die Tabellenstruktur ist die gleiche, nur dass es hier in der "dritten" Tabelle eine Schlüsselspalte gibt.
Ergo werden in der "n"-Tabelle auch diese "IDs" gespeichert.

Was läuft schief?

Klicke ich auf den Button, kommt "Parameter eingeben" für genau die Werte die ich im Listenfeld angeklickt habe. Gebe ich dann jeweils den Wert ein, wird die Tabelle einwandfrei gefiltert.
Also klicke ich z.B. "Drehen" an kommt "Parameter eingeben" für Drehen. Gebe ich da Drehen ein, wird die Tabelle entsprechend gefiltert.
Praktisch ist das aber natürlich nicht.

Woran kann das liegen? Als Strings sind die Variablen definiert.

Irgendwie muss doch an dieser Stelle liegen oder?
Code:

"[tbl_Lieferspektrum].Lieferspektrum IN (" & strLieferspektrum & ")"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gehören da vielleicht andere Zeichen hin?

Danke im Voraus für alle Antworten!

Beste Grüße

Jog

PS: Ich hoffe meine Problembeschreibung ist halbwegs genau. Wenn Infos fehlen: Bescheid geben. Bitte nicht schimpfen. Ich hoffe man sieht, dass ich mir Mühe gegeben habe *Smilie

ebs17 · 26. Februar 2009

Code:

...
Debug.Print strSQL
' Me.RecordSource = strSQL
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gib Dir die vollständige SQL-Anweisung (oder entsprechende Teile davon) wie gezeigt ins Direktfenster (Strg + G) aus.

Prüfe selber oder zeige die resultierende Anweisung.

Anne Berg · 26. Februar 2009

Code:

strFilter = strFilter & "[tbl_Lieferspektrum].Lieferspektrum IN (" & strLieferspektrum & ")"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Welchen Datentyp hat das Datenfeld "Lieferspektrum "?
Wenn es Text ist, musst du die einzelnen Elemente in Hochkommata setzen.

Joghurt2 · 26. Februar 2009

Hallo Anne,

genau daran hatte ich schon gedacht, allerdings ohne Erfolg.
Das Feld Lieferspektrum ist ein Text!

Ich habe die " durch ' ersetzt, das klappte allerdings nicht.

Folgendes habe ich jetzt probiert:
Code:

strFilter = strFilter & "[tbl_Lieferspektrum].Lieferspektrum IN ('" & strLieferspektrum & "')"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da wird dann allerdings falsch gefiltert, aber zumindest die Parameterabfrage ist weg *Smilie

Muss [tbl_Lieferspektrum].Lieferspektrum auch in Hochkomma gesetzt werden? Wenn ja wie? Einfach davor und danach funktioniert nicht. Da kommt eine Klammerfehlermeldung. Die Kombination (' ... ') klappt auch nicht. Da wird alles rausgefiltert...

Vielleicht könntest du mir mit der Kommasetzung schnell behilflich sein!?!? *sos

Vielen Dank auf alle Fälle für eure Hilfen!

@ebs17: Auch dir danke ich recht herzlich! Ich hoffe die richtige Kommasetzung löst das Problem!

Anne Berg · 26. Februar 2009

Nein, so natürlich nicht, jedes einzelne Element musst du in Hochkommata setzen, und zwar beim Erstellen der Liste. Code:

For i = LBound(Lieferspektrum) To UBound(Lieferspektrum)
strLieferspektrum = strLieferspektrum & ", '" & Lieferspektrum(i) & "'"
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Joghurt2 · 26. Februar 2009

Klappt! Vielen Herzlichen Dank!

Office: (Office 2003) Problem mit einer Suchfunktion

Problem mit einer Suchfunktion

Problem mit einer Suchfunktion

Problem mit einer Suchfunktion

Problem mit einer Suchfunktion

Problem mit einer Suchfunktion - Similar Threads - Problem Suchfunktion

Outlook Problem

Problem bei Fußnote

Excel found a problem with one or more formula references in this worksheet

Zählenwenns Problem

Problem mit Seitenzahlen/Seitenbeschriftung

Data Transform, Problem with delimiter

Problem Kombinationfeld mit Suchfunktion Formular 2003