Hide Columns in Datasheet

In Access 8.

Right clicking the title bar of a datasheet gives an unhide columns option which presents the user with a list of columns to be hidden or unhidden. When the datasheet is a subform however this option is not available. I have simulated it by creating a temporary table,loading it with the columns of the passed datasheet and creating a continuous form style dialog box bound to the temporary table. It's a pain to have to create the table though, does anyone have a better way?
LVL 8
HelicopterAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

aburrCommented:
Make the width of the columns you want hidden 0.
HelicopterAuthor Commented:
The problem isn't hiding the columns, this option is still available on Access' own pop up menu. The problem is Unhiding them after they are hidden as you can in a datasheet that isn't a subform....thanks for your response though
Victor SpiridonovDatabase DirectorCommented:
If the only thing you want to do is prevent users from seeing some of the colums , create a query containing only the columns your want and base your form on this query.
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

HelicopterAuthor Commented:
I want them to be able to hide and unhide a specific column as and when they choose. If you look at a datasheet and right click the title bar you will see a menu item "Unhide". This is what I am trying to achieve.
nirmalaCommented:
I have not done this, but it should be technically possible.

Have a command button on the main form, that users can click on.

This can list the controls in the subform, along with the columnhidden property. These can be displayed using a pop-up form. Users can then decide which controls should be hidden. On the close event of the pop-up form, you can go thru controls of the subform and change columnhidden property of those controls that user has selected.

While checking the controls collection, you may have to filter out the irrelevant ones. One easy way would be to name all relevant controls beginning with a particular series of letters.
HelicopterAuthor Commented:
This is more or less what I did originally....the problem comes when you need to make a generic dialog box which is dynamically created. I have about 10 of these datasheet forms and I was trying to avoid writing a specific dialog box for each based on their column heaing names. Also to avoid having to change anything should I need to add or remove fields for some reason. I really don't know why Microsoft chose to disable this particular function in subform datasheets. Thank you all for your responses
HelicopterAuthor Commented:
Sorry nirmala I just read your comment again. Yes using a list box is a possibility but it's not as satsfactory as the MS dialog somehow.
oddehCommented:
If you mark more than one column and then dbl-click in the border between any of them, every hidden column in the marked area will become visible again.
OddEH
HelicopterAuthor Commented:
This is true, but the problem is it requires the user to know where the column is that he is trying to unhide. If you have several hidden columns this becomes very hit and miss., which is why the dialog box is good because it lists all available columns and shows whether they are hidden or not. Clicking on a check box then toggles that state.

I suppose what I'm really after is either the API call to access this dialog box directly or some means of basing a query on a collection without storing the information in a temporary table. Thanks for the response though
ArveCommented:
You must do something like this:
For each field in form
  field.ColumnHidden=false
next

Regards, Arve
HelicopterAuthor Commented:
Arve, that will hide/unhide all columns, which isn't exactly what I want to do. Currently the customer has this as a "next best" but he wants to be able to show and hide any column by selecting it from a list as you can from the menu in a table or datasheet when it's not a subform. As I said in my original post, I have found a work round but it means creating a temporay table an then immediately deleting it when my dialog is closed.

Thanks for responding though.
ArveCommented:
The, I can think of tw solutions:
1 find the hidden name of the form that displays hidden colums in formview (not subform-view) and open that form. I know that it is possible ti change the Shift-F2-form, so to get this form should be possible.
2. create a listbox-function that does what you want, th MS kb has an axample of a listbox-function with x'es that simulates a multiple noncontigous selection, and in that function incorporate the code I supplied above (probably all three lines :-)).

Her is a list-box function.
The subform name is table1
The main form is form1
The third form with only a listbox is form2
The listbox is list0
bound column is 1
row source type: VisKol
Function VisKol(fld As Control, id As Variant, row As Variant, col As Variant, code As Variant) As Variant
    Dim intOffset As Integer
   
    Select Case code
        Case acLBInitialize             ' Initialize.
            VisKol = True
        Case acLBOpen                       ' Open.
            VisKol = Timer         ' Unique ID.
        Case acLBGetRowCount                ' Get rows.
            VisKol = Forms!Form1!Table1.Form.Count
        Case acLBGetColumnCount     ' Get columns.
            VisKol = 2
        Case acLBGetColumnWidth     ' Get column width.
            VisKol = -1                ' Use default width.
        Case acLBGetValue                   ' Get the data.
            Select Case col
            Case 0
                'Here we want name
                VisKol = Forms!Form1!Table1.Form.RecordsetClone.Fields(row).Name
            Case 1
                'Hidden?
                VisKol = Forms!Form1!Table1.Form(Forms!Form1!Table1.Form.RecordsetClone.Fields(row).Name).ColumnHidden
            End Select
    End Select
End Function
Private Sub List0_Click()
   
    Forms!Form1!Table1.Form(Me!List0).ColumnHidden = Not Forms!Form1!Table1.Form(Me!List0).ColumnHidden
    Me.Refresh
End Sub

Form2 must br made as a popup, or you can put the listbox in your main form.
The way I get the columnhidden-information is a bit long and can probably be shortened, but time is running out.

I really want your points!

Regards, Arve

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
HelicopterAuthor Commented:
Arve, I just spent most of the morning doing more or less the same thing, with the added refinement of creating an array of column headings which makes the routine generic. Still we were in the same ball park, so have the points if it means that much to you :)
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.