asked on
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