title image


Smiley Re: ID vergeben in Abhängigkeit von Bedingungen
Na, dann im Prinzip:



Dim RS as DAO.Recordset, SummeVolumen as Double, LHMID as Long

Set RS = Currentdb.Openrecordset("SELECT * FROM tblAuftragsposition WHERE AuftragNr = " & MeinAuftrag & _

" ORDER BY Position", dbopendynaset)

LHMID = 1

SummeVolumen = 0

Do Until RS.EOF

If SummeVolumen > MaxVolumen then

LHMID = LHMID +1

SummeVolumen = 0

end if

SummeVolumen = SummeVolumen + RS!Volumen

RS.Edit

RS!LHM_ID = LHMID

RS.Update

RS.Movenext

Loop

RS.Close





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: