Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim rs As DAO.Recordset Dim strSQL As String strSQL = "SELECT * FROM tblItemCalculations WHERE EstPartID = " & Me.txtEstPartID Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) If rs.RecordCount > 0 Then MsgBox "This item calculation already exists and will be edited if you have made changes." rs.Edit rs!EstID = Me.txtEstID 'rs!EstPartID = Me.txtEstPartID rs!Template = Me.chkbxTemplate rs!PrinterID = Me.cboPrinterID rs!PaperType = Me.cboPaperType rs.Update MsgBox "This item calculation has been saved in the calculations table." Else MsgBox "This appears to be a new item calculation which does not already exist in the program. A new record is being created." rs.AddNew rs!EstID = Me.txtEstID rs!EstPartID = Me.txtEstPartID rs!Template = Me.chkbxTemplate rs!PrinterID = Me.cboPrinterID rs!PaperType = Me.cboPaperType rs.Update MsgBox "The new record has been created in the Item Calculations table." End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|MS Access 2013 field type short text default value||5||28|
|default value of combobox||25||44|
|Delete records based on common identifier from third table||2||31|
|Dll Created For Access App cannot locate web services configuration info in App.config file||19||28|