Find højeste og laveste tal i en række

Altså dine kolonner er ID (dvs 13 kolonner som der ser ud nu?) og så skal du have tilføjet 2 hvor der skal for AA1 skal stå: 06 i den ene og 09 i den anden? For AA2 00 og null osv?

Det er korrekt :-)

De to ekstra felter er benævnt :

LatestActiveStart
LatestActiveEnd

Og skal indeholde resultatet af programkørslen for alle rækker

Og lige for en god ordens skyld. Ifølge det jeg tæller så skulle AA1 være inaktiv i 04 + 05 samt 11 + 12 - Dvs der skal stå 06 i LatestActiveStart og 10 i LatestActiveEnd ikke? (Og ikke 09 som du skrev?)

Sorry ... tastefejl ...

hhv. 06 og 10 er korrekt

Sådan. Den her tilføjer de 2 kolonner til slutningen af din tabel, efter at have slettet dem først (bare lige HUSK at ændre navnet "tableNameString").

Algoritmen er sådan set okay let, hvis du ikke kan gennemskue koden eller har spørgsmål så spørger du bare og så skal jeg prøve at forklare algoritmen for dig :-)

Den skulle virke som forventet medmindre din table er mærkbart forskellig fra det beskrevede :-)

---------------------------------

Public Sub RunLatest()
    Dim tableNameString, sqlString As String
    Dim db As Database
    Dim rec As DAO.Recordset
    Dim currStart, currEnd As String
    Dim isCurrStart, isCurrEnd, wasEnd As Boolean
   
    tableNameString = "Tabel1"
   
    Set db = CurrentDb
   
    'Fjerner kolonnerne "LatestActiveStart" og "LatestActiveEnd"
    If (fieldExists(tableNameString, "LatestActiveStart")) Then
        sqlString = "ALTER TABLE " & tableNameString & " DROP COLUMN LatestActiveStart"
        db.Execute (sqlString)
    End If
    If (fieldExists(tableNameString, "LatestActiveEnd")) Then
        sqlString = "ALTER TABLE " & tableNameString & " DROP COLUMN LatestActiveEnd"
        db.Execute (sqlString)
    End If
   
    'Tilføjer kolonnerne på ny (Altså null'er dem)
    sqlString = "ALTER TABLE " & tableNameString & " ADD COLUMN LatestActiveStart Text (10) NULL"
    db.Execute (sqlString)
    sqlString = "ALTER TABLE " & tableNameString & " ADD COLUMN LatestActiveEnd Text (10) NULL"
    db.Execute (sqlString)
   
    Set rec = db.OpenRecordset(tableNameString)
   
    'Går igennem posterne en efter en
    Do Until rec.EOF
        isStart = False
        isEnd = False
        currStart = 0
        currEnd = 0
        'Gennemgår kolonner
        For i = 0 To rec.Fields.Count - 1
            'Sørger for at den kun tager sig af de kolonner hvor navnene er numeriske
            If (IsNumeric(rec.Fields(i).Name)) Then
                If (rec.Fields(i) = 0) Then
                    If (Not isStart) Then
                        isStart = True
                        currStart = rec.Fields(i).Name
                        isEnd = False
                    End If
                ElseIf (rec.Fields(i) = -1) Then
                    If (Not isEnd) Then
                        isEnd = True
                        currEnd = rec.Fields(i - 1).Name
                        isStart = False
                    End If
                End If
            End If
        Next i
        rec.Edit
        rec.Fields("LatestActiveStart") = currStart
        If (isEnd) Then rec.Fields("LatestActiveEnd") = currEnd
        rec.Update
        rec.MoveNext
    Loop
       
    rec.Close
    Debug.Print "Done"
End Sub

Public Function fieldExists(ByVal tblName As String, ByVal fieldName As String) As Boolean
    Dim x As Integer
   
    For x = 0 To CurrentDb.TableDefs(tblName).Fields.Count - 1
        If CurrentDb.TableDefs(tblName).Fields(x).Name = fieldName Then fieldExists = True
    Next x
End Function

Jeg får fejl i ALTER TABLE statement

Her

'Tilføjer kolonnerne på ny (Altså null'er dem)
    sqlString = "ALTER TABLE " & tableNameString & " ADD COLUMN LatestActiveStart Text (10) NULL"
    db.Execute (sqlString)

Men det er vist også det eneste som fejler :-)

Jeg fjernede den del af koden som sletter/oprettet de to kolonner og kørte koden på resten ... det ser ud til at virke

Hold da kæ... hvor er det godt gået ... takker mange gange.