Changing Field Position not working

[Gwen]

Please assist.

I am using the code below to change the field positions:

Function chgfldpos(strTableName As String)
Dim db As Database
Dim tblXL As TableDef

Set db = currentdb
Set tblXL = db.TableDefs(strTableName)

With tblXL
..Fields("fld1").OrdinalPosition = 0
..Fields("fld2").OrdinalPosition = 4
..Fields("fld3").OrdinalPosition = 5
End With

End Function

It's not working at all.

Please help
Thanks

 

[Ralph]

I copied your code and it worked for me. Are you getting an error message?

 

[Gwen]

No error message.
The table was created from a query make table.
Any suggestions?

 

[Ralph]

I just tried that too and it worked. I created a sub to run my query then
call the function and it works. Sorry, not sure what is wrong on your end.

Sub TestFieldChg
Dim retVal As String
DoCmd.OpenQuery "Query1"
retVal = chgfldpos("Table2")
End Sub