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]
Licence No for end user 
