title image


Smiley Mit OrdinalPosition ( siehe SQL-Code im Beitrag )
Hallo,

mit der Feldeigenschaft OrdinalPosition kannst Du die Reihenfolge festlegen ( siehe Testbeispiel ).



Gruß

Markus





Sub Position()

Dim dbs As Database, tdf As TableDef, fld As Field

Dim Positionen(4) As Variant



Positionen(1) = 2 ' Position Neu

Positionen(2) = 4 ' Position Neu

Positionen(3) = 1 ' Position Neu

Positionen(4) = 3 ' Position Neu



Set dbs = CurrentDb

Set tdf = dbs.TableDefs("TEST")



For Each fld In tdf.Fields

fld.OrdinalPosition = Positionen(fld.OrdinalPosition)

Next



End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: