If managing Active Directory using Windows Powershell® is making you feel like you stepped back in time, you are not alone. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why.
Private Sub Form_Load() Dim myRecordedDate As String 'lookup date myRecordedDate = Nz(DLookup("dtExpire", "ExpireTable"), "Empty") 'insert expiry date if there is none If myRecordedDate = "Empty" Then CurrentDb.Execute "INSERT INTO ExpireTable (dtExpire) VALUES " & Chr(34) & Format(Now(), "dd-mmm-yy") + 30 & Chr(34) & ";" End If If myRecordedDate >= Now() Then 'expired Application.Quit Else 'let em in End If 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.