Silvester said:
Hi,
What is the best way to add application version functionality into a A2000
frontend ?
Can someone point me to a how-to url ?
There are several ways to do this. Adding a version table that the
application checks for the highest number is one way. I prefer to create and
use a custom database property. I show the property here as a long, but also
use dbText so I can use it with versions like "1.01a":
Sub CreateVersion()
Dim db As DAO.Database
Set db = CurrentDb
db.Properties.Append db.CreateProperty("AppVersion", dbLong, 123)
Set db = Nothing
End Sub
Sub UpdateVersion()
Dim db As DAO.Database
Set db = CurrentDb
db.Properties("AppVersion").Value = 1
Set db = Nothing
End Sub
Function GetVersion()
Dim db As DAO.Database
Set db = CurrentDb
GetVersion = db.Properties("AppVersion").Value
Set db = Nothing
End Function
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access
