Also mal zur Info:
Ich habe zwei Listenfelder.
Images wird zur Darstellung der Suchergebnisse verwendet. In sw_suchen_selected sind die Programme drinne, nach denen gesucht werden soll.
Desweiteren sind da noch zwei Tabellen die miteinander über ImageID verknüpft sind.
Ich bastel mir also die SQL Anweisung im VBA zusammen und das Ergebnis bastel ich wieder zu einem String zusammen, und gebe ihn in dem Listenfeld „images“ aus.
Wenn du eine einfachere Idee hast, wie man in Access in einem Listenfeld eine Zeile hinzufügen kann, dann wäre ich dir sehr dankbar.
Schau es dir mal an (hier sieht es etwas blöd aus…) und wenn du noch Fragen hast, oder sogar einen Fehler gefunden hast, dann melde dich doch nochmal.
cu
raiko
Private Sub Suchen_Click()
Dim i As Integer
Dim squelle As String
If check_change Then
Call speichern_frage
End If
images.RowSourceType = „Wertliste“
'images.ColumnHeads = False
images.ColumnCount = 4
images.ColumnWidths = „0,81cm;4cm;1,103cm;0,801cm;0cm“
Set db = CurrentDb
Sqlstring = "SELECT Count(Image_Content.ImageID) AS Anzahl, "
Sqlstring = Sqlstring + "Image_Content.ImageID AS ID, Image_List.Name AS Name, Image_List.Version AS Version "
Sqlstring = Sqlstring + "FROM Image_List INNER JOIN Image_Content ON Image_List.ImageID = Image_Content.ImageID WHERE "
For i = 0 To (sw_suchen_selected.ListCount)
If i = (sw_suchen_selected.ListCount) Then
Exit For
End If
Sqlstring = Sqlstring + "Image_Content.SoftwareID = " + sw_suchen_selected.Column(1, i)
If i