Akkumulering af felter i access

Udtryk1: [felt1] & " " & [felt2] & " " & [felt3] & " " & [felt4] & " " & [felt5] & " " & [felt6] & " " & [felt7] & " " & [felt8]

Den løsning ligger alle felter sammen :-)
Det var ikke det som var meningen, det som skulle ske var alt alle felter skulle flyttes til venstre så der ikke var nogen tomme felter se fra venste.

Jeg kan ikke se, hvordan du skulle kunne gøre det i en forespørgsel eller en update. Du kan jo kun "se" felterne i tabellen. Hvis f.eks. indholdet af felt3 flyttes/kopieres til felt2, vil indholdet jo stadig være der i felt3. Du vil altså ikke kunne flytte/kopiere indholdet af felt4 til felt3, for det indeholder jo data.

Det er ikke på nogen måde en optimal lagringsmetode. Det vil være meget bedre, at gemme data med et type-id og så et felt til værdien, altså en række pr. værdi i stedet for én række med flere værdier i felter.

Men hvis du fastholder din langt fra optimale tabelopbygning vil en reorganisering af data (update) efter min mening derfor skulle køres i VBA, f.eks.:

Sub ReorganizeTable()
    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("dinTabel")
    Do While Not rs.EOF
        If rs.Fields.Count > 2 Then
            ' Vi antager, at felt 0 er Id feltet, og at resten af felterne er de felter, der skal reorganiseres...
            For x = 1 To rs.Fields.Count - 2
                If IsNull(rs.Fields(x)) Then
                    'Det testede felt indeholder Null, finde det næste felt, som indeholder en værdi...
                    For y = x + 1 To rs.Fields.Count - 1
                        If Not IsNull(rs.Fields(y)) Then
                            rs.Edit
                            rs.Fields(x) = rs.Fields(y)
                            rs.Fields(y) = Null
                            rs.Update
                        End If
                    Next
                End If
            Next
        End If
    Loop
End Sub

NB! Koden er ikke testet...

OK - Så har jeg misforstået dit spørgsmål. Men enig i kjulius i, at din tabelstruktur langt fra er optimal.

Du bør undgå tomme felter i dine tabeller. Kaldes vist "forældreløse poster".

kjulius - jeg vil prøve at teste din kode

og enig i at man skal undgå tomme felter
problem er at det er ikke mig som laver tabeller,
det er data som jeg importere fra text, excel eller csv filer som jeg så efterfølgende vil have venstre stillet :-)

Hov der skulle da i hvert fald have været en rs.MoveNext lige før Loop instruktionen for at den kan virke.

TIP: Hvis nu felterne, der skal testes og ombyttes ikke ligger i forlængelse af hinanden, eller der findes andre felter i tabellen, som ikke skal opdateres, kan felternes selekteres ved at erstatte tabelnavnet med en SELECT:

rs=db.OpenRecordset("SELECT Id, Felt1, Felt2, Felt3, Felt4, Felt5 FROM dinTabel")

Ja helt vriker det ikke :-)
Sådan er resultatet

Oprindelig
Id    Felt1    Felt2    Felt3    Felt4    Felt5    Felt6    Felt7    Felt8    Felt9    Felt10    Felt11    Felt12    Felt13    Felt14    Felt15    Felt16
2    tekst1    tekst2    tekst3    tekst4    tekst5                        tekst6                   
3        tekst1    tekst2    tekst3    tekst4    ddddd                    tekst5                   
5    tekst1    tekst2    tekst3    tekst4    tekst5            ddddd            tekst6                   
8    tekst1    tekst2    tekst3    tekst4    tekst5                        tekst6    ddddd               

Efter kode
Id    Felt1    Felt2    Felt3    Felt4    Felt5    Felt6    Felt7    Felt8    Felt9    Felt10    Felt11    Felt12    Felt13    Felt14    Felt15    Felt16
2    tekst1    tekst2    tekst3    tekst4    tekst5    tekst6                                       
3    tekst5                                                           
5    tekst1    tekst2    tekst3    tekst4    tekst5    tekst6                                       
8    tekst1    tekst2    tekst3    tekst4    tekst5    ddddd                                       

Sådan burde det have set ud
Id    Felt1    Felt2    Felt3    Felt4    Felt5    Felt6    Felt7    Felt8    Felt9    Felt10    Felt11    Felt12    Felt13    Felt14    Felt15    Felt16
2    tekst1    tekst2    tekst3    tekst4    tekst5    tekst6                                       
3    tekst1    tekst2    tekst3    tekst4    ddddd    tekst5                                       
5    tekst1    tekst2    tekst3    tekst4    tekst5    ddddd    tekst6                                   
8    tekst1    tekst2    tekst3    tekst4    tekst5    tekst6    ddddd                                   
lidt spændt på at

Oprindelig
Id    Felt1    Felt2    Felt3    Felt4    Felt5    Felt6    Felt7    Felt8    Felt9    Felt10    Felt11    Felt12               
2    tekst1    tekst2    tekst3    tekst4    tekst5                        tekst6                   
3        tekst1    tekst2    tekst3    tekst4    ddddd                    tekst5                   
5    tekst1    tekst2    tekst3    tekst4    tekst5            ddddd            tekst6                   
8    tekst1    tekst2    tekst3    tekst4    tekst5                        tekst6    ddddd               

Efter kode
Id    Felt1    Felt2    Felt3    Felt4    Felt5    Felt6    Felt7    Felt8    Felt9    Felt10    Felt11    Felt12               
2    tekst1    tekst2    tekst3    tekst4    tekst5    tekst6                                       
3    tekst5                                                           
5    tekst1    tekst2    tekst3    tekst4    tekst5    tekst6                                       
8    tekst1    tekst2    tekst3    tekst4    tekst5    ddddd                                       

Sådan burde det have set ud
Id    Felt1    Felt2    Felt3    Felt4    Felt5    Felt6    Felt7    Felt8    Felt9    Felt10    Felt11    Felt12               
2    tekst1    tekst2    tekst3    tekst4    tekst5    tekst6                                       
3    tekst1    tekst2    tekst3    tekst4    ddddd    tekst5                                       
5    tekst1    tekst2    tekst3    tekst4    tekst5    ddddd    tekst6                                   
8    tekst1    tekst2    tekst3    tekst4    tekst5    tekst6    ddddd

så den smider noget at teksten væk,
hvis den første felt er tomt så bliver resultat indhold af det sidste felt der er noget i,

i de øvrige sletter den mellemligende tekst og sætter sidste felt ind sidst

OK, jeg tror jeg kan se, hvor problemet kunne være. Prøv at indsætte et Exit For efter Update i koden.

Hjalp det?

Yeps, nu virker det perfekt, har desværre ikke haft tid til at kigge på det før nu :-)

Okay, det var godt!

TÆnkte lidt på
nedenstående virker jo perfekt - men kan man få den til at løbe den modsatte vej så den ikke akkumulere mod venstre men mod højre?

Private Sub Kommandoknap0_Click()

    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("adresser")
    Do While Not rs.EOF
        If rs.Fields.Count > 2 Then
            ' Vi antager, at felt 0 er Id feltet, og at resten af felterne er de felter, der skal reorganiseres...
            For x = 1 To rs.Fields.Count - 2
                If IsNull(rs.Fields(x)) Then
                    'Det testede felt indeholder Null, finde det næste felt, som indeholder en værdi...
                    For y = x + 1 To rs.Fields.Count - 1
                        If Not IsNull(rs.Fields(y)) Then
                            rs.Edit
                            rs.Fields(x) = rs.Fields(y)
                            rs.Fields(y) = Null
                            rs.Update
                            Exit For
                        End If
                    Next
                End If
            Next
        End If
        rs.MoveNext
    Loop
End Sub