<!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>