Private Sub CboSalesInvoicesPre_AfterUpdate()
On Error GoTo Err_Handler
Me.sfrmLineDetails_Subform.SetFocus
Call CmdUploadInvoices_Click
Me.CboSalesInvOrders = ""
Me.CboSalesInvoicesPre = ""
Exit Sub
Exit_CboSalesInvoicesPre_AfterUpdate:
Exit Sub
Err_Handler:
Resume Exit_CboSalesInvoicesPre_AfterUpdate
End Sub
Private Sub CboSalesInvoicesPre_Exit(Cancel As Integer)
On Error GoTo Err_Handler
If MsgBox("Do you have the sales order to attach, if yes then select order to attach now and Are you sure the Currency Type is Ok and Exchange Rate?", vbYesNo + vbQuestion, "Internal Audit Manager") = vbYes Then
Cancel = True
Exit Sub
End If
Exit_CboSalesInvoicesPre_Exit:
Exit Sub
Err_Handler:
Resume Exit_CboSalesInvoicesPre_Exit
End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.