Need to hide a column in a table on button click - ms-access

Question

I have a button that calls a macro which opens up a table. I'd like to hide a column in that table when it opens. The macro opens the table tChart1_Reportable and I'd like to hide the ID column.
I figure this has to be done in VBA with the RunCode action selected in the macro.
I haven't had luck finding code that works. Found this online but it doesnt work in the current form:
Public Sub SetColumnHidden()
Dim dbs As DAO.Database
Dim fld As DAO.Field
Dim prp As DAO.Property
Const conErrPropertyNotFound = 3270
' Turn off error trapping.
On Error Resume Next
Set dbs = CurrentDb
' Set field property.
Set fld = dbs.TableDefs!tChart1_Reportable.Fields!ID
fld.Properties("ColumnHidden") = True
' Error may have occurred when value was set.
If Err.Number <> 0 Then
If Err.Number <> conErrPropertyNotFound Then
On Error GoTo 0
MsgBox "Couldn't set property 'ColumnHidden' " &; _
"on field '" &; fld.Name &; "'", vbCritical
Else
On Error GoTo 0
Set prp = fld.CreateProperty("ColumnHidden", dbLong, True)
fld.Properties.Append prp
End If
End If
Set prp = Nothing
Set fld = Nothing
Set dbs = Nothing
End Sub

Answer 1

Although you really should think about using a query to accomplish this goal instead, the problem with this code is definitely that the Table itself does not refresh the hidden property on execution.
That being said, this would likely suffice as a solution to this problem:
Public Sub SetColumnHidden()
Dim dbs As DAO.Database
Dim fld As DAO.Field
Dim prp As DAO.Property
Set dbs = CurrentDb
'Set field property.
Set fld = dbs.TableDefs!tChart1_Reportable.Fields!ID
fld.Properties("ColumnHidden") = True
DoCmd.Close acTable, "tChart1_Reportable"
DoCmd.OpenTable "tChart1_Reportable"
Set prp = Nothing
Set fld = Nothing
Set dbs = Nothing
End Sub
To work this through a query, create a new query with Query Design, open it in SQL view. Your query should like something like this:
SELECT [Field1],
[Field2],
[Field3]
FROM tChart1_Reportable
Basically, add every field you want to view (by the field's name), removing the "ID" field from the list. This will accomplish what you're attempting to do. As far as why the code is not working for you, all I can say is it should be.