Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
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.