Licence No for end user

[DD]

I am after help in generating the code... The end user enters a
licence no in the software to use the software
as you do with Microsoft products.
Can anyone help
Regards
DD

[Tom van Stiphout]

On 7 May 2004 20:45:11 -0700, da**********@bi gpond.com.au (DD) wrote:

What have you figured out so far?
-Tom.

I am after help in generating the code... The end user enters a
licence no in the software to use the software
as you do with Microsoft products.
Can anyone help
Regards
DD

[David Deacon]

I have found out you need to know what you are doing.
I picked up this part
And i understand it,, what i have yet to get to is the
' forms mdules would contain code to append properties
Any help coming my way?
DD

Call the code from when the user first logs into the application, e.g.
in AutoExec Call RunCode, Licence()

Function Licence()
Dim Db As Database
Set Db = DbEngine(0)(0)
On Error Resume Next
debug.print Db.Properties(" user")
' ( if no "user" proeprty, error occurs)
If Err Then
' Open Form to input user & Org
DoCmd OpenForm "Licence"
' forms mdules would contain code to append properties
' to the database object
End If
' Open popup form with labels that you can set
' with user & org info
DoCmd OpenForm "SplashScre en"
Forms!SplashScr een!lblUser.Cap tion = db.properties(" User")
Forms!SplashScr een!lblOrg.Capt ion = db.properties(" Org")
End Function

DD

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Tom van Stiphout]

On 08 May 2004 09:26:43 GMT, David Deacon
<da**********@b igpond.com.au> wrote:

This code would add a property:
Dim db As DAO.Database
Dim prop As DAO.Property

Set db = CurrentDb
Set prop = db.CreateProper ty("test1", dbText, "value of test1")
db.Properties.A ppend prop
Set prop = Nothing
Set db = Nothing

-Tom.

I have found out you need to know what you are doing.
I picked up this part
And i understand it,, what i have yet to get to is the
' forms mdules would contain code to append properties
Any help coming my way?
DD

Call the code from when the user first logs into the application, e.g.
in AutoExec Call RunCode, Licence()

Function Licence()
Dim Db As Database
Set Db = DbEngine(0)(0)
On Error Resume Next
debug.print Db.Properties(" user")
' ( if no "user" proeprty, error occurs)
If Err Then
' Open Form to input user & Org
DoCmd OpenForm "Licence"
' forms mdules would contain code to append properties
' to the database object
End If
' Open popup form with labels that you can set
' with user & org info
DoCmd OpenForm "SplashScre en"
Forms!SplashScr een!lblUser.Cap tion = db.properties(" User")
Forms!SplashScr een!lblOrg.Capt ion = db.properties(" Org")
End Function

DD

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!