I have a table that is filled based on selections that a user makes in combo boxes on a form. I am having trouble trying to figure out the best way to prevent duplicates from being inserted in the table when I do the append query part.
Since the table is filled based on the various selections the user makes I dont have a primary key or unique field.
Can someone help me figure out the best way to do this append/update queries to prevent duplicates. Also if you have a strategy for setting up some sort of unique or primary key for fields that could all be the same yet in the table only 1 record will show, no duplicates.
Hello all. I'm trying to finish up a database for our farm and am running into issues as I'm pretty new to Access. I know VB6 but not a lot of VBA. We spray chemicals, and need to keep track of the acerage we spray for the date.
So here's my problem: When I go to write my records, I need to search a table for a date. If the date exists already, then I need to update the total acreage related to the date. So first, how do I search the table and keep track of if the date was or wasnt found, and if found, calculate total acreage from value pulled from table, and the new acreage value, then write that back to the table.
I have a problem with my database I have a combo box that will search for my record. Actually its working I input the specific number it goes to the specific record. But I want, if there no existing record in my database it will display a Messagebox that "No record Found" I try to put a code in a macro builder in a after update property field but nothing happened.
Expression code that it will display the msgbox if there's no record found.
the given code from macro builder is attached. I try to have an if else statement but I dont know how to not equal that giver conditional expression.
What I've done is setfocus from another subform to this subform, and I want to add a new record. I've got my code mixed up somewhere along the line as it's saying "the command or action 'RecordsGoToNew isn't available now.I'm trying to setfocus to this form, create a new record and setfocus to a field within the focussed form.
I would like help with a macro that looks to see if a record in my database table exists, then if it doesn't it adds a record with my data, but if the records does exist, it stops the routine and sends a message box to prompt if you want to continue with adding a new record.
The problem that I'm having is that my macro errors out when it doesn't find a record. I just want my macro to just see if a record exists or not. Then I can write my Iff statements based on whether it finds our or not. How do I just have my macro check for an record, then if it doesn't exist tell that it doesn't exist and not stop my macro. Is there some kind of IfExist() function or something?
I'm using the following code to autofill the city and state on my form. I can't figure out how to capture if there is no matching record in the table. If there is no matching record, I will:
1) inform the user with a msgbox then if the user wants 2) open a form to add the record to the table
Dim rst As DAO.Recordset Dim db As DAO.Database
Set db = CurrentDb Set rst = db.OpenRecordset("tblZipcodes", dbOpenTable)
rst.MoveLast rst.MoveFirst
Do Until rst.EOF
If strZipLookup = rst!ZipCode Then Me.txtCoCity = rst![ZipCity] Me.cboCoSt = rst![ZipState]
End If
rst.MoveNext
Loop
rst.Close End If
How can I capture if there is no matching record in the table?
I have set up a simplified event booking procedure, similar to the one generated by the access event manager wizard. It uses three tables, one with attendees details, one with the event details and abooking table that links the attendee ID with the Event ID.
The booking table uses commands similar to SELECT[Names + Contacts].[ID],[Names + Contacts].[Surname]FROM[Names + Contacts] to generate drop down lists of surnames and events so that the two can be matched together.
This works fine as a table.
However when placed into a form, whenever the form is opened I get an error message saying the record source specified on the form does not exist.
I have tried regenerating the form, etc. I have used a wizard to generate the form, closed the form, not changed anything in the database and then tried reopening it and I get the error message, can anyone shed any light?
Also if you accept the message then it knows how many records there are, so it must know there's something behind it, also if you change to design mode and then back to form mode, it finds all the data.
I have a training database with multiple courses. Certain staff do course1 and thereafter course2. Course1 is only done once and course2 is a refresher done annually. I want the query to find staff that have done course2 but not course1.
I have an application written in Access 2007 and packaged using the Packaging Solutions for deployment with Runtime.My problem is that I've written an updated version, and after carefully saving my original Back End away from the install site, uninstalling Runtime and the FE, installing the new FE with a blank copy of the BE having the same name and Runtime, and copying the filled BE into the same folder with the FE (replacing the linked, but empty, BE) I find that SOME of my tables in the BE are not being recognized. This isn't true of all tables. I can open some of the forms and find everything there. In other cases I get the following error message "The record source "tblName" specified on this form or report does not exist."
I currently have this set as the forms default recordsource (which works just fine):
Code: SELECT TOP 5 tblUsers_Phone_Book.EMAIL_ADDRESS, weightedDL('me@mine.com',[EMAIL_ADDRESS]) AS Expr1
And I have this vba to dynamically switch around that email address.
Code: Private Sub Form_Load() Dim intPos As Integer Dim strControlName As String Dim strValue As String Dim sSQL As String If Len(Me.OpenArgs) > 0 Then ' Position of the pipe
[Code] ....
If I msgbox the sSQL - it shows identical to the default recordsource but I get the error:
The error message I get is:
Run-Time error '2580' The record source 'SELECT TOP 5 tblUsers_Phone_Book.EMAIL_ADDRESS, weightedDL('me@mine.com',[EMAIL_ADDRESS]) AS Expr1' specified on this form or report does not exist.
I tried copying the exact working default sql into the vba and get the same result.
I have a table called tblCompanies. When a company acquires another company, I need a method by which the acquired company's CompanyID (PK) can be updated to the new company's CompanyID (PK). I also need to be able to update all related CompanyIDs (FKs) to the new value in related tables.
In cases in which the new company does not have an existing record, there is no problem: the company name simply gets changed to the new company and the existing CompanyID is maintained. I then use an audit table and Track Changes function to keep track of the company name data and a union query to keep the old names in the selection lists.
The problem is when both companies already have existing records in the table.
So, let's say I have records for Company A and Company B. Company A merges with Company B and Company B is now the main record. What is the best, simplest and easiest way to update the CompanyID (PK) from A to B and change the CompanyID (FK) to the new value in all related tables?
I am envisioning a pop-up form that directs the user to select the new company and then an update query happens behind the scenes... but exactly how does the criteria for the update query get selected and how do all the related tables get updated? My vba skills are pretty basic, will I need extensive coding to do something like this?
Can someone please explain to me what I'm doing wrong.
I'm trying to update my table called Portfolio with information sent to me via spreadsheet. I've been able to import the data from Excel into a table called PortfolioUpdate and the data types are all the same, but when i try to run the append query it keeps coming up with the message below
Switchboard can't append all the records in the append query.
Switchboard set 0 field(s) to Null due to a type conversion failure, and it didn't add 1889 record(s) to the table due to key violations, 0 record(s) due to lock violations, and 0 record(s) due to validation rule violations.
I've checked that all the data types are the same and I've also removed/added primary keys from the PortfolioUpdate table to see if that was the problem but to no avail.
Just wondering if someone can point me in the right direction so that i can solve my problem?
Basically what i have is a select query that carries out some calculations based on data entered. These calculations are expressions as i am sure you guys know. what i want to do is put the value from the expression/calculation into my table in the correct fields made for these values. However i have tried everything i can think of to get this data into the tables fields but to no avail.
example. Expr1: [field1]*[field2] the answer created by [Expr1] is the value i want to be placed in [field3]
I need an append query to also update a yes/no box or a text box with "yes" "no" in the field. I don't know how to do this in SQL. Please help. Query 1 is the name of the query I want updated from "yes" to "no" Something like: AFTER APPEND (I am not sure how to do the "after append" in sql) UPDATE Query 1 SET Query 1.DueToday = "No" Where DueToday = "Yes"
I am trying to create update and append queries that deal with multiple tables. I can't seem to get it to work. Any help would be appreciated.
The update query needs to reverse this select query: SELECT tblPayment.AmountOfPmt, tblPayment.DueDate, tblPayment.DateIssued, tblPayment.CheckNumber, tblPayment.PaymentType FROM tblPayment INNER JOIN (tblLease INNER JOIN tblCustomer ON tblLease.CustomerID = tblCustomer.CustomerID) ON tblPayment.LeaseID = tblLease.LeaseID WHERE (((tblCustomer.CustomerID) Like [spCustomerID]));
The append query needs to insert CustomerID, FirstName, LastName, SecondaryCustomer, PhoneNumber, DOB, Email, Active into tblCustomer, but also DateSigned, DateEffective, DateExpire, CustomerID, LotID into tblLease.
I can't figure either of these two out. Any help would be great.
Hi, can any help : ) i am trying to mass update one field in a table. Basically i have created a new check box (Yes/No Value) in my customers table. Basically i will tick this box if a customers placed any order with our company.
At present all our existing customers have placed orders with us. and i want to add value Yes to this field.
What method can i use to make this Mass update all customers records.
Hello, I am trying to develope a database that calculates and accrues vacation leave monthly. I am trying to write a query that will add 2.5 days to each employee every month and I would like to automate this update process but I am not sure how can I get this query to know each beggining of the month and do the update. Does any body have a better understanding or suggestion of going about this issue Your help is much appreciated
Hi, I am working on a scheduling database and have got stuck with what I thought would be a simple update or append query (It probably is very simple for non-newbies). I am trying to create an update query to update the "Cell_ID" field in tbl_ScheduledAssays with the "Cell_ID" field from tbl_Machines.
The tbl_ScheduledAssays stores each assay that needs to be run. The tbl_Machines stores both the "Machine_ID" on which the assays are run and which "Cell_ID" that machine belongs to.
Some assays have a "Machine_ID" assigned up front as they have to be run on a certain machine, however other assays can be run on any machine so are assigned "Machine_ID" 51 which is a blank.
For all records in the tbl_ScheduledAssays table where the machine ID is <>51 I want the Query to check the "Machine_ID" and read from the tbl_Machines which "Cell_ID" that machine is in and then add that "Cell_ID" to the "Cell_ID" in the tbl_ScheduledAssays table.
I hope this makes sense! I have tried to search the forum but everthing I have tried so far has failed. Have also tried to do an append query to no avail.
Hey guys- I have a 'Master Table' that holds all my imported records. After a few queries and whatnot- I need to break it down into specialized tables. For example- my Sales Associate info goes into one table (all their contact info, employee code, etc)- while the product info goes into another table.
As I import daily orders and whatnot- it also brings in the sales associates info. So, I want to have Access check the existing SalesEmployee Table for any existing records (by their employee code)- and if it doesn't exist, append it into the table. HOWEVER- if they are already showing in the SalesEmployee Table, I want it to check to see if their contact info is the same- if not, update it with the new info I am importing.
How do I go about doing this? Is this an update query all by itself? Or, do I need a more complex if/then statements and whatnot? Thanks!
I have a table that I need to update existing data and append new data. All of the new data is in the same file. Is there a way I can update and append at the same time?
I have some different fields (cell content) in the same tables that need to be joined or merged together. Then I also have several fields that need to be joined from several different tables. I need to add a prefix to everything I add.
Here is a sample of the join I need within one table:
Here's another sample of the join I need between two tables:
What I have:
Table 1: Super Table
|__________NOTES_________| |__This title comes in___| |__microfilm and PM______|
Table 2: Project MUSE
|__________NOTES_________| |__This is a made-up_____| |__note__________________|
What I want:
Table 1: Super Table
|__________NOTES_________| |__This title comes in___| |__microfilm and PM______| |__Project MUSE: This is_| |_ a made-up note________|
Table 2: Project Muse
Stays the same.
I know how to move part of a cell to another blank cell, and I know how to delete part of a cell.. But I don't know how to move part of a cell to a cell that already has content.
If you search for my name and this post: Deleting Certain Text Between Character in a Cell, you'll see what I've learned already. I'm thinking maybe I just need to run the same sort of function/module, but append instead of update. Dunno.