The revolutionary project management tool is here! Plan visually with a single glance and make sure your projects get done.
Function ValidateMe() As Integer Dim rtn As Integer rtn = True If Trim("" & cboType) <> "" And Trim("" & txtExpectedDisbRQDate) <> "" And Trim("" & txtRequestedDisbDate) <> "" Then Select Case cboType Case "JBIC" If txtRequestedDisbDate > txtExpectedDisbRQDate + 30 Then Else MsgBox "Invalid Expected Draw Down Date for JBIC. Must give at least a 30 day notice. Press <ESC> to undo your changes." rtn = False End If Case Else [u] If txtRequestedDisbDate < txtExpectedDisbRQDate + 25 Then[/u] Else MsgBox "Invalid Expected Draw Down Date for Nexi or Uncovered. Nexi requires to be notified no greater than 25 days notice (needs to be <25 days). Press <ESC> to undo your changes." rtn = False End If End Select End If ValidateMe = rtn End Function
Join the community of 500,000 technology professionals and ask your questions.