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

On 7 May 2004 20:45:11 -0700, david.deacon@bigpond.com.au (DD) wrote:

What have you figured out so far?
-Tom.
[color=blue]
>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[/color]

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 "SplashScreen"
Forms!SplashScreen!lblUser.Caption = db.properties("User")
Forms!SplashScreen!lblOrg.Caption = db.properties("Org")
End Function

DD

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

On 08 May 2004 09:26:43 GMT, David Deacon
<david.deacon@bigpond.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.CreateProperty("test1", dbText, "value of test1")
db.Properties.Append prop
Set prop = Nothing
Set db = Nothing

-Tom.

[color=blue]
>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 "SplashScreen"
> Forms!SplashScreen!lblUser.Caption = db.properties("User")
> Forms!SplashScreen!lblOrg.Caption = db.properties("Org")
>End Function
>
>DD
>
>*** Sent via Developersdex http://www.developersdex.com ***
>Don't just participate in USENET...get rewarded for it![/color]