Help me out

[Unicon]

Hi
Is there any code which can deactivate whole database after certain period (like after 1 month / or 6 months).

Please advise.

 

[ghudson]

Did you try searching the forum? http://www.access-programmers.co.uk/forums/showthread.php?t=162929&highlight=trial+expire

 

[Access_guy49]

Could you not just put in an if statement to check the date on startup?

if date() >= [enter your ending date value here] then
docmd.quit
end if

 

[Unicon]

Thanks Ghudson & Access guy, my concern is do we have any code from which we can corrupt the database after some periods?
Please advise.

 

[DCrake]

Why the hell would you want to corrupt a database??????

 

[Khalid_Afridi]

Why the hell would you want to corrupt a database??????

May be Unicon is not happy with his BOSS .

 

[Unicon]

Hi Dcrake I just want to disable my database while I am leaving , for that reason only I am asking the same.

Khalid it's not that matter

If you guys have something (magic code) please do let me know.

 

[Khalid_Afridi]

Hi Dcrake I just want to disable my database while I am leaving , for that reason only I am asking the same.

Khalid it's not that matter

If you guys have something (magic code) please do let me know.

I thought it was and if it is, then you can fight with you BOSS rather than to corrupt the poor database.
There are too many ways... you can put the time bomb there an any code..

 

[DCrake]

If you wrote the system in your firms time and used their machine and there software then THEY have the copyrights to it and its IPR. Corrupting the database it going to leave you open to legal action. I would be very wary of going down that route.

 

[Unicon]

Hi DCrake,

This is my own database and it will not take me anywhere to legal action please don't take it serious. I am just looking for a help from you guys if you have something. My intention is to know only if there is any code for that one.

Do you have something?

 

[Khalid_Afridi]

Hi DCrake,

This is my own database and it will not take me anywhere to legal action please don't take it serious. I am just looking for a help from you guys if you have something. My intention is to know only if there is any code for that one.

Do you have something?

Yes!
Just delete your own database. no database no worries

 

[DCrake]

If you are leaving on good terms then why not offer to sell it to them. If you are afraid of being prevented from removing the database from the machine(s) then on the on load of the splash screen use the following code

If Date() >= #01/01/2011# ' or whatever date you want to have
  MsgBox "Your License for this product has expired",vbCritical+VbOkOnly,"Access Denied"
  DoCmd.Quit
End If

Make sure you set the AllowByPassKey to False first.

If you have your own machine at home you could take a copy now without the above as security. So if they want it at a later date you can charge them for activating it.

 

[Khalid_Afridi]

Make sure you set the AllowByPassKey to False first.

Hi David!
This is also a big topic. Do you know any thread for it?

 

[DCrake]

Have you tried using the search function for AllowByPassKey in this forum and in MS

 

[Khalid_Afridi]

No!
David, let me try

 

[Khalid_Afridi]

Thanks David! I found there so many to change the Properties, but not fully understand

 

[Unicon]

Hi David,

How to set the AllowByPassKey to False? Please advise.

Totally confused.

 

[Unicon]

Hi David,

I tried somhow like this but didn't work.

Private Sub Form_Load()
If Date() >= #3/29/2010#
MsgBox "Your License for this product has expired", vbCritical + vbOKOnly, "Access Denied"
DoCmd.Quit
End If
End Sub

Please advise.

 

[Khalid_Afridi]

Hi David,

I tried somhow like this but didn't work.

Private Sub Form_Load()
If Date() >= #3/29/2010# then
MsgBox "Your License for this product has expired", vbCritical + vbOKOnly, "Access Denied"
DoCmd.Quit
End If
End Sub

Please advise.

You have to wait for towmorrow, BTW today is 3/28/2010 also IF Then is missing in your code.

 

[Unicon]

Yes Khalid now its working as I missed out "then"

Thank you guys for your help as always.

Appreciated.