Error on updating records
I keep getting the following error when I try to save data to a recordset.
Quote:
Runtime Error '-2147217864(80040e38)'
Row cannot be located for updating. Some values may have been changed since it was last used.
My Code:
Code:
Private Sub Form_Load()
dataBase = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\QuoteSystem\Quote\Quote.mdb;Persist Security Info=False"
With adoQuote
.ConnectionString = dataBase
.RecordSource = qteNo
.CursorLocation = adUseClient
.Refresh
End With
Set cboQuoteNo.DataSource = adoQuote
Set txtFAO.DataSource = adoQuote
Set txtAdd.DataSource = adoQuote
Set txtDate.DataSource = adoQuote
Set txtTime.DataSource = adoQuote
Set txtCompName.DataSource = adoQuote
Set txtQteTot.DataSource = adoQuote
Set ckOrder.DataSource = adoQuote
Set ckNtSucess.DataSource = adoQuote
Set ckSuper.DataSource = adoQuote
Set txtSuper.DataSource = adoQuote
cboQuoteNo.DataField = "QuoteNo"
txtFAO.DataField = "FAO"
txtAdd.DataField = "Address"
txtDate.DataField = "TodayDate"
txtTime.DataField = "TodayTime"
txtCompName.DataField = "Company"
txtQteTot.DataField = "QuoteTotal"
ckOrder.DataField = "ToOrder"
ckNtSucess.DataField = "NoSucessful"
ckSuper.DataField = "Superceeded"
txtSuper.DataField = "SuperQuote"
End Sub
Private Sub cmdNew_Click()
With adoQuote.Recordset
.AddNew
txtDate = Date
txtTime = Time
txtCompName = ""
txtFAO = ""
txtAdd = ""
cboRep = ""
txtEmail = ""
txtQteTot = ""
ckOrder = False
ckNtSucess = False
ckSuper = False
txtSuper = ""
.Update
.MovePrevious
.MoveNext
End With
End Sub
Private Sub cmdSave_Click()
adoQuote.Recordset.Update
End Sub
The error is generated when I hit save. Any suggestions???