With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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
|Access Web appliction||7||47|
|Access Excel export not behaving||2||24|
|Dlook problems updating an unbound textbox from a table with criteria from another unbound textbox||3||12|
|How do I refer to a session variable in a query?||4||15|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!