Sammenkæde felt fra flere records

Hvordan vil du have, at Access kan genkende de 2 poster i mange tabellen, som skal sammenkædes med et felt på een siden?

jeg skitsere lige tabellerne
Der er join på refno, men jeg ønsker at se feltet "tekst4" sammensat i min foresåørgelse hvis der er flere records med samme refno

tabel 1

refno
tekst1
tekst2



tabel 2 (mange tabellen)

refno
tekst3
tekst4

OK - Vender lige tilbage. Min ide går på en DLookUp.

Er der nogen mulighed for at se din db i Access 2003 - Evt send den til:

mugs snabelting mail.dk

som en .zip fil

http://en.wikipedia.org/wiki/Join_(SQL)#Self-join

Jeg frafalder min ide om en DlookUp. Funktionen finder den første post der opfylder kriterierne og ikke andre.

Se på ellebe's link.

Har fundet denne løsning, men så gerne det kunne løses i ren sql

http://support.microsoft.com/kb/318642

Felter fra forskellige records kan kun sammensættes til en post efter kriterier sammenlignede et bestemt antal poster - dermed er det ikke muligt i sql at lave udtryk hvori der indgår et variabelt antal poster.
Northwind eksemplet har, som alt andet fra MS, har den vanlige dokumentation gennem kaskader af ellers overflødige variabel erklæringer og brug af de mere kluntede vba kontrolstukturer - følgende gør det:

Function fieldsList(sql, fldName, Optional sep = ";")
  With CurrentDb.OpenRecordset(sql): While Not .EOF
    fieldsList = fieldsList & .Fields(fldName) & sep: .MoveNext: Wend: End With
  trailRemStr fieldsList, sep
End Function

anvendende - fra gemmerne:

Function trailRemStr(str, Optional trailStr)
    Dim trailLen
    If Not IsMissing(trailStr) Then trailLen = Len(trailStr) Else trailLen = 1
    str = Left(str, Len(str) - trailLen)
    trailRemStr = str
End Function

Ellebe >> Tak, det må vel være fair nok at du får nogle points :-)

creditability angående min profil her er uønsket - håber det er i orden at spørgsmålet lukkes med point til dig selv.

Nu er der jo andet i verden end praktisk anvendelse:

resultat af vba sekvens - 'monteret' i en forespørsel:

'psedo vba
Function foo(table, fld)
    With rsi(table): While Not .EOF: foo = foo & .Fields(fld) & ";": Wend: End With
End Function

sql:
'SELECT foo("<tableName>","<fieldname>") AS foo FROM <table-with id as unique key> WHERE id=dlookup("id","<table-with id as unique key>");

Lukket