Using Sum Function Between Forms
Apr 29, 2005
Hi
I have a main form and two sub forms for a stock control db.
The main form shows the product with controls for units on order and units on hand.
The first sub form handles stock transaction from a seperate purchase order form. This sub form has 'units ordered' and 'unit received' fields, which the relate back to the main form to calculate the units on order/on hand etc. So when a transaction is made on the purchase order the units on order will show say 100 until 100 is entered into the received field to update the units on hand etc.
Now the problem is that i have another sub form which basically is for stock going out once the order arrives in the store. I have a quantity out field but can not get the units on hand in the main form to sum the columns and calculate what is left when goods leave.
In the fisrst sub form (transactions) I have a units sold but it is hidden as it is needed. I could use this to sum the quantity out in the seconed stock control sub form but can not get it to do it.
The db has no data in it at present so i could post it?? but i really need someones help with this as the db is needed very shortly.
many thanks and i hope i explained myself properly.
View Replies
ADVERTISEMENT
Jan 30, 2014
I have a project at hand and it's been a predecessor of mine and client has asked me to do some work on it and extend functionality - but I have not really delved into Access before and I have had to worked my way through to this final snag :/
The Main Form has one sub form. This sub form allows the user to add multiple order items i.e. qty, stock, description from records within the system - fairly straight forward.At the last column of each row is the sub total of those particular items i.e.
Qty Unit | Item ID | Total
-----------------------
2 | 1234 | 80.00
------------------------
1 | 43526 | 20.00
------------------------
> | |
So the total is a function of =[Qty Unit] * [Unit Price].Then in the Footer of this SubForm is the Sub Total
=SUM([Qty Unit] * [Unit Price])
All fine and well..... However, the additional functionality kicks in.
Lets add the additional customer_id from the Main Form. Each Item bought is dependent on the customer_id i.e. they get special prices depending on who they are.So a New table is made which has the Item ID and SpecialPriceID (of a table to define as a specialPrice) and the Price linked to this Item and Special Price category. So say that there are two groups of users "wholesale" and "nonwholesale" these would be SP_1 and SP_2 and each client is defined either one of these, and each stock item has a Price for each SP_1 and SP_2. Hopefully I've explained myself there.
Back to the SubForm. So now the Total needs to calculated differently with needed the external customer_id from the Main Form.
Code:
Function CalculateSpecialPrice(ItemID As String, CustomerID As String, Unit As Integer)
Dim SPSelect As String
SPSelect = "SELECT Price FROM [Items_SpecialPrices] WHERE"
SPSelect = SPSelect & " ItemID = '" & ItemID
SPSelect = SPSelect & "' AND SpecialPriceID = (SELECT SpecialPriceID FROM Customers WHERE customer_id = " & CustomerID & ") "
[code]....
its the sub total I just keep on getting #Error on. I have even watched (using alerts) that the correct return variable is the same as the individual rows. This is the equation I used for the SubTotal within the footer.
=SUM(CalculateSpecialPrice([Item ID], [Form]![FormName]![CustomerID], [Qty Unit]))
#Error
View 2 Replies
View Related
May 12, 2014
when run it gives error sub or function not defined. Adopted from nothwind databse.
Private Sub ServiceID_AfterUpdate()
'Initialize price and discount for each product change
If Not IsNull(Me![ServiceID]) Then
[Code]....
View 4 Replies
View Related
Jun 26, 2007
Hi
I am having a problem with computation of monthly actual generated from the Amount column which is in a purchase order table..... The monthly budget amount is generated in a query named category query... I have computed like Jan Feb Mar till Dec the column fields in the query.... A form named PO form has been created with the category item combo box ....
The problem is when a user selects a combox box he or she is presented with the monthly actual textbox that shows the amount computed( on a fiscal basis(not calendar days)) and that is done by looking up at the date converting into a month and then computing the amount for that particular category item selected...sum done if there was the same category item like repairs and maintenance done for this amount on the same month different date...I need a way to look up at the date convert into a month and then show the sum in the field textbox using the Dlookup function ..>Can this be done??)
Monthly budget I cant figure a way to get the monthly budget by looking up at the date and show the computed amount on a "fiscal basis" since the monthly budget for different months jan feb mar is computed seperately in seperate fields in the query
Please help me!!! this is URGENt!!!
View 3 Replies
View Related
Apr 20, 2013
When I drop a field into a form I'd like to take the Lable Box and put in into the Page Header section and leave the data field or control box in the detail field.Sometimes I have available "Remove Layout" function to split the 2 so I can manipulate them around.
View 3 Replies
View Related
Dec 7, 2013
How is the collection of a sum of money to a particular substance.There is, for example, in the table named baby milk product.How can I collect the amounts of such material only.I used a DSum
View 6 Replies
View Related
Mar 26, 2014
I am trying to use parameters for my dlookup =DLookUp("[jan]","[ctbDailySegments1]","[PCC]='0hq'")
How can I replace [jan] with a prameter to pick from a text field formated as date. and 0hq from a combobox cmbPCC.
The function works perfectly as I change the jan and 0hq.
View 2 Replies
View Related
Jan 21, 2014
Basically my database is for a library based on borrowing/returning books ect
Everything works except this one thing, in one of my forms I can ask the user to input a book number of the book they want to check if it has been returned or not, if it hasnt been returned within 30 days then it will come up with overdue.
The statement im trying to use i cant get it to work.
=IIf([DateDiff("d",[Borrow Date],Now()>30)
I want it to display overdue if the book isn't returned in 30 days of the borrow date.
View 3 Replies
View Related
Oct 3, 2014
Sum Function in Unbound text on Datasheet subform..How to make a sum formula without count orange color rows Amount. Because that orange color rows is product return items so no need to count in SubtotalRs. Actually I have used below normal sum formula so it is ok but need to change the formula. how to give a formula without count orange Amounts?
View 1 Replies
View Related
May 31, 2015
My mainform is "CourseDays" and subform is "CoursesSubForm". The "CoursesSubForm" data source is a table "Courses" which contains a field "Subject".
I add a calculated field on the mainform to count the number of records in the subform. This is my code:
=DCount(”[Subject]”,”[CoursesSubForm]”)
An error message results.
View 5 Replies
View Related
Apr 5, 2014
I have the following in Form and it works OK
Call RunForm("frmProviderLookup", "", "Edit", "", "", "Normal", "Normal")
I want to build a combo box with several different RunForm variations as follows:
RunForm("frmProviderLookup", "", "Edit", "", "", "Normal", "Normal")
RunForm("frmCustomerLookup", "", "Edit", "", "", "Normal", "Normal")
RunForm("frmVendorLookup", "", "Edit", "", "", "Normal", "Normal")
etc, there are many of these
When I select one the variations from the combo box the RunForm statement is stored in strAction varaible..How do I code the Call strAction line? (I want only one call statement).In other words how to call a Function from a variable...The start of my module Function works OK and looks like this:
Public Function RunForm(FormName As String, _
Optional WhereCondition As String = "", _
Optional xMode As String = "", _
Optional filterName As String = "", _
Optional Args As String = "", _
Optional WindowMode As String = "", _
Optional View As String = "")
' Parameters (all optional except parameter 1)
' 1 - Form Name
' 2 - Where condition
' 3 - Mode [Add, Edit, View(Read Only), ""(PropertySettings), DS(Datasheet Edit)]
' 4 - Filter Name
' 5 - Opening Arguments
' 6 - Window Mode
' 7 - Form View
View 1 Replies
View Related
Jul 10, 2014
I am currently working on a form. I used textbox to set the value of currency and sumif to total nett price for all of data with that specified currency.
How can I get the value of the textbox?
I use formula :
=Sum(IIf([Currency]="USD",[NettPrice],0))
And it's worked. It sums up all net price with USD currency
However, the currency types are so many and it's impossible for me to list them down one by one, so I use this formula :
=Sum(IIf([Currency]=[txtCurrenct],[NetPrice],0))
But it keep showing 0 result.
View 10 Replies
View Related
Sep 15, 2013
I am struggling with the DateDiff fuction in a calculated field. After some study, I have used several variations of:
=(DateDiff("d",[DUED],Date())/7)
to calculate the time (in weeks) until a due date starting from today's date.
It continually turns up a specific date in the late 18 and early 1900's. It does not give me the number in weeks which was what I was hoping for.
Earlier I used a very simple: =DateDiff("m",[Birthdate],Date()) to calculate the age from a date of birth perfectly with no problems.
I do not understand why the formula is not working. Does it have to do with format or the fact that I am working with a future date and how can I rectify this problem?
View 4 Replies
View Related
Jan 31, 2015
I can't seem to get past this expression/criteria problem.
[Actual] is my field I want to grab data from
[L3-4-5] is my main table
[CDATE] is a form control where the user enters a date
[Quarter] is a number field and want it to equal 1
[Partname] is a text field and string it to equal 1
My current expression is:
=DLookUp("ACTUAL","L3-4-5","ID=" & [CDATE] And "[QUARTER]=1" And "[PARTNAME]='1'")
Although my other expression on another form works.In my if code statement I have
Me.DAYS_TRAINED.Value = DLookup("Days", "TRAINED LH A-PILLAR", "ID=" & FTM_NAME)
So I think I don't understand the multiple criteria part.
View 3 Replies
View Related
Oct 8, 2013
I'm currently trying to build in access a replica of an atrocious search function in excel.
I have a list of data quite simply in 5 columns and i want to filter through this data about (10000 rows).
My form has 5 data points.
The first is Product Name this is a string (i've looked up a lot of codes to search strings and even partial strings but no one seems to have done what i need).
- Basically i need it to search for any / multiple parts of the string entered.
- for example if someone enters apple trees june i need it to look for cells containing those three words in any order, even conjoined for example "appletreejune" would still return or "apples on a tree in june".
- This is attached to a single col called Product Name.
Based on this search i need it to look for data in a col called mark type (which is selected by a drop down)
Then by Market Context (also a drop down)
Then by a start and an end date, however, only one of the values (start or end) needs to be between the start and the end dates listed in the start and end date columns in the table.
View 4 Replies
View Related
Aug 14, 2014
I have a specific question on the datediff function.
My example is =DateDiff("d",[Policy Issue Date],Date()) where [Policy Issue Date] is the inception date of an Insurance Policy.
I need to determine how many days the policy has been inforce. The formula works great in a query and I can see the number of days in that field when the query is run.
However, my dilemma is I want the same function to run off of a text box using its control source property and have the number of days calculate and be visible for each record on the form. This part is not working and the field is returning the #Error? message.
View 5 Replies
View Related
Mar 5, 2014
I've a method **querylistboxitems** and i want to call this method in several click events, only difference is listbox,dropdown values change based on the event i call.
Code:
Public Sub querylistboxitems(lstbox As listbox, dropdown As ComboBox)
Dim drpdwnvalue As String
drpdwnvalue = dropdown.Value
With lstbox
//do something
End with
End Sub
And I'm calling this in the buttion click event by passing the listbox names as **List_Compare** and **Select_CM_Compare**
Code:
Private Sub Command_compare_Click()
Call querylistboxitems_1(List_Compare, Select_CM_Compare)
End Sub
But the values passing to the function are not control names, control values i.e corresponding control selected values.
I want to use listbox name in **lstbox**, not the value.
View 6 Replies
View Related
Nov 9, 2013
DCount function.
Code:
Me.ImprovementNotice5DayCount = DCount("[txtReferralReason]", "qryRTOFileReferralPopupCount", "[ComplianceTargetDate]-[DateNow]<=5")
I am not sure where I have gone wrong.
What I would like Dcount to count are those dates in the ComplianceTargetDate form control that are <=5 to the DateNow form control.
I get a count of 3 when there is only one. I may have the syntax of the Dcount wrong.
View 4 Replies
View Related
Oct 7, 2014
I am working with MS Access 2003. I have a form (frmCalendar) with a textbox (tbDay) and a combobox (cmbLineName)
I want to count the number of records based on the criteria from cmbLineName, and show the result in tbDate. Inside the Control Source of tbDate I put in the following:
=DCount("[EncounterID]","tblEncounters","[LineName] = ' " & "Forms![frmCalendar]![cmbLineName] = " ' ")
The problem is that the result in tbDate is always 0; regardless of what is chosen in cmbLineName. I know that the record count should not be 0 for all criteria.
View 4 Replies
View Related
Jul 1, 2013
I have an IIF function specified on a continuous sub-form as below - basically it checks to see if the value of two text boxes is equal, and if they are it displays 'And', if not it displays the value of the column EntitlementName. I'm trying to work around grouping not working in continuous forms.
When I view the form directly it works no problems but when I view the form as a sub-form instead of showing the correct output it shows #Name? Both the text boxes I refer to have the correct values in them.
=IIF([txtPrevValue]=[txtValue], Format("And"),Format([EntitlementName])
View 2 Replies
View Related
Sep 9, 2014
I intended to get a Value from a Query for a textbox, so I tried to use the Domainfunction DFirst.
Code:
=DFirst("[SAPANLAGE]";"[Query_Anlage_42]")
but now the box just shows #error and blinks like crazy.
View 13 Replies
View Related
Jun 1, 2014
I want to be able to use the Count function that will reside in the header of the main navigation form that will count the records in each navigation sub form (of which there are 6 sub forms)
Each sub form has the same primary key which is what I am doing the count on.
I have done this on another form with no subforms by creating a Textbox with this code: =Count([PCNumber])
I have tried to put this in the header of the main navigation form with various itterations, the last being: =Count([Form]![NavigationSubform].[PCNumber])
But what ever I do seems to come up with "Error" in the textbox.
For info, the form names are:
Main form :StockViewsForm
Subform:NavigationSubform
PCNumber being the PK I want to count.
Is this possible of do I need to specify the names of the actual forms that reside in the Navigation Sub Form ??
[URL] ....
View 8 Replies
View Related
Feb 16, 2015
How to use Dsum Function? Am using below following Dsum functions but they are not working and shown an error result.
=Nz(DSum("[Liters]","[SRB_SubformQry]","[Category]=MILK"),0)
=Nz(DSum("[Liters]","[SRB_SubformQry]","[Category]='MILK'"),0)
=Nz(DSum("[Liters]","[SRB_SubformQry]","[Category]<>MILK"),0)
View 3 Replies
View Related
Aug 6, 2013
I have a combobox on a form that lets the user select a business name which then populates the rest of the fields in the form appropriately. But when it does this it makes it so that the seach function at the bottom of the screen no longer works, as it only has the selected record as an option. So before selecting a name from the drop down list at the bottom of the screen is says "Record: 1 of 5" but after selecting the name it become "Record: 1 of 1." Is there anyway to still allow the built-in search function to work alongside using a combobox?
View 8 Replies
View Related
Dec 11, 2013
So basically I need making a function that will count the number of records from another table/query based on a field from the current query.
View 2 Replies
View Related
Nov 4, 2014
Doing a school project and need to add a count function to a sub form that is based on my query. The count function just needs to be displayed on the bottom of the sub form showing how many records are in the sub form.
When I do this, the function works all good.
When I add the function to a header or footer, so that it doesn't show a column and repeat itself each time.
View 2 Replies
View Related
