Unable to Sum controls on continuous form - ms-access

The following query gives correct results on a continuous form:
SELECT tblDisclosure.DBSInvoice, Sum(tblDisclosure.DBSFee) AS SumOfDBSFee, Count(tblDisclosure.ID) AS CountOfID, Sum([MyFee]+[Other]+[ExternalCheck]) AS Me
FROM tblDisclosure
GROUP BY tblDisclosure.DBSInvoice
HAVING (((tblDisclosure.DBSInvoice) Is Not Null));
On the form footer, I want to sum all DBS Invoices and Me controls, which I have Named 'DBSInv' and 'Me' . I am trying '=Sum([DBSInv])' and '=Sum([Me])' in Text Boxes but I get the result '#Error'.

The problem was because I was trying to use the NAME of the Text box, which I had created for convenience. If I name the texbox as SumOfDBSFee and make the Footer =Sum(SumOfCBSFee), it works.

Related

Having a report display everything from a form

So I have a combo box on my form, and depending on what is selected, the query filters the info and runs the report and displays that info. What I would like to do is have the report display everything when the combo box is left blank. Is there any way to do this?
Posting sample code would help, but here is a general answer.
I assume your query filter looks something like this:
SELECT Stuff From Table Where MyField = MyComboBox
If that is the case, you can do the following:
SELECT Stuff From Table Where (MyField = MyComboBox) OR NZ(MyComboBox, "") = ""
If either your combo box us set to nothing or an empty string, you will get the full result.

SSRS Report Builder 2012 - How to hide list based on field value?

I'm using Report Builder 2012 to create a report. I have inserted multiple text boxes and other controls inside a list box so that I can hide all the controls at once just by hiding the list box. I'm using a SQL Server stored procedure to fetch rows of data. I'm using below expression to hide/show the list box.
=iif(Fields!certificateType.Value = "CT", False, True)
It works fine but it only checks the first row of data. If certificateType field is "CT" in the first row of data, it shows the list box but it doesn't hide the list box back for the next row of data in which certificateType is not "CT". It seems like list box visibility only checks the first row of data and applies it for all the other rows as well. How can i check the visibility of list for all the data rows?
Okay, based on our chat I have updated this solution.
I mocked up some data that looks like this:
certificateType
---------------
AT
BT
CT
DT
ZT
I created a quick and dirty report with a list. In that, I added a rectangle with a textbox in it. I set the dataset for the list to the main dataset (DataSet1 in my case). I set the expression for the textbox to this:
=Fields!certificateType.Value
Image in design mode:
I clicked on the list, and in the Row Groups pane, I right-clicked the Details rows, and chose Group Properties. On the General section, I clicked Add to add a new group expression. Then I chose certificateType from the dropdown.
I moved to the Page Break section of the Group Properties dialog and ticked the Between each instance of a group check box. Click OK.
Now, the report will break for each instance of a certificate type that comes in the dataset. So, if you have ten different cert types in the data, you will get one page for each.
You can't see it in my image below, but there are 5 pages now.
Hope this helps!!

Autofilling my form in Access with the use of a Combo Box

I'm having a problem when I want to autofill my form in Microsoft Access. The idea is that I use a combo box to select a name. Then the onChange code of my Combobox automaticlly inserts all the other data in the proper field. I use this code on the Combo Box.
Private Sub cmbName_Change()
Me.tbPersonalNumber = Me.cmbName.Column(0)
Me.tbEmailadress = Me.cmbName.Column(2)
Me.tbBirthday = Me.cmbName.Column(3)
End Sub
This methode works fine for the personalnumber and the emailadress. But it doesn't work for the birthday date, it returns a null value but when I check my table there is is a date in the proper field.
Am I missing something? I tried everything but it wont work.
I was thinking that the problem is related to the birthday column being the last in the table. Or having the date type.
Thank you in advance for your time and efford!
Edit; The .Column(1) is missing because this is the name that is already inserted with the ComboBox.
There is some confusion caused by the wording of the question, I'll try to state back how I've interpreted and if I have it right it may lead you to an answer.
You have combo box called cmdName that is pre-populated with data from a table. The content of the combo box could look as below (you may have set column widths to zero to hide the data)
0001|Gary Evans|gary#email.com|01/Jan/1970
0002|J Rommers |JR#email.com |02/Jan/1970
When the user selects J Rommers Me.tbPersonalNumber is populated with Me.cmbName.Column(0) (0002) and Me.tbEmailadress is populated with Me.cmbName.Column(2) (JR#email.com) but Me.tbBirthday is not being populated with Me.cmbName.Column(3) (02/Jan/1970).
Assuming Me.tbBirthday is a text box with no code that might clear it out, I suspect the issue is within the combo box. Not being sure how your combo box is set up, I would suggets the following checks:-
In the combo box properties, does the Column Count equal 4?
In debug, with a breakpoint on Me.tbBirthday = Me.cmbName.Column(3), does it show you the date you are after?
If it is not there does the query that populates the combo box have it in?
Edit based on comments to help further: -
Change the query to SELECT Personel.PersonalNumber, Personel.Emailadress, Personel.Birthday, Personel.Name FROM Personel ORDER BY Personel.Name; this puts all the fields you want hidden at the front.
Change the column widths property of cmbName to 0,0,0, this first the ones you want hidden and leave the last one to fill the width of the combo box.
Ensure the column count property is still 4 as per the answer
Change your code as per below and Gustav's answer
Replacement code:-
Me.tbPersonalNumber = Me.cmbName.Column(0)
Me.tbEmailadress = Me.cmbName.Column(1)
Me.tbBirthday = DateValue(Me.cmbName.Column(2))
This accounts for the fields moving in the query and ensure the date shows as a date like you wanted.
Comboboxes (and Listboxes) always return a string, so convert that to a Date value:
Me!tbBirthday.Value = DateValue(Me!cmbName.Column(3))

autopopulating text boxes from combo boxes

I have created a form to input new work orders in access. I want the text boxes in my form to populate from the selection in the combo box.
The combo box lists serial number for equipment, and once a serial number is selected, I want CompanyName, PurchDate, LastMaintenanceDate, & ModelNo to populate.
I saw an example of dlookup and tried this expression on the Company Name textbox:
=DLookUp("[CompanyName]","SerialNoInfo","[SerialNoInfo].SerialNo= " & Str([Combo341].[Text]))
I keep getting an error #Type or #Error in the box depending on what I do. When I try to build a code for the event on update, nothing happens at all. I have no idea what I am doing wrong.
You can alternatively use :
Private Sub COMBOBOX_Change()
me.TEXTBOXNAME.Text = me.COMBOBOX.Column(X)
End Sub
Where TEXTBOXNAME is the the textbox you want to fill
Where COMBOBOXis the the combobox from which you want to get data
and X is the number of column with data (starting from 0 )

Conditionally disable buttons on continuous forms in Access

I have a continuous form in Access 2010 with a delete button that shows for each record shown on the form. I only want the delete button enabled on the very last record shown. I am stumped how to do it. Any help greatly appreciated. Thanks.
In access there is only one instance of a component on any form - in continuous forms its just copied several times. The only way you can have anything different on any single row in a contiuous form is through data (obviously) and through conditional formatting of a data aware component: the textbox.
And the formatting options are also quite limited. So there are two options: EITHER use a textbox that has the same background as the form and create a conditional format that changes the backcolor for the last row OR create table (ID,PICTURE) with two rows - one with a transparent picture (ID=1) and one with the picture of a button (ID=2) - and link it in the recordsource (Somethig along the lines of: SELECT .... pic FROM yourtable INNER JOIN pictable ON pictable.ID = yourtable.isLastRecord ...