title image


Smiley TIPP: Gruppenwechselverarbeitung in einem Recordset
Z.B. so :



Dim RS as DAO.Recordset, Cnt as Long, Merk as Long

Merk = -1

Set RS = Currentdb.Openrecordset("SELECT * FROM Stuecklistenpositionen ORDER BY Stuecklistennummer, Artikelnummer", dbopendynaset)

Do Until RS.EOF

If Merk RS!Stuecklistennummer then Cnt = 0

Cnt = Cnt +1

RS.Edit

RS!Zähler = Cnt

RS.Update

Merk = RS!Stuecklistennummer

RS.Movenext

Loop

RS.close

Set RS = Nothing



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: