I keep getting the following error when I try to save data to a recordset.
My Code:Runtime Error '-2147217864(80040e38)'
Row cannot be located for updating. Some values may have been changed since it was last used.
The error is generated when I hit save. Any suggestions???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




Reply With Quote