Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Private Sub cmdDelete_Click() If Me.Parent.Status > 10 Then DoCmd.SetWarnings False GoTo ErrorLine: ElseIf IsNull(Me.Item__) Then DoCmd.SetWarnings False MsgBox "There is no line item to delete!", , "Cannot Delete Record!" Exit Sub Else DoCmd.SetWarnings False If MsgBox("Are you sure you want to delete this line item?", vbYesNo, "Delete Line Item?") = vbYes Then DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Exit Sub Else Exit Sub End If Exit Sub ErrorLine: DoCmd.SetWarnings True MsgBox "This record cannot be deleted at this time!", , "Cannot Delete Record!" Exit Sub End If End Sub