Jeg har behov for at Tabelkode1 og Tabelkode2 sammensættes i een tekststreng pr. ID, samt en summering af antal kombinationer der er i tekststrengen, altså lidt i denne stil :
ID Resultat 100 101-05;101-100;102-99;3 200 101-22;110-10;2
Sidste informating i resultatet skulle så være optællingen
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
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
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)
Jamen så er der jo ikke et øje tørt i det lille hjem :-)
Tak for point.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.