exlude from column ordering a field

[sal21]

I have maked this code and it work nice, for me;-) Now i want to exclude fronm column ordering the filed named "DATA_AGG" how to? here the mdb in access:www.mytempdir.com/1323897 Option Explicit Sub ORDER_FILEDS() Dim DATABASE As DAO.DATABASE Dim TABELLA As DAO.TableDef Dim CAMPO_TEMP As DAO.Field Dim POSIZIONE() As Integer Dim CAMPO_NOME() As String Dim INT_TEMP As Integer Set DATABASE = OpenDatabase("\\GCD01F4500\DATI\PUBBLICA\ANTIRIC\OPERATORI.MDB") Set TABELLA = DATABASE.TableDefs("TEST") With TABELLA ReDim POSIZIONE(0 To .Fields.Count - 1) As Integer ReDim CAMPO_NOME(0 To .Fields.Count - 1) As String For INT_TEMP = 0 To .Fields.Count - 1 POSIZIONE(INT_TEMP) = .Fields(INT_TEMP).OrdinalPosition CAMPO_NOME(INT_TEMP) = .Fields(INT_TEMP).Name Next INT_TEMP For Each CAMPO_TEMP In .Fields CAMPO_TEMP.OrdinalPosition = 1 Next CAMPO_TEMP End With DATABASE.Close End Sub

[nlarson11]

because you are no longer dealing with a 1 to 1, you need to use a different varaible for the posizione and camp_nome. dim INT_ACC as integer = 0 For INT_TEMP = 0 To .Fields.Count - 1 If .Fields(INT_TEMP).Name <> "DATA_AGG" Then POSIZIONE(INT_ACC) = .Fields(INT_TEMP).OrdinalPosition CAMPO_NOME(INT_ACC) = .Fields(INT_TEMP).Name INT_ACC = INT_ACC + 1 End If Next INT_TEMP