Reports :: VBA Code That Will Hide A Column That Has Zeros And Move Over Remaining Columns
Aug 11, 2014
I have a report that displays maybe about 4 columns that read data and if a columns reads zero then I have a code where it will hide, but my problem is that I cannot get the columns to move over once the column that is zero is invisible.VBA code that will hide a column that has zeros and move over the remaining columns so that when the report is ran it will not show just an empty white space.
Below is the code that I have for a query. Currently the GrandTotal Column appears to the left of all the Weekly Columns. Is there a way I can have the GrandTotal column appear to the right of all the Weekly Columns? The weekly columns will expand or contract depending on the dates selected.
PARAMETERS [Forms]![Queries_ReportsFRM]![StartDateTxt] DateTime, [Forms]![Queries_ReportsFRM]![EndDateTxt] DateTime, [Forms]![Queries_ReportsFRM].[FaultCategory] Text ( 255 ), [Forms]![Queries_ReportsFRM].[SystemGroupProblem] Text ( 255 ); TRANSFORM Val(Nz(Sum([Totals]),0)) AS SumOfTotals SELECT [Trends-1-3TON-WEEK].SystemGroup, [Trends-1-3TON-WEEK].FaultCategory, [Trends-1-3TON-WEEK].Problem, Sum([Trends-1-3TON-WEEK].Totals) AS GrandTotal FROM [Trends-1-3TON-WEEK] GROUP BY [Trends-1-3TON-WEEK].SystemGroup, [Trends-1-3TON-WEEK].FaultCategory, [Trends-1-3TON-WEEK].Problem PIVOT [Trends-1-3TON-WEEK].YearMonthWeek;
I'm having trouble with one of my reports. attached is a screencap of my report. The second name which is highlighted i need to either nudge it to the right so it is not directly under the first name OR remove it completely but keep the times and a gap for the next record.
I am creating is a sign in database where staff sign in/out for each day of a week. the issue is when the staff member signs in/out in the morning and then does the same when they get back from lunch it is difficult to read. This report is only printed once a week and will not show after a time frame of 5 days.
So, i still need that name to show up for the next day.
I have a report based on a table. In the report I sum the columns. In a textbox ControlSource I use "=Sum([ColumnTotal])" and it works. Some of these numbers are zeros. I would like to exclude the zeros in the total. How do I do that?
I have to add the row data in two columns together. I used
val([COLUMN 1])+val([COLUMN 2]) and it works unless one of the columns has a zero in it. For example if column 1 is 25 and column 2 is NULL it runs the query but puts a #ERROR in those rows. Please help.
I have a accdb pointed at Sql Server 2012 via ODBC pushing text from a text box back to a Sql server's column that is a nvarchar(10) to store zip codes.
Edit: I confirmed that the accdb's linked table has a datatype of text for the zip code column.
Oddly, the Access form's textbox is sending back the text, but stripping out the preceeding zero in the zip code - almost like when excel (shudder) strips the preceeding zeros away from SSNs and Zipcodes - treating them like a number - and not text.
How do I stop this?
The form object is a text box, and the sql server backend doesn't mind the preceeding zero. When I manually set the value to = '01111' using sql server management studio, the value is accepted - and then later viewable (with the zero) when using the accdb's form...
This leads me to believe the form is stripping away the zero when inserting the record. The add records button uses the following to insert the records:
Code: Private Sub btnAddDioOffice_Click() Dim strSQL As String If ListBoxDios.Value <> "" And txtDioOffName.Value <> "" Then
Hi, I have data from a form on my website in a text file, that corresponds to each visitor's input, each 13 lines in the form belongs to one visitor, as shown (twice) at the end of this message.
What I would like to do is have each visitors inputs translated to ONE row, with 13 columns/fields each. It could be appended to the same table or preferably generated in a new one. Note, there are no blank fields, some won't have data after their title, i.e. addy_line_2: is often blank, but at the very least, addy_line_2: or another field name is always there.
It would ROCK if I could also automatically take the name of each field out, i.e. each name is continuous characters up to the : (colon) ...
Thanks in advance, my Access knowledge is obviously limited, I'm sure this is fairly simple!
The fields:
Phone: 213-555-1212 Submit: Continue addy_line_1: 1000 Melrose Place addy_line_2: badge: city: Los Angeles email: homegroup: name: program: state: CA volunteer: zip: Phone: Submit: Continue addy_line_1: addy_line_2: badge: city: email: homegroup: name: program: state: volunteer: zip:
thank you thank you thank you thank you thank you !!
OK, I have a truck mileage database with a columns for monthly "StartingMiles" and "EndingMiles" - At the beginning of each month I want to automatically move the entire content of the "EndingMiles" column to the "StartingMiles" so I can start a new reporting month. I'm assuming I can use an Update Query to do this - correct? How do I setup the Update query to perform this? Or is there a better way?
I am creating a report that has the variable address as usual. Name Address1 Address2 City, State zipcode
If there is no value for address2, is it possible to shift the locatoin of city state zip up into the Address 2 location? I would like to shift the lable up with code, but can't find a way to do it.
I am using an unbound data source so i have full control over the variable data.
For whatever reason, this code will move to the last record that was entered in YESTERDAY, but I want it to move to the last record that was entered in TODAY. If I change the code to only records that are dated today, it claims there are no records (EOF), when there clearly are. why the code will not move to the last record of the table, it is only moving to the last record that was entered yesterday.
I have a datasheet as a sub-form on a main form. Because the main form is accessed from 2 different forms in the system (let's call them A and B), I hide a column on the datasheet that is not relevant when the access is from Form B. This was working fine.
Until I added a new field to the datasheet/subform with some conditional formatting (background colour change dependent on field content). Now the hide column function causes an error which locks the database. I removed the conditional formatting and the hide column functions works fine. Please note the column being hidden and the column with the conditional formatting are not the same column.
Seems the combination of hide column AND conditional formatting in the same datasheet is the problem.
I've created a report which shows zeros in various columns where there aren't any values to report. I think the report would look better and be easier to read without these zeros. I would like to suppress them and display blanks instead. I'm not sure how to do this.
I have calculated fields on my tables and used zero values as default to show totals. But when I view my report, all the zeros appear. Don't want those zeros to appear on the report.
I would like to know if the following is possible: I have a table, I have a form based on that table (datasheet view) and I would like for certain columns to visible or not based on the input on a Combobox (list of countries) that is based on another form.
I have searched on the web and I found that the following:
On a button based on the main menu form:
Code: Private Sub Go_Click() Dim stDocName As String Dim stOpen As String stOpen = Me!cboDest stDocName = "Datasheet" DoCmd.OpenForm stDocName, , , , , , stOpen
and then on the event "on open" of the form Datasheet I have inserted the following:
Code: Private Sub Form_Open(Cancel As Integer) Select Case OpenArgs Case "USA" Forms![Overflow]![Tasks].Visible = True Forms![Overflow]![Constant Number (Min)].Visible = True
[Code] ....
I have done it as a test, but it appears that it does not work. It opens the forms, but it does not hide or show the columns based on the option, it brings all the columns.
I am pretty new to VBA and I am having the same problem of hiding and un-hiding columns on a datasheet of a split form. I am building a system that will be used in front of customer and therefore wish to hide columns that contain cost sensitive data. The same forms need to be able to show the Sales Rep the hidden columns simply by ticking a box. Basically a toggle on and off of hidden columns.
I have been playing around with the code below (which i found in another forum) to hide the Field called COO when I click the tick box called chkHIdeFields check box. This works on a Single form but not on a datasheet of a split form.
Private Sub chkHideFields_Click() ' Note: vbTrue = -1 If Me.chkHideFields = vbTrue Then Me.COO.Visible = True Else: Me.COO.Visible = False End If End Sub
I have been able to hide the column of my split form by using the ColumnHidden property of the On Load event just as a proof of concept that the ColumnHidden property actually works to hide a column, which it does. This is the code that im using to hide the column called COO.
Me.COO.ColumnHidden = True
However if I then set it to = False and then close and open the form, it doesn't unhide the column. the only way I can unhide the column is to do it from the Form view via the un-hide dialogue pop up box.
I have two issues here, the first one is getting the form to recognize when to hide and when to show the column of the datasheet on the split form and the second is to get the code to for the check box method.
Lastly once I get it working for 1 field I need to be able to define a list of 7 or 8 other fields all at the same time.
I have a subform in datasheet view and I wish to selectively hide columns I'm not using (depending on the query). I wrote a small function to make it easier. Here's my code: Function HideColumn(myForm As SubForm, myLabel As String) myForm.SetFocus myForm.Controls(myLabel).SetFocus DoCmd.RunCommand acCmdHideColumns End Function So all I do is send the subform name while I'm using the parent form and then give it the column name to hide. Oddly enough this code works for columns such as "Net B" and "Net% +/-", but it doesn't work with the columns "Period B" or "Period A". On my subform the text boxes and their labels have the same name (if that even matters). I keep getting a 2465 error (field not found) no matter what I change the column name to.
Currently I have a query where the criteria is dependent on the combo boxes on my form. I would like to add checkboxes to my form which determines which fields are shown or hidden. For example if I had a checkbox for address, selecting it on my form will show the address column in my query results.
I am displaying table records in access form Datasheet view. While business users accessing that form, they are hiding and rearranging some columns for their use. So it will be hard for other users to access. I just want to know any settings are avaible in MS Access or can we accomplish this using any events or macro or modules??
I have a combo box which is populated by a table with the fields ID, First Name and Surname. What I want to do is display the first name and surname concatenated and hide the ID column, but populate the field with the ID number.
I want to automate a query so when the user views it they see only the columns that have data. Columns that do not have data are not there.I am using MS 2007
My Access tool is setup to import data into tables and then the user views the data imported. However, if their's no data (and no column to import) I want the query report to not include the column.
I woul like to programatically (with VBA code) hide and unhide the database window.
In Access 97, this can be done with Tools > Startup > Display database window box (check/uncheck).
But I would like my program does that himself : when the user launches the application, the database window should be hidden and when he leaves, the database window should be shown again.
So I do map drive on this way and it is successful ...
Code: Dim FSO As Object Dim objFile As Object Dim objFileS As Object Dim WshNet As Object persistent = false set objNetwork = CreateObject("WScript.Network")
But I need to have mapped drive hidden from the client users So I red that i might be possible if put $ after the share folder
Code: objNetwork.MapNetworkDrive "driveletter:", "serversharename$", persistent, "username", "password " but it does not work.. the other way is to set values in win registry, but I don't like that way...
I've got a main form with two lists boxes. I want to show the visible columns in my subform (which is a datasheet) in one listbox and show the hidden columns in the other. Also I want to allow the user to hide / show columns using right or left arrow buttons between the list boxes. My subform is bound to a stored procedure using ADO.
I've recently upgraded on of my systems from Access 2003 to 2010.
In the past I've always used to the ctrl key and the cursor keys to move and fine tune the position of my controls on my reports. However since upgrading the controls jump about all over the place when I try to move them.
I have noticed that when I've selected the controls and start to move them a little black line appears on the vertical ruler and when I release the controls they seem to move to it's position.
