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!