Hide / View columns in Subform

[Alex Motilal]

I am using the following code (got from Access Template) in a Command Button to view / hide columns in a Form:



Private Sub cmdShowHideColumns_Click()
On Error GoTo cmdShowHideColumns_Click_Err

DoCmd.RunCommand acCmdUnhideColumns

cmdShowHideColumns_Click_Exit:
Exit Sub

cmdShowHideColumns_Click_Err:
MsgBox Error$
Resume cmdShowHideColumns_Click_Exit

End Sub

I want to place the Command Button on the Main Form & View or Hide columns in the Subform. Is it possible? And if so how I should modify the code.

Regards,
Alex
?

[Bob Fitz]

A couple of questions
Is your sub form in datasheet view?
Which columns are to be shown/hidden with this one button?

[Alex Motilal]

Thanks Bob. The Subform is a Datasheet.
If it is a Datasheet in the Main Form, clicking the button will generate a Popup Form showing all the columns. We can check whatever column we need to hide or view. I just want like that. I got the code from the Students Template in Access 2016.
Regards
Alex

[Bob Fitz]

When I did this in an application that I developed I changed the ColumnWidth property with vba.
Something like:
Form.ControlName.ColumnWidth=0 (hides column)
Form.ControlName.ColumnWidth=-2 (shows column)

[Alex Motilal]

I used this code on the click event of the Command Button on the Main Form & succeeded.

Private Sub CommandHideView_Click()
Me.NameOfSubform.SetFocus
DoCmd.RunCommand acCmdUnhideColumns
End Sub

Alex