Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
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.