[AccessD] Set Application Title Through Code

Hey,
 
   ChangeProperty "AppTitle", dbChar, strAPPTITLE
 

Public Function ChangeProperty(strPropName As String, varPropType As
Variant, varPropValue As Variant) As Integer
Dim dbs As Database
Dim PRP As Property
Const conPropNotFoundError = 3270
 
   Set dbs = CurrentDb
   On Error GoTo Change_Err
   dbs.Properties(strPropName) = varPropValue
   ChangeProperty = True
 
Change_Bye:
   Exit Function
 
Change_Err:
   If Err = conPropNotFoundError Then  ' Property not found.
      Set PRP = dbs.CreateProperty(strPropName, varPropType, varPropValue)
      dbs.Properties.Append PRP
      Resume Next
   Else
      ' Unknown error.
      ChangeProperty = False
      Resume Change_Bye
   End If
End Function
 
 
HTH,
Bobby
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Rocky Smolin -
Beach Access Software
Sent: Monday, July 14, 2003 2:18 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Set Application Title Through Code


Dear List:
 
Does anyone know how to set the Application Title through code?  The one you
can set manually from Tools-->Startup?
 
MTIA,
 
Rocky Smolin
Beach Access Software
 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030714/db91187d/attachment-0003.html>
-------------- next part --------------
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com