Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!