I have the following code and it doesn't throw any errors but does nothing. I'm sure I'm missing something minor but just can't figure it out and have searched different solutions with no avail...
Code:Dim db As DatabaseDim rs As Recordset Set db = CurrentDb Set rs = CurrentDb.OpenRecordset("tblSales") With rs rs.AddNew rs!Desc = Me.txtDesc.Value rs!Item = Me.txtItem.Value rsPost_Price = txtPosted.Value rs!Sell_Price = txtSold.Value rs!Sold_Loc = txtChannel.Value rs.Update End With rs.Close