hente op opdatere recordset

http://docs.sun.com/source/817-2514-10/Ch11_ADO102.html

you might find this link usefull too
http://www.waltermilner.com/downloads/VBA/ADO%20VBA%20Programming%20in%20Access.ppt

sådan har jeg også gjort men får fejlen " opdateringen berører for mange rækker.
er du sikker på dette også vil virke i "Do Until recordset.EOF"

I cant see exactly what your trying to do so I cant say why its failing.

The problemis maybe because you are try and change a primary key value which is used as a relationship in other records?

kode

Do Until rst.EOF

reportnumber = rst![Repopl Nr]


If ((reportnumber = lastreportnumber) And (samerepaircounter < 3)) Then
                       
                     
                      sparenr = rst![Resdel Nr]
                      stk = rst![stk]
                      amount = rst![Netto]

                       
                      '  rst![Resdel Nr2] = sparenr
                      ' rst![stk2] = stk
                      'rst![Netto2] = amount
                       
                        sparecounter = (sparecounter + 3)
                       
                        ' Skriver A på andre end første linie til hver servicesag
                     
                        rst![firstline] = "A"
                        samerepaircounter = (samerepaircounter + 1)
                        Else
                        ' sætter linie nummer på første linie med ens rapportnummer
                        sparecounter = 20
                       
                        linenumber = i
                       
                        ' Sikre X på første linie til hver servicesag eller A hvis det er spares nr 3
                                            If (samerepaircounter <> 3) Then
                        rst!firstline = "X"
                        rst!firtline = "X"
                     
                                            Else
                          rst!firstline = "A"
                                            End If
                       
                        ' samerepaircounter sikre at det er maks 3 reservedele pr. rep. sag
                        samerepaircounter = 1
                 
                        End If
                       
                        lastreportnumber = reportnumber


rst.Update

rst.MoveNext



Loop

rst.Close

this only shows me some code there can be a number of reasons why it fails!
can you send me the dB? Maybe its easier to see the problem
ekspertenATsanthell.dk
AT = @