• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 483
  • Last Modified:

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?
0
Helicopter
Asked:
Helicopter
1 Solution
 
aburrCommented:
Make the width of the columns you want hidden 0.
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
0
 
Victor SpiridonovCommented:
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
Transaction-level recovery for Oracle database

Veeam Explore for Oracle delivers low RTOs and RPOs with agentless transaction log backup and transaction-level recovery of Oracle databases. You can restore the database to a precise point in time, even to a specific transaction.

 
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.
0
 
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.
0
 
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
0
 
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.
0
 
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
0
 
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
0
 
ArveCommented:
You must do something like this:
For each field in form
  field.ColumnHidden=false
next

Regards, Arve
0
 
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.
0
 
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
0
 
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 :)
0

Featured Post

Prepare for your VMware VCP6-DCV exam.

Josh Coen and Jason Langer have prepared the latest edition of VCP study guide. Both authors have been working in the IT field for more than a decade, and both hold VMware certifications. This 163-page guide covers all 10 of the exam blueprint sections.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now