title image


Smiley Wobei man normalerweise...
die Sortierung gleich in der SQL angibt:



Dim DB As DAO.Database, RSE As DAO.Recordset

Set DB = CurrentDb

Set RSE = DB.OpenRecordset("SELECT * FROM MTX ORDER BY release", dbOpenDynaset)

'RSE.MoveFirst redundant!

Do Until RSE.EOF ' <= True redundant!

Debug.Print RSE![release], RSE![Part_Number], RSE![Tool Type]

RSE.MoveNext

Loop


Gruß aus dem Norden

Reinhard


Bitte immer die Access-Version angeben


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: