Solved

Hide Columns in Datasheet

Posted on 1998-05-22
13
460 Views
Last Modified: 2008-02-01
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?
0
Comment
Question by:Helicopter
13 Comments
 
LVL 27

Expert Comment

by:aburr
ID: 1974279
Make the width of the columns you want hidden 0.
0
 
LVL 8

Author Comment

by:Helicopter
ID: 1974280
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
0
 
LVL 7

Expert Comment

by:spiridonov
ID: 1974281
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.
0
 
LVL 8

Author Comment

by:Helicopter
ID: 1974282
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.
0
 

Expert Comment

by:nirmala
ID: 1974283
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.
0
 
LVL 8

Author Comment

by:Helicopter
ID: 1974284
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
0
Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 8

Author Comment

by:Helicopter
ID: 1974285
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.
0
 

Expert Comment

by:oddeh
ID: 1974286
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
0
 
LVL 8

Author Comment

by:Helicopter
ID: 1974287
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
0
 
LVL 1

Expert Comment

by:Arve
ID: 1974288
You must do something like this:
For each field in form
  field.ColumnHidden=false
next

Regards, Arve
0
 
LVL 8

Author Comment

by:Helicopter
ID: 1974289
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.
0
 
LVL 1

Accepted Solution

by:
Arve earned 150 total points
ID: 1974290
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
0
 
LVL 8

Author Comment

by:Helicopter
ID: 1974291
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 :)
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now