Move Column Position use Query

[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.

 

[Nikos Yannacopoulos]

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