title image


Smiley Plan.....
Hallo Jürgen,Wenn Du alle artikel updaten willst, geht es so:Dim db As Database dim x as single Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Artikel", DB_OPEN_DYNASET) rs.MoveFirst Do Until rs.EOF = True With rs .edit ![Aufpreis] = ![Aufpreis]*x .update .MoveNext End With LoopWenn nicht alle Artikel ausgewählt werden sollen schau in die Hilfe zu OpenRecordsetGruß, Bastian

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: