To make Password valid for 15 days only

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Frank Situmorang - 12 Mar 2008 05:36 GMT

Hello,

This is the VBA for password to enter the database.

My question is how can we make it that the password is valid fo 15 days and
if I want to make it for good, just uncomment the VBA line

Thanks in advance

Signature

H. Frank Situmorang

Reply to this Message

Frank Situmorang - 12 Mar 2008 05:39 GMT

Hello,

I should have included my VBA, here it is
Private Sub txtPassword_AfterUpdate()
If Me.txtPassword = "hfs1754" Then
'Do something
DoCmd.Close
DoCmd.OpenForm "Switchboard"
Else
MsgBox "Password yang dimasukkan salah"
'Do something else
DoCmd.Close
End If

End Sub

Signature

H. Frank Situmorang

> Hello,
>
[quoted text clipped - 4 lines]
>
> Thanks in advance

Reply to this Message

Allan Murphy - 12 Mar 2008 06:46 GMT

Frank

Have a look at my sample Login Demo at
The login demo is about message 10 on this link
http://forums.databasejournal.com/showthread.php?t=45488

This vaildates the user login ID and password and also checks the password
expiry date and then forces the user to change their password. The password
expires 30 days after the last change by the user.

Allan

> Hello,
>
[quoted text clipped - 5 lines]
>
> Thanks in advance

Reply to this Message

Frank Situmorang - 12 Mar 2008 10:27 GMT

Allan,

I have seen yours and it is very good. But mine is just simple. I will give
them password and after that 15 days from they first using the software, it
will be expired, because it is a test, if they are satisfied they will
contact me and I will give parmanent password. Since this is for churches
members database so password is not so important, just to protect that only
certain people will use the software, gor elders, secretary and pastor.

Maybe the approach is to make a constant = 15?, and the from Today - 15
should be <15.

Sorry I am not too good on VBA, my major is in Finance & Accounting

Thanks for your help.

Signature

H. Frank Situmorang

> Frank
>
[quoted text clipped - 17 lines]
> >
> > Thanks in advance

Reply to this Message