Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!