Code to Unhide Columns 1

[cutestuff]

hi,

Someone please help.
I have the following code:

Me.qryEditMain_subform.Form.AllowAdditions = True
DoCmd.Echo False
strForm = Me.qryEditMain_subform.SourceObject
DoCmd.RunCommand acCmdDesignView
DoCmd.OpenForm strForm, acFormDS
DoCmd.RunCommand acCmdUnhideColumns
DoCmd.Close
DoCmd.RunCommand acCmdFormView
DoCmd.Echo True

I have a subform that I've hidden some columns (3 in fact). What I am trying to do is when a user clicks a button ("Add"), I am trying to "Allow Additions" and unhide the 3 columns I've hidden. The user is not supposed to see these if they are not adding stuff. The code above works except I want to automatically unhide the columns and not give the users the unhidecolumns dialog box.

Any ideas? Please?
Thanks ever so much...

 

[Remou]

How about

[tt]Me.qryEditMain_subform.Form.[Control Name].ColumnHidden = False[/tt]

 

[cutestuff]

hi Remou,

Will my control name be the name of my subform (since it has the hidden columns) or the name of the columns itself (for instance my hidden columns are: system, item, form)?

thanks for the help.

 

[Remou]

Control name is the name of the hidden column. The example above is intended to run on your main form.

 

[cutestuff]

OMG!

It WORKS!!!!

Thank you, thank you, THANK YOU!