<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">


<META content="MSHTML 6.00.2800.1170" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><SPAN class=914132218-14072003><FONT face=Arial color=#0000ff 
size=2>Hey,</FONT></SPAN></DIV>
<DIV><SPAN class=914132218-14072003><FONT face=Arial color=#0000ff 
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=914132218-14072003><FONT face=Arial color=#0000ff 
size=2>   ChangeProperty "AppTitle", dbChar, 
strAPPTITLE</FONT></SPAN></DIV>
<DIV><SPAN class=914132218-14072003><FONT face=Arial color=#0000ff 
size=2></FONT></SPAN> </DIV><SPAN class=914132218-14072003>
<DIV><BR><FONT face=Arial color=#0000ff size=2>Public Function 
ChangeProperty(strPropName As String, varPropType As Variant, varPropValue 
As Variant) As Integer<BR>Dim dbs As Database</FONT></DIV>
<DIV><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN 
class=914132218-14072003>Dim </SPAN>PRP As Property<BR>Const 
conPropNotFoundError = 3270</FONT></FONT></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>   Set dbs = 
CurrentDb<BR>   On Error GoTo Change_Err<BR>   
dbs.Properties(strPropName) = varPropValue<BR>   ChangeProperty = 
True</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>Change_Bye:<BR>   Exit 
Function</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>Change_Err:<BR>   If Err = 
conPropNotFoundError Then  ' Property not 
found.<BR>      Set PRP = 
dbs.CreateProperty(strPropName, varPropType, 
varPropValue)<BR>      dbs.Properties.Append 
PRP<BR>      Resume Next<BR>   
Else<BR>      ' Unknown 
error.<BR>      ChangeProperty = 
False<BR>      Resume Change_Bye<BR>   End 
If<BR>End Function</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=914132218-14072003><FONT face=Arial color=#0000ff 
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=914132218-14072003><FONT face=Arial color=#0000ff 
size=2>HTH,</FONT></SPAN></DIV>
<DIV><SPAN class=914132218-14072003><FONT face=Arial color=#0000ff 
size=2>Bobby</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT></SPAN> </DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
  <DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma 
  size=2>-----Original Message-----<BR><B>From:</B> 
  accessd-bounces@databaseadvisors.com 
  [mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of </B>Rocky Smolin 
  - Beach Access Software<BR><B>Sent:</B> Monday, July 14, 2003 2:18 
  PM<BR><B>To:</B> AccessD@databaseadvisors.com<BR><B>Subject:</B> [AccessD] Set 
  Application Title Through Code<BR><BR></FONT></DIV>
  <DIV><FONT face=Arial size=2>Dear List:</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>Does anyone know how to set the Application Title 
  through code?  The one you can set manually from 
  Tools-->Startup?</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>MTIA,</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>Rocky Smolin<BR>Beach Access 
Software</FONT></DIV>
  <DIV> </DIV></BLOCKQUOTE></BODY></HTML>