Tabel på række

<table>
<tr>
<%
do while not rs.eof
Response.write"<td>" & rs("xx")& "</td>"

%>
</tr>
</table>

hvor xx er feltet i din db

strSQL = "SELECT bil, båd, badebro, hus FROM tabelnavn WHERE etellerandet"
set rs = Conn.Execute(strSQL)

While Not rs.EOF

response.write rs("bil")
response.write rs("båd")
response.write rs("badebro")
response.write rs("hus")

rs.MoveNext
Wend

ups manglede lige et loop
efter response write skal der stå loop

tjah kovalts er også brugbart :-)

Jeg skal bruge det i en rapport i en access db, som en række med ex. leverandøre eller navne på brands!

Hvordan kan jeg bruge dit svar? det ligner HTML....

Glenn P.

Ups havde hller ikke set kategori :-0

hvem spørger du

Kommentar til Kovalt,

feltnavn i tabellen er [firma] indehold er variabel og antal er fra 0 til ex. 10

Glenn P.

Du laver følgende funktion:

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

Den kan derefter bruges således:
  =strListOfValues("SELECT DISTINCT feltnavn FROM tabelnavn")

proaccess,

jeg er ikke helt med, jeg har været nødtil at lave et udtræk(Oueries) med navnet "sqlLeverandorliste" og her er det feltet [Frima] der skal bruges.

Hvordan skal det hænge sammen.

Glenn P.

Indsæt funktionen i et modul...

Derefter kan du kalde funktionen enten i en formular, rapport eller i en forespørgsel...

=strListOfValues("SELECT DISTINCT [Firma] FROM sqlLeverandorliste")

Jeg har oprettet et modul.

Jeg skal bruge listen i en rapport i feltet [lev] skal dette felts data være lig med
=strListOfValues("SELECT DISTINCT [Firma] FROM sqlLeverandorliste")

eller hvad...

Glenn P.

Ja, prøv det...  enten med eller uden =

jeg får kun fejl, er der noget jeg har glemt?

Glenn P.

Jeg får fejl her:

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

Fejl: Type mismatch

Glenn P.

Kører du Access 2000 eller XP??

Min kode er til Acc97!!

Access 2000

Public Function strListOfValues(strSQL As String) As String
  Dim RA As New ADODB.Recordset
  RA.Open strSQL, CurrentProject.Connection
  While Not RA.EOF
    strListOfValues = strListOfValues & ", " & RA.Fields(0).Value
    RA.MoveNext
  Wend
  Set RA = Nothing
  strListOfValues = Mid(strListOfValues, 3)
End Function

Nu er det helt perfekt, mange tak

Det var da så lidt ;0)