Move Column Position use Query

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Can i use a query to move last column (Field) to second column?

my example but doesn't work
DoCmd.RunSQL "ALTER TALBE [TABLE NANE] ALTER [MyField] POSITION = 1"

Thank you.
 
Try this:

Dim db as DAO.Database
Dim tbl as TableDef
Set db = CurrentDb
Set tbl = db.TableDefs("TableName")
tbl.Fields("MyField").OrdinalPosition = 1

Note: you will need to add an appropriate DAO reference, if not already
included.

HTH,
Nikos
 
Back
Top