Append/Update Table With Oracle Data-ADO
May 13, 2005
I am relatively new to the use of VBA and ADO to append Oracle data to a Access Table. The code below was my first attempt and it doesn't work!!
Upon your review, you can see that there are quite a few calculated fields in the table which is generally considered to be a maintenance problem. I plan to update all fields within the table that ends with "Current."
Any insight as to what the problem could be? Is there a more efficient method to append/update data within the Access db? How would the module differ if I wanted to update the fields on the table that end with "Current?"
Do I have too many calculated fields?
Sub ADO_AppendEncDetailNew()
Dim Rs As New ADODB.Recordset, connString As String
Dim cn As New ADODB.Connection, sqlEncData As String
connString = "Provider=MSDAORA.1;" & _
"User ID=wv_juilo;" & _
"Data Source=Mrr;" & _
"Password=juilo;" & _
"Persist Security Info=True"
cn.ConnectionString = connString
cn.Open connString
sqlEncData = "SELECT ep.account_id, pe.customer_no, pt.last_name, pt.first_name " & _
pt.records_no, pe.drg_no, pe.length_of_stay, pe.patient_type, pe.admit_date, pe.discharge_date,
pe.total_charge, pe.expected_payment, pe.date_billed, max(trunc(epd.payment_date)),
ep.total_payments, pe.total_payments, pe.total_charges -
sum(ep.noncovered_pt_charges + ep.noncovered_wo_charges), pe.total_charges -
sum(etd.adjustment_amount), trunc(sysdate),
ep.total_payments/pe.expected_payment
from entity_pay ep, Preview_encounter pe, encounter_transaction_details etd, patient pt,
and
ep.account_id Not In ('CTOC','VNN','VCM','VRM','VCU','LP5')
AND epd.TRANSACTION_CODE in ('68806','68807','68808','68812') AND
pe.expected_payment>0 AND pe.expected_payment - pe.total_payments>0 AND
ep.total_payments/pe.expected_payment<0.75 AND etd.transaction_code in
('4569','4575','4580','4896') and trunc(epd.date_updated) =
trunc(sysdate) - 15) GROUP BY ep.account_id, pe.encounter_no, trunc(pe.ADMIT_DATE),
trunc(pe.discharge_date), pe.date_billed, pe.total_payments, pe.total_charges,
pe.expected_payment, ep. total_payments, pe.expected_payment -
ep.total_payments,trunc(epd.payment_date), pe.expected_payment - pe.total_payments,
ep.total_payments/pe.expected_payment, pe.total_payments - ep.total_payments,
trunc(epd.date_updated), trunc(SYSDATE), pt.last_name, pt.first_name,
pt.records_no, pe.patient_type HAVING ((pe.total_charges - Sum
(etd.adjustment_amount)) - pe.expected_payment) <> 0 ORDER BY 1, 2, 10
Rs.Open sqlEncData, cn, adOpenStatic, adLockReadOnly
Do Until Rs.EOF
"INSERT INTO tbl_CustDetail
Rs.AddNew
Rs!CID_Orig = Rs!entity_pay.account_id
Rs!CID_Current = Rs!entity_pay.account_id
Rs!EncNo = Rs!Preview_encounter.Customer_No
Rs!LastName = Rs!Patient.Last_Name
Rs!FirstName = Rs!Patient.First_Name
Rs!AdmitDate = Rs!Preview_encounter.admit_date
Rs!DschDate = Rs!Preview_encounter.discharge_date
Rs!TotChgOrig = Rs!Preview_encounter.Total_Charges
Rs!TotChgCurrent = Rs!Preview_encounter.Total_Charges
Rs!Bal_AfterInsPymts = Rs!Preview_encounter.expected_payment - Rs!entity_pay.Total_Payments
Rs!Bal_AfterAllPymts = Rs!Preview_encounter.expected_payment - Rs!Preview_encounter.Total_Payments
Rs!CoveredCharges = Rs!Preview_encounter.Total_Charges - Sum(entity_pay.noncovered_ct_charges + entity_pay.noncovered_ft_charges)
Rs!CalcAllowOrig = Rs!Preview_encounter.Total_Charges - Sum(Encounter_Transaction_Details.Adjustment_Amoun t)
Rs!CalcAllowCurrent = Rs!Preview_encounter.Total_Charges - Sum(Encounter_Transaction_Details.Adjustment_Amoun t)
Rs!VarianceOrig = Rs!Preview_encounter.Expected_Reimbursment - (Preview_encounter.Total_Charges - Sum(Encounter_Transaction_Details.Adjustment_Amoun t)
Rs!VarianceCurrent = Rs!Preview_encounter.Expected_Reimbursment - (Preview_encounter.Total_Charges - Sum(Encounter_Transaction_Details.Adjustment_Amoun t)
Rs!OrigRatio = Rs!Preview_encounter.expected_payment / entity_pay.Total_Payments
Rs!RatioLatest = Rs!Preview_encounter.expected_payment / entity_pay.Total_Payments
Rs!DateIdentified = Rs!trunc(sysdate)
Rs!Date_LastPayorPymt = Rs!max(Encounter_Payment_Detail.payment_date)
Rs.Update
Set Rs = Nothing
End Sub
View Replies
ADVERTISEMENT
Apr 8, 2008
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?
View 1 Replies
View Related
Aug 6, 2013
In access Im working with two tables, this is my setup
tableA.documentnr
tableA.revison
tableB.documentnr
tableB.revision
Both tables are filled with data, Table B contains the same kind of data as table A, But tableA has documentnumbers with different revisions (for example revision a,b,c, for each revision a seperate row). Table B might have an identical document, but just one revision (like revision a).
Now I like to append the data of tableA to tableB, except if a revision is similiar to a revision in table A. (There is more metadata involved, but I will do it step by step)
Im not working with primarykey data, becayse in the end result table B will also have multiple (identical)document numbers with different revisions on different rows.
I tried to use the update query but it doenst append the documentnumbers where the revision is not present in table B I attached a image of the tables.
View 9 Replies
View Related
Jul 26, 2007
Could someone please try to give me a step by step method for using an append query to update a table. Gary gave me a ton of help before but im still a little stuck. Thanks in advance. :)
View 1 Replies
View Related
Jul 25, 2015
I am using a DB to, among other things, calculate the monthly salary of my service users. Obviously, I have to do it every moth. Most of the data from the previous month will be the same in the next month, except date. Even if some of it is different, having the previous data on sight calculate the new salaries.
Every month I have to select all records with the month date (say 07/2015) I want to copy and
(1) copy paste the records into the salaries table, and
(2) search and replace the new records' dates.
For example, records with 07/2015 with say 08/2015 (I have to replace downwards to ensure I don't change the record of the month I need to keep).
It can't be that difficult, but I have tried append and update queries to make this automatically (say by clicking a button) but so far no luck.
View 10 Replies
View Related
May 18, 2015
I have form1 that has the current commodity When i need to change the commodity I want the following to happen when they click a button: open the commodity change formthat form has a drop down to select a new commodity and a date of commodity change date fieldWhen the user submits it will move existing value to history along with the Date of change (separate table)Next it will take the value in the new commodity box and make it the current commodity
My thinking is that when i click the button to open the change form I can save the commodity at that time but I wont have the date yet. Just not sure of they best way to go about this.
View 6 Replies
View Related
Jan 9, 2014
I need to know the best way to append,
table1=productid,ProductName,Qty to table2=Productid,productName,Qty,date daily
I want to be able to append Records daily from table1 into table2 OnClose. But i do not want duplication of record in the same day.
If changes occurs in table1 after append,table2 should be updated using If conditions
View 1 Replies
View Related
Dec 6, 2013
Can I use the append query to update a table by replacing all existing information with updated information while at the same time adding all data that isn't currently in the table?
Right now every time I run the Append Query it just adds the same information as a new row instead of replacing the existing row with the updated information.
View 8 Replies
View Related
Jun 1, 2007
Hello Everyone,
Here is my issue:
1. I have linked a table which does not allow me to update any entries.
2. In this linked table I have to update one column that contains all null values
3. I have another table that contains the values required for that one column in the linked table
When I try running an update query after doing an Inner Join, i get the Operation must use an updateable query error...is there ANY work around at all ? Please let me know . any help would be greatly appreciated.
View 6 Replies
View Related
Jan 22, 2015
Is there a way to append a pivot table to a table or possibly make a query based on a pivot table? I need to get a count of Part Numbers and I need the average price for all these parts. Additionally I want to ignore a count of less than 3.
Also I am having trouble filtering on the count in the pivot table... haha, so I was gonna Query on it later on.
View 2 Replies
View Related
Jan 12, 2012
I want to punch data in form and i want to append data to table and i want to automatically show new record when i reopen the form Now i face a problem that when i reopen form record show 1st table row.
View 4 Replies
View Related
Dec 12, 2005
Hi, I'm fairly new with working with Access and programming in VBA, and I was looking for some help. I have a database with many tables, and relationships between the tables. In particular, I export two of these tables to text files from one machine and need to import them back into the database on another machine. I have this working if I delete all the records before useing the transfertext command to import that table. But my problem is that I need to either append a record if it doesn't exist in the promary keys, or if the new record exists in a primary key, I need to replace it. I was thinking about reading the table to a temp table from the text file and checking each record in some sort of query to see if it needs to be appended or replaced in the table. Does anyone have any ideas of how else this could be accomplished a little easier that looping through each record, for this might take a while, as I do not know how many records can be importing each time. All I know is that I need a way of taking data from a text file and either appending or replacing the records in the table in the database. I appreciate any help I can get with this. Thank you.
View 3 Replies
View Related
Apr 20, 2015
I have a table called dbo.userinfo with a primary key called employeeid and a field named jobfunction.
i have an intermediate table named dbo.projectpositions with a primary key named projnumber and a foreign key named employeeid.
I have a 3rd table named projects with a primary key projnumber and a field called project manager.
I'm trying to append the Projects table so that any projects that a worker has worked on (dbo.projectpositions) that is listed as a project manager (jobfunction) will have their employeeid fill in the project manager field on the projects table. Looks something like this:
INSERT INTO Projects ( [Project Manager] )
SELECT dbo_UserInfo.JobFunction
FROM (dbo_UserInfo INNER JOIN dbo_ProjectPositions ON dbo_UserInfo.EmployeeID = dbo_ProjectPositions.EmployeeID) INNER JOIN Projects ON dbo_ProjectPositions.ProjNumber = Projects.ProjNumber
WHERE (((dbo_UserInfo.JobFunction)="Project Manager"));
But just can't figure out the next step to populate the project manager field...
View 2 Replies
View Related
Jul 25, 2013
I basically want to use a set list (TableAddresses). This would be a Append Like "*InsertAddress*" I do this manually by simply typing 20 different addresses and then clicking Append.
Is there a better way to do this simply?
View 1 Replies
View Related
Feb 3, 2005
Hi,
I have a table that contains a notes field. What i would like to do is to append to this field in table with some more data (notes), however i dont want to over write the existing data. I would just like to add to it.
the current notes are added through the access front end, but in this instance i have a particular note that needs to be added to various enteries without overwriting existing data. I know this is to be done via an append query, any help would be great
Thanks
View 14 Replies
View Related
Sep 16, 2006
I have made several extractions from back ups from our ERP system using maketable querys. Each time when I renamed the table after running the maketable query. I now want to add them to create one big table showing the records which I extracted. I now found that each time when I extracted from my back up tapes there was a little overlap in time which gives me double entries when I use an append query to add them al together.
Is there a way to set parameters which filter our double entries and only adds the unique records to this table?
View 1 Replies
View Related
Mar 24, 2008
I understand that I can use an append query to add data to a table from a form and then have it run by using a command button. I want to do this because when I link the form directly to the table I do not want the form to create a new record every time it is invoked. (it does this automatically because I have visual basic code move to acNewRec and fill in some of the fields on load and lock them off, this is neccessary) I also do not want it to create the record immediately because the user might then decide to cancel their actions and leave the form - then I have half a record's worth of data in my tables! :D
I could just use VB and recordsets to do it but SQL is more elegant. The problem is, when I use the append query it appends an extra record to the table for every single record that already exists within it. So a table with 1500 records will have 1500 new entries containing duplicate data!
This is all a mess, so what would be a better approach? The user does not need to navigate through the records on this form or make edits, it's strictly for additions. There is a subform linked to a table that is in a one-to-many relationship with the table that the parent form must update to, but I'm quite happy to leave that one linked directly.
Any suggestions appreciated ;) I've probably done something thick..
View 1 Replies
View Related
Feb 14, 2014
I have the following code, the purpose of the code is that to take all rows from each table to append them into one table. However, I am testing this code with 2 tables (Table2 and Table3) each table has 2 records, when I run the code, it keeps adding records to table 1 that exceeds one million. what is wrong with my code?
Dim tblString, I As Integer
Dim rstFrom As Recordset, rst2 As Recordset
Dim db As Database
Set db = CurrentDb
Set rst2 = db.OpenRecordset("Table1", dbOpenDynaset)
[Code] .....
View 3 Replies
View Related
Aug 15, 2013
I have an append query that takes an item (once selected) from a listbox and it appends the contact name to a new table. Is there a way I can make an append query thay takes the ContactID and the ContactName and append it.
The listbox box has column 2 Bound (ContactName) soeven though I have written the query to take the ContactID it still only takes whats in the bound column!
View 1 Replies
View Related
Dec 11, 2013
I want to append data to the FC_TEMP table with the condition that the time_period is same on FC_TEMP and Scrap_Sales_Forecast table.Somehow it asks me to type in a parameter for Time_Period on FC_TEMP.
Code:
'Append Scrap Sales forecast to actual FC_TEMP table
Public Sub Append_Scrap()
DoCmd.RunSQL "INSERT INTO [FC_TEMP] SELECT Scrap_Sales_Forecast.* FROM Scrap_Sales_Forecast " & _
" WHERE FC_TEMP.[Time_Period] = Scrap_Sales_Forecast.[Time_Period]"
End Sub
View 3 Replies
View Related
Nov 30, 2012
I'd like to be able to filter through a .dat file like that (which is pretty much just like a .txt file as far as I can tell) and have that data appended into a table by way of a command button.
The annoying thing is that the data would have to be pulled out of the .dat file by position into columns like this:
Example line:
Code:
09 19192 00010212b1 5010570223
19192 = Ticket (Will be 5 digits long)
0001 = Quantity (Should be 4 digits long)
0212b1 - Location (Will be 6 characters long)
5010570223 = Article (Will be 10 characters long (not numbers))
by the way, let's say the .dat file will be in folder C:CENTURYWTERM.
View 5 Replies
View Related
Mar 12, 2015
I have two tables, tblCandidate and tblNewHire. I am trying to transfer candidates to tblNewHire based on the date they are hired. However, I would like the database to skip any records that are already in tblNewHire, just in case someone inadvertently puts in the wrong date when running the query.
I created an append query (SQL below) but this enters the data regardless of duplication. I need to be able to check both SSN and LastName against the new table and can't set either one to be unique values as it's possible there could be two candidates with the same last name.
Any way to do this by creating a recordset and looping through to check for dupes.
INSERT INTO tblNewHire ( SSN, FirstName, MiddleName, LastName, Phone, Email, EOD, HiringMechanism )
SELECT tblCandidate.SSN, tblCandidate.FirstName, tblCandidate.MiddleName, tblCandidate.LastName, tblCandidate.Phone, tblCandidate.Email, tblCandidateTracking.ActionDate, tblCandidateTracking.HireMechanism
FROM tblCandidate INNER JOIN tblCandidateTracking ON tblCandidate.SSN = tblCandidateTracking.SSN
WHERE (((tblCandidateTracking.ActionDate)=[forms]![frmNewHireMain]![txtEODDate]) AND ((tblCandidateTracking.LastAction)="EOD"));
View 2 Replies
View Related
Sep 27, 2012
I have a table in MS Access 2010 with a Date field and 3 Memo fields. I wish to append data to the Access table from a MS Word doc that has a date field and 3 memo fields. My wish is to have a command button on the MS Word doc which appends the data to my Access Table.I am aware that a web page can append data to an Access table.
View 2 Replies
View Related
Dec 28, 2012
I am trying to accomplish this in a macro. I know I was able to do this in older versions of access.I want to get data from a query and paste and append into a table. When I started to design the macro this is far as I got:
Qry Name: GetData
Table Name Storedata
Macro:
1st OpenQuery
Query Name: GetData
View: Datasheet
[code]...
The ? marks I cannot find any options in the macro actions catalog.
View 6 Replies
View Related
May 20, 2013
How I would go about appending data to a table that has been entered by a user on a form.
My initial idea to tackle this was to create a number of text boxes as a method of user input which would all then transfer to a table but this doesn't have much longevity to it(if the database requires additional columns to be added, etc.)
The setup at the moment is two tables, a main table, and a temporary table(which is where I intend to first store the user input, this is so that the user can view what they have entered and make any necessary changes(undo))
I'm wondering if there are any easier ways to go about this such as, a msgbox appears and asks the user to enter each individual column data for a row. This doesn't sound like the most efficient way but efficiency isn't a priority right now and is something I'll look at later.
I'd like it so that a user can input data into a number of text boxes, a button has an onclick event that will append all entered values to the temporary table, this is then relayed(I'm assuming through requery?) back to the user as a way of checking before really adding it to the main database, and then if they're happy there is another button which is then enabled so they can add it to the main database.
View 9 Replies
View Related
Mar 13, 2014
I want to set a table field's default value to whatever is displayed in a certain field on a certain form at the time.In other words, say I have a database with a table called TABLE1, and two fields called NAME and SCHEDULENUMBER. I have a form called CreateSchedule with a SCHEDULE NUMBERCONTROL form and a NAME form, and I can enter names onto it, and it records to the proper SCHEDULENUMBER. So if I pull up SCHEDULENUMBER 4, and add three names, when I go back into TABLE1, I can see those three new names, and each one has the SCHEDULENUMBER set to 4.
What I'm trying to do is write an APPEND QUERY to copy a list of names from a different table, and paste them into TABLE1. The problem is that the other table doesn't have a SCHEDULENUMBER field. What I want to do is put a button on the CreateSchedule form that runs an APPEND QUERY, and sets the SCHEDULENUMBER to whatever value is displayed on CreateSchedule's SCHEDULENUMBERCONTROL field.
I tried setting a default value in TABLE1's field properties for that SCHEDULENUMBERCONTROL field, but I keep getting error messages. I just want TABLE1, whenever I add a new record (regardless of how I add the record: manually typing it or clicking the append query button) to look at the form CreateSchedule, and set it's own SCHEDULENUMBER field to whatever is displayed in CreateSchedule's SCHEDULENUMBERCONTROL form.
View 1 Replies
View Related