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.
Private Sub Form_Load() Function CheckDate() Dim DataMax As Date DataMax = "12/31/2007" If Now() > DataMax Then MsgBox "Your time has expired! Please Register" DoCmd.Quit End If End Function End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.