Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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.
Join the community of 500,000 technology professionals and ask your questions.