By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,842 Members | 2,154 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,842 IT Pros & Developers. It's quick & easy.

Licence No for end user

P: n/a
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
Nov 12 '05 #1
Share this Question
Share on Google+
3 Replies


P: n/a
On 7 May 2004 20:45:11 -0700, da**********@bigpond.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


Nov 12 '05 #2

P: n/a
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!
Nov 12 '05 #3

P: n/a
On 08 May 2004 09:26:43 GMT, David Deacon
<da**********@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.

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!


Nov 12 '05 #4

This discussion thread is closed

Replies have been disabled for this discussion.