Sammensat feltinformation

VBA

SELECT ID GROUP BY ID = et recordset med alle ID 1 gang
loop dette og lav en select af records med ID
Loop disse records og læs værdier og sammensæt dem.

Public Sub UpdateRun()
' -----------------------------------------------------------------------------------
' Purpose    :
' Parameters :
' Created    : 18-01-2012
' Modified  :
' Remarks    :
' -----------------------------------------------------------------------------------
On Error GoTo Error_UpdateRun
  Const TableName As String = "Tabel1"
  Dim strSQL As String
  Dim strSQLUpdate As String
  Dim rst As New ADODB.Recordset
  Dim rstUpdate As New ADODB.Recordset
  Dim RecordID As Integer
  Dim StringValue As String
 
  strSQL = "SELECT ID, fldResult FROM " & TableName & " GROUP BY ID, fldResult"
  rst.Open strSQL, CurrentProject.Connection, adOpenUnspecified, adLockOptimistic
 
  While Not rst.EOF
 
    RecordID = Nz(rst!ID, 0)
    strSQLUpdate = "SELECT * FROM " & TableName & " WHERE ID = " & RecordID
    rstUpdate.Open strSQLUpdate, CurrentProject.Connection, adOpenStatic, adLockOptimistic
    StringValue = ""
    While Not rstUpdate.EOF
      StringValue = StringValue & CStr(rstUpdate!Tabelkode1) & "-" & CStr(rstUpdate!Tabelkode2) & "; "
      rstUpdate.MoveNext
    Wend
    StringValue = StringValue & CStr(rstUpdate.RecordCount)
    rstUpdate.Close
Debug.Print StringValue
    rst.MoveNext
  Wend
 
  rst.Close
  Set rst = Nothing
  Set rstUpdate = Nothing
 
Exit_UpdateRun:
  Exit Sub

Error_UpdateRun:
  Select Case Err.Number
    Case 3021
    Case 2501
    Case Is < 0
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'UpdateRun'"
  End Select
  Resume Exit_UpdateRun

End Sub

fldResult skal lige fjernes - jeg fik ikke lavet så det opdateres i tabel.

Hej Hugo

Ser først din løsning nu ....

Jeg skal have oprettet en ny tabel på baggrund af min sourcetabel ( tblConcept ) med følgende feltnavne

ID          ( txt )
TabelKode1  ( txt )
TabelKode2  ( txt )

Hvordan får jeg din kode til at virke ????

Har du nogen mulighed for at lave en lille db med de 2 tabeller som du ønsker de skal se ud og så lige maile den til mig
oz8hp  snabeltud  hotmail  punktum  com
Bare layout og en 8-10 records i sourcetabel
Evt. en testrecord i outputtabellen
Så kan jeg bedre danne mig en mening om hvad det er du har behov for.
Så skal jeg lige tage et kig på det i morgen en gang (men nok først hen på dagen)

Eksempel sendt

Løsningsforslag sendt

I henhold til ekspertens regler:
Nogen der skulle ahve interesse i eksemplet sender mig bare en mail - der er ikke hemmelige data i spil så..........

Virker perfekt :-)

Jamen så er der jo ikke et øje tørt i det lille hjem :-)


Tak for point.