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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!