Använd data från multiselect listbox
Hejsan,
jag behöver hämta data från en tabell efter vad som är markerat i en listbox.
Jag håller på att skapa ett störningsprogram för en motorfabrik.
Jag ska skapa en rapport med störningsinformation, men man skall innan rapporten skapas kunna välja om man vill ha felstatistik från alla skiften eller bara från något specifikt.
Då programmet är framtaget för att användas så väl här som i belgien, och med förhoppningen att det ska vara så dynamiskt som möjligt, kan jag inte lägga skiftinformation i variabler, utan måste ha det i tabeller.
Jag tänkte mig lösa det med en multiselect listbox, som får upp de skift som finns, när man valt de skift som man är intresserad av, kan en rapport skapas.
Behöver då värderna från listboxen för att använda i en query.
//Johan
Svara
Sv: Använd data från multiselect listbox
Kan du inte bara loopa igenom hela listboxens värden, kolla varje värde om det är valt och är det det stoppar du inte det antingen i en array eller direkt i databasen?
Mvh,
Sofia
Svara
Sv: Använd data från multiselect listbox
Du kan göra något sånthär:
<code>
Dim vTemp As Variant
Dim strIN As String
Dim strWhere As String
For Each vTemp In List0.ItemsSelected
strIN = strIN & ", " & List0.ItemData(vTemp)
Next
If Len(strIN) Then
strWhere = "Fältnamn IN (" & Mid(strIN, 3) & ")"
End If
DoCmd.OpenReport "rptResult", acViewPreview, , strWhere
</code>
Svara