Query hjælp

Du er nødt til at oprette en funktion, til at \"vende\" din tabel.

Public Function strListOfValues(strSQL As String) As String
  Dim RA As Recordset
  Set RA = CurrentDb.OpenRecordset(strSQL)
  While Not RA.EOF
    strListOfValues = strListOfValues & \" - \" & RA.Fields(0).Value
    RA.MoveNext
  Wend
  Set RA = Nothing
  strListOfValues = Mid(strListOfValues, 3)
End Function

Derefter kalder du den ved følgende forespørgsel:

SELECT DISTINCT id, strListOfValues(\"SELECT ord FROM DinTabel WHERE id=\" & [id] & \" ORDER BY ord;\") AS ord FROM [DinTabel];

HDH
ProAccess

Jeg får fejl i denne linie:

Set RA = CurrentDb.OpenRecordset(strSQL)

Ok det var en slåfejl - nu kører det. Men min pc gik ned...

Access går fuldstændig død efter en forespørgsel...

Det kan være at det bare er fordi det giver en TUNG forespørgsel... (der genforespørges for hver record)

Hvor stort (antal records) er din tabel, prøv eventuelt at afgrænse forespørgslen ved at skrive:

SELECT DISTINCT id, strListOfValues(\"SELECT ord FROM DinTabel WHERE id=\" & [id] & \" ORDER BY ord;\") AS ord FROM [DinTabel] HAVING id<3;

ProAccess

UNDSKYLD \"WHERE\" ISTEDET FOR \"HAVING\" !!!

Der er ca. 3000 records. Jeg prøver

Ok - selvom det faktisk talt er ubrugligt løste du opgaven.

Det er den ENESTE måde, du kan løse din opgave...

Det bunder i at du har så forskellige værdier i din tabel. Ellers kunne det \"bare\" løses ved en krydstabuleringsforespørgsel !!!  -  Her vil du dog få MANGE tomme celler.

Du må meget undskylde, men som man råber i skoven, og så videre...

ProAccess