We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Access vs Access runtime||6||63|
|ODBC failure when running MSACCESS query a second time.||5||55|
|question about a text field with default value||5||30|
|Sharepoint list value updated via access or Excel||3||32|
Join the community of 500,000 technology professionals and ask your questions.