inputbox

[simanot]

I use this code below to open my form if the right password is enter.
I need somebody help me write a code with computer date which I have
to change the password every 30 days. Like this code " gasim" is
password.

Private Sub Form_Open(Cancel As Integer)
Dim sResponse As String, iResp As Integer
sResponse = InputBox("Enter your your password", "MC - 12&quot
If sResponse = ("gasim&quot Then
DoCmd.OpenForm "my form name"
Else
DoCmd.Quit
Cancel = fulse
End If

End Sub

 

[JeremyNYC]

I don't know how to change text in a module from a procedure. You could store a list of passwords in your database and just pull the next one out when the time comes. Or, as someone pointed out before, not store a list, just randomly generate one and store that.

But I don't get how this solution is going to work for you. How will someone learn what the password is if it keeps changing?

And if you're using this to protect something you think you're going to make money from, you'd better hope your selling price is way below the $50 that it would cost someone to buy software to break through a fully secured Access database.

Jeremy =============
Jeremy Wallace

http://www.AlphaBetCityDataworks.com

Designing and building Access databases since 1995.