[AccessD] Set Application Title Through Code

Thanks Bobby.  I already have the ChangeProperty routine as a Public function so this is too convenient.

Rocky

  ----- Original Message ----- 
  From: Bobby Heid 
  To: 'Access Developers discussion and problem solving' 
  Sent: Monday, July 14, 2003 11:27 AM
  Subject: RE: [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



------------------------------------------------------------------------------


  _______________________________________________
  AccessD mailing list
  AccessD at databaseadvisors.com
  http://databaseadvisors.com/mailman/listinfo/accessd
  Website: http://www.databaseadvisors.com



------------------------------------------------------------------------------


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