We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Private Sub NetAmount_AfterUpdate() On Error GoTo NetAmount_AfterUpdate_Error Dim nAmt As Long Dim nAmtTotal As Long nAmt = Format(Me.NetAmount, "Currency") nAmtTotal = FormatCurrency(Forms![frmCodingSlip]![txtMCFRemainingUS].value, 2) If nAmt > nAmtTotal Then Select Case _ MsgBox("The system is unable to process the current invoice due to the Remaining Funds of " _ & nAmtTotal & " is less than the amount of entered." _ & vbCrLf & "" _ & vbCrLf & "Please validate and adjust the amount enter that is no greater than the Remaining Funds." _ , vbOK Or vbCritical Or vbDefaultButton1, "Funds Discrepancy") Case vbOK Me.NetAmount = vbNullString Exit Sub End Select Else Me.Currency.SetFocus Me.Currency.Dropdown End If On Error GoTo 0 Exit Sub NetAmount_AfterUpdate_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure NetAmount_AfterUpdate of VBA Document Form_frmInvoiceSub" End Sub
|A beginner asks: Which macos postgreSQL client?||5||56|
|Number of records returned on a form||5||25|
|MS Access How can I utilize 2 list boxes at the same time?||2||23|
|Email Populated Report as PDF||2||13|