Opdateringsforespørgsel

Ønsker du "kun" som resultat en redigeret tekstfil?

Resultatet skal lagres i samme database

OK - tabel1 (med en struktur som tekstfilen og de viste data - alle 9 linier) - er kopieret til en ny tabel - tabel2. Heri er der insat et ekstra felt FeltID - præcis som du illustrerer.

Et modul er oprettet i db med følgende indhold:

Option Compare Database
Dim db, tabel
Sub opdaterTabel()
Dim fra, til
    Set db = CurrentDb
    Set tabel = db.OpenRecordset("tabel2")

    fra = 1
    For f = 1 To tabel.RecordCount
        With tabel
            If .Fields(2) = "S" Then
                feltId = .Fields(3)
            Else
                If IsNull(.Fields(2)) = True Then
                    til = .Fields(0) - 1
                    opdater fra, til, feltId
                    fra = .Fields(0) + 1
                End If
            End If
           
        .MoveNext
        End With
    Next f
    tabel.Close
    db.Close
End Sub
Private Sub opdater(fra, til, id)
Dim tabel As Recordset, f
    Set tabel = db.OpenRecordset("tabel2")
   
    For f = fra To til
        If findRecord(f, tabel) = True Then
            With tabel
                .Edit
                .Fields(1) = id
                .Update
            End With
        End If
    Next f
    tabel.Close
End Sub
Private Function findRecord(nr, tabel As Recordset)
    tabel.Index = "primarykey"
    tabel.Seek "=", nr
   
    If Not tabel.NoMatch Then
        findRecord = True
    Else
        findRecord = False
    End If
End Function
- - - - - - - - -

resultatet er følgende i Tabel2:

id    feltID    felt1    felt2
1    ID1    xx    et eller andet
2    ID1    S    ID1
3           
4    ID2    yy    et eller andet
5    ID2    S    ID2
6           
7    ID3    zz    et eller andet
8    ID3    S    ID3
9

Koden fejler i

Private Sub opdater(fra, til, id)

Har du testet den ?

Ja - det viste resultat er direkte fra tabellen

Hvad er fejlmeldingen?

Ser din tabel strukturelt ud på samme på, som vist i resultatet?

Compile error :
Method or data member not found

ved .Edit

Hvis du sender din mail til pb@supertekst-it.dk - så kan du få hele databasen.

Ok, den fejlede bl.a. fordi jeg ikke havde ID som promær nøgle
Takker for hjælpen

Selv tak