I have a combo box in a sub form with three values, rate1, rate2, and rate3. I have another three fields in the sub form rate1, rate2, and rate3. The rates are dependent on the item. When I select the rate from the combo box I want a cost field to update on change to the relevant rate. I tried this to no avail:
Code:
txtCost = DLookup(cboRate.Value, "tblItem", "ItemID=" & ItemID)
I have a small table, that only contains one record (and should only ever contain one record, which simply gets edited to suit once in a while).The table is called OtherRates, and the fields are as follows:
WRD_Sat/Sun/BH
WRD_Mon-Fri
AHDifferentia
SKDifferentia
Sat/Sun/BH_OTRate
Mon-Fri_OTRate
I am trying to use DLookup to return a value from the relevant field in this table, however the field to look in is a variable.The code (below) that I have tried returns an error and highlights the DLookup line,.
Code:
Dim WRD
Dim DayType
[code]....
I have a table that holds information for a type of show and the base cost of the show. I am trying to make a query that gathers information for all the shows in the table and uses the Dlookup function to identify the base cost of that show. This will in turn be used in the same query to create a quote, but I can not get the Dlookup function to work and I am sure that I may be doing it very wrong.
The table is called ShowList. That table contains 3 fields, ID, Show Type, and Cost.
The query is called Venue Cost and will have a series of fields that work to develop some math on all items from another table called Venue Info. Venue Info uses ShowList to select the type of show.
What I want the query to do is look up the Show type from VenueInfo and then look up the base cost of the show type from ShowList. What I have been using is not working but is as follows:
DLookUp("Cost","ShowList","[Cost] =" & "[Venue Cost]![Venue Type]")
I have a table called tbl_Employee. The employee's hourly rate is one of the columns. I want to create a forecasting schedule that will find the work days between two dates, multiply by 8 (hours per day) and multiply by the hourly rate.
For example, Employee A has rate of $100/hr. We forecast they will work 250 work days from January 1, 2014 to January 1, 2015 so 250*8*100= $200,000.
However, on June 1, the rate for Employee A increases to $110. So the new forecast would be (125*8*100)+(125*8*110)=(100,000+110,000)=$210,000 .
How can I account for something like this?
Morning everyone
I have made up a database to record generations of birds; along with others I have the following fields:
Ring number (primary key)
Sex
Year
Colour
Data entry via a form view.
For new entries I pick up from a combo box the parents, what I need to do now is create a relationship between 1, 3&4 and 2, 5&6 so that the data will automatically slot in the relevant fields.
1Parent Cock
2Parent Hen
3Grand Parent Cock C/S
4Grand Parent Hen C/S
5Grand Parent Cock H/S
6Grand Parent Hen H/S
would I do it via a query.’ And would one cover relevant generations
Thanks for any help
Norma
I have a nested DLookup in a SQL UPDATE that is not working. The DLookup has an "AND" in the WHERE Statement as well. I cannot figure out the problem. I got a type mismatch with this code and when I take out the single quotes I do not get an error message but the data is not updated in the table.
Code:
SQLstock1 = "UPDATE TBL_STOCK SET Stock = '" & DLookup("RemainingQty", "QRY_STOCK", "ActionEntity = '" & Me.cmb_customer1 & "'" And "StockType = '" & Me.cmb_stock_type1 & "'") & "' WHERE StockEntity = '" & Me.cmb_customer1 & "'"
Cost can fluctuate through the year on a month to month basis. I want to create a report January - Feb... that has the cost for each month Table CostChange has [Date] [Item] [Cost] with a record ONLY when there is a change so: Item X has a cost in Jan and a new cost in Mar
I want report:
Jan Dlookup([Cost],[CostChange],[Date]<=1/31/2104 (should return Jan Cost)
Feb Dlookup([Cost],[CostChange],[Date]<=2/28/2104 (should return Jan Cost)
Mar Dlookup([Cost],[CostChange],[Date]<=3/31/2104 (should return Mar Cost)
What am I missing?
Hi there!
I would like to know whether it's possible to retrieve the field names, in order to display them in table format within a html page. I would like to dress the table with the cell data together with field names as 'headers' for each column.
Here is a snippet of what i have manages to produce. Currently, it displays all the entries that coincide with thier field names. The inly thing i wish to do now is to display the field names:
<html>
<head>
<title>date</title>
</head>
<body >
<h3>Try It Out - Sailors Table With a Counter</b></i></font></h3>
<p><br>
<%
Dim oRSeofc
Set oRSeofc=Server.createObject("ADODB.recordset")
oRSEOFc.Open "People", "dsn=20527796a"
oRSeofc.MoveFirst
response.write "<table border='1'>"
Dim PersonCounter
PersonCounter = 0
Do While Not oRSeofc.EOF
PersonCounter =PersonCounter + 1
response.write oRSeofc.fields.item(counter).name
Response.write "<tr><td>" & PersonCounter & "</td>"
Response.write "<td>" & oRSeofc("PeopleNameFirst") & "</td>"
Response.write "<td>" & oRSeofc("PeopleNameLast") & "</td>"
Response.write "<td>" & oRSeofc("PeopleDOB") & "</td></tr>"
oRSeofc.MoveNext
Loop
response.write "</table><br>"
response.write PersonCounter & " Sailors in this list"
%>
</body>
</html>
All help will be greatefully appreciated, thanx!!
As the unbound parent list box record selection is changed, I want the sub form to refresh. Do I put code in the Subform Current Record event?
Master Form Name: frmsr_NewWellEntry
Unbound Listbox - when record selected the primary key populates txtNavWellID (unbound) on parent form
subform Container fsubsrNavSHLBHL Link Master Fields =Forms![frmsr_NewWellEntry].[txtNavWellID]
The read-only form in the subform Record Source is something like: select * from vsrNavigatorSHLBHL where Well_ID =90243..Key The Form used as the subform above will be re-used in multiple parent forms. The parent form data is form SQL Server, the subform from Oracle.
hey,
i have a customer form which includes a "Country" combo box.. the reason i did this is because i have a separate table with a list of countries and their VAT (Value Added Tax, you americans call it sales tax i think :)) rates.
i want this country saved in the customers table.. i need the country table to act merely as a source of data. Now ive spent a good hour tying to fix it messing around with the relationship between the two tables and the combo box itself.. but ive only been able to come to two end results
a) access tells me i cant save the new customer record cause a related record is required in the country table.
b) access enters a new line in my country table with the autonumber of the country selected on the add new customer form in the Country field.
im stumped as to where the problem is:// how can i fix it?
Given a table field that is a hyperlink type.
I need an Update Query to set all records of that table so that the Displayed Value part of the hyperlink field (not the Address part) is set to a particular value.
Any ideas how?
Thanks.
I am setting up a inventory database and i will like the cost of the items to be calculated using FIFO.
Sample tables:
PARTS TABLE:
part code
description
cost
quantity on hand
PART TYPES
part type id
party type
INVENTORY
invent id
location
reorder quantity
INVOICE
id
date
part code
part type
qty
cost
ext cost
NB
For every item i will like the previous cost to be charged before the new cost. eg. if 10 pens where entered at $2 and another 5pens were entered at $4 each and 1 need 11 pens, i want the first 10 to be charged at $2 each and one at $4.
I have some incorrect time entries in a column that I need to fix with an update query.
So, 04/11/2013 08:00:00 needs to be changed to 04/11/2013 09:00:00
I have a table called Price list, and in it I have two fields, one called Service and The other called cost. The services are listed and their matching prices are listed beside.
In another table called appointments, when making an appointment, I have linked the information so that I can choose from a dropdown from the price list table, under Service type.
I need to be able to create a receipt for the appointment. How can I do that in a query format?
I have a small problem with dlookup multiple criteria. Vba code looks like this:
Code:
Label34.Caption = DLookup("[Spent_Hours]", "249_1_CHours", "[Date_Added]= " & Me.Text27 & " And [Shift] = '" & Me.Text29 & "'")
This gives following error:
Syntax error in number in query expression '[Date_Added]=4.02.2015 And [Shift] = '2'.
[Shift] column is a numeric field.
I am trying to copy a record as new record in vba in access so i make a button for the user so that they can copy a record each time and change a certain field if they wanted. How would i do that.
View 1 Replies View RelatedI have a main form which does nothing except filter subforms through a cbo.
On the main form are two subforms. One shows top line data, the other shows a breakdown of the top line data, and are linked by an unbound textbox (it's how it works, and does so perfectly)
I'm running an append query to duplicate a record in the second form using vba/sql BUT... need to have one of the fields values changed based on a field on the parent table.
If Forms!frmmain!frmPost.Form.RecordsetClone.RecordCo unt > 0 Then
strSql = "INSERT INTO [tblposts] ( TopLineID, AccountID, TransDate, Cat, SubCat, Debit, Credit ) " & _
"SELECT " & lngID & " As NewID, AccountID, TransDate, Cat, SubCat, Credit, Debit " & _
"FROM [tblposts] WHERE TopLineID = " & Me.TopLineID & ";"
DBEngine(0)(0).Execute strSql, dbFailOnError
Else
MsgBox "Main record duplicated, but there were no related records."
End If
Credit and Debits are reversed as I want one to zero out the other.
In regards to the AccountID, I've tried allsorts and it's just not working... to the point I'm almost giving up and finding an alternative.
Whats the "Correct" syntax to attach a "WHERE" statement to the highlighted [AccountID]'s (which needs to be the value on AccountID on the Parent table)
I have a table named z_ResltsSampleCountMonthly. In that table I have fields SampleSize, Month and LOB.
I have a report that I need to use a Dlookup in order to pull the SampleSize by LOB into my report. However, my report has three columns that change based on the start and end dates for the report. It shows current month plus the two prior months to show a trend.
So I have each column heading update automatically based on the dates the user enters into the start and end date on the main menu form.
If they select 12/1/14 to 12/31/14 the three columns heading would update to October 2014, November 2014, and December 2014. In the table I have the data for all three months so when I use this formula it works but it's putting September 2014 data under October 2014 so I need to have multiple criteria; one being the LOB and the other being the column heading which is equal to the field Month in the table.
Code:
=DLookUp("[SampleSize]","z_ResultsSampleCountMonthly","[LOB] = ""CMES""")
This is what I tried to do to add the second criteria to pull based on text59 being equal to the Month field in the table but it's not working:
Code:
=DLookUp("[SampleSize]","z_ResultsSampleCountMonthly","[LOB] ="CMES" And [Month] = ' " & [Text59] & " ' ")
I am trying to build a function that will create a dynamic query for a chart on a Subreport.I am not exactly sure I am going about this the right way, but I need the user to be able to change selected fields for use in the query. I have a form with 3 combobox controls for selecting options to change the SQL statement. So far my code only deals with one of these comboboxes for simplicity. There is a button to call my function. Currently, the function is setting hidden text box values based on the combo controls, but I'm not sure if this is redundant.
I am using this as my guide for building the sql, but I am having trouble picking up the values in my text boxes for use in the SQL. [URL] .....
Code:
Option Compare Database
Option Explicit
[code]...
how do I get a value from an unbound textbox on an unbound form into a string to use as sql? The value in the textbox is a number.
I'm using Access 2010. I'm passing a string into the OpenArgs of my report - works fine. In the report there are 3 rich text fields which may contain the text I passed in, and if so I want to change the color of that text to red so it stands out.
The value passed to the report changes so I'll need to use VBA in the detail's format section to check each of the 3 rich text fields.
I am new to MS Access, and am not sure if what I want to do is even possible. It is my understanding that comparing subsequent cells within a field in a database cannot be done- so I thought I'd see if there is a way to go around it.
I have a dataset for pedestrian activity, with over 3 million rows and 40 columns - too big for excel to handle.
I need to sort the entire dataset by 2 fields, following which I need to search down the field containing my pedestrian ids (numbered 1, 2, 3... till approx 10000), and when my ped id changes from one to the next, I need to check the value in a field showing the ped location, and if that matches with the ped's previous location, I need to copy out a cell corresponding to the previous cell's time stamp. If it doesn't match, I need to copy out another time stamp from another field.
I have a continuous form with a text field that says "Select". There are two other fields, one of which is Brand. When the Brand Combo box has nothing in it I want the text box to appear (instructing the user to select a Brand) But once the user selects a Brand and goes to the next records, I would like the "Select" in only that record to become not visible. I tried conditional formatting but can't apply that to an unbound control ( or at least it is grayed out when I select the text box) and any other possible solutions I have found changes all of the selects - not only the one in the changed record.
View 7 Replies View RelatedI have the following fields in an A2010 form
PaymentMethod
Total
InstalmentAmounts
OurFee
InstalmentAmounts field is populated based on the results of PaymentMethod which is a combo box
Here is the current code
Select Case Me.Payment_Method.Value
Case "Three post dated Cheques"
'If three payments by cheque
Me.InstalmentAmounts.Value = Round(Me.Total.Value / 3, 2)
In some cases there will be a few pennies that the client "overpays" because the instalment amounts will not add up to the Total. I need to add up the TotalInstalmentPayments to find out what the client actually pays and then add the difference between TotalInstalmentPayments and Total to the OurFee field
So
Total = 500.00
Payment Method = 3 instalments so
IstalmentAmounts = 166.67 (rounded) so client pays 500.01 so the 0.01 needs to add to the OurFee field.
Hi – I was wondering if anyone knows a solution to this or has had the same thing happen to them in the past…
On one of my forms, I'm using DLookups to fill the controls,
eg.=DLookUp("[PartDescription]","[Parts]","[ItemID] = " & Nz(Forms!ItemHistory!ItemID,0))
This example shows the Part Description for the Item ID in question, with the ItemID being the record source of the form.
Nb. I’m using Lookups since these show info taken from another table to what the main form is based on. I've been advised to keep the main form non-complex so the subform will reference correctly.
This arrangement works fine, except for when the main form changes the record that it displays. In this situation, although the ItemID changes, what the DLookup displays remains the same. I've tried pressing F9 to refresh the lookup, but to no avail.
I was under the impression that the DLookup would automatically update with ItemID – which would seem the logical thing to happen - to me at least. However, I can't figure out why it isn't updating, so any suggestions would be greatly appreciated. Alternatively, if it won't update, are there any alternative ways of going about it (apart from using bound controls)?
Thanks very much in advance,
Tim
I need to trigger an event for when a text box is updated.
However, I cantuse on_update() because the text box is updated by dlookup (and on some of my other ones by vb code), and on_update() only works when the user physically enters a value.
Which event should I use. If there isnt one, is there a work around?
I have a new Customer Form(Profile) and I have the same customer data in another Table(Contacts).
I create a Dlookup... the system pull the data correctly from my Combobox but when I try to close the form, the system display a error like: The first name is empty...
I think the Dlookup need something to update the new table.
This's my actual Dlookup...
=DLookUp("[Last Name]","Contacts","[Combo378]='" & [Forms]![PROFILE]![Combo378] & "'")