Transfer data from one table to another with Insert Into

C

cosmic

Help, I have an application that first sets up a quote, then if the quote
becomes a sale, the info transfers from the quote table to sales table. I
had this code working, but now I get the following error:
"The changes you requested to the table were not successful because they
would create duplicate values in the index, primary key, or relationship.
Change the data in the field or fields that contain the duplicate data,
remove the index, or redefine the index to permit duplicate entries and try
again."

Code:
Private Sub ProcessSale_Click()
On Error GoTo Err_ProcessSale_Click
Dim dbs As Database
Dim LInsert As String
Dim payfields As String
Dim qfields, sfields As String
Dim sid As Long
'Insert the Quote data into the Sales table
Set dbs = CurrentDb()
ifields = "CustomerID, ProductID, SaleDate, MileageOut, SalesPrice,
TradeInAllowance, SalesTax, TagTitleReg, DownPayment, DealersComp,
TotalPayments, PaymentPer, FirstPaymentDate"
LInsert = "Insert Into tblSales (" & ifields & ") Select " & ifields & "
From tblQuote Where QuoteID = " & Me!QuoteID
dbs.Execute LInsert, dbFailOnError
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top