<!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><FONT face=Arial size=2>Thanks Bobby. I already have the
ChangeProperty routine as a Public function so this is too
convenient.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Rocky</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=bheid@appdevgrp.com href="mailto:bheid@appdevgrp.com">Bobby Heid</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=accessd@databaseadvisors.com
href="mailto:accessd@databaseadvisors.com">'Access Developers discussion and
problem solving'</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, July 14, 2003 11:27
AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> RE: [AccessD] Set Application
Title Through Code</DIV>
<DIV><BR></DIV>
<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>
<P>
<HR>
<P></P>_______________________________________________<BR>AccessD mailing
list<BR>AccessD@databaseadvisors.com<BR>http://databaseadvisors.com/mailman/listinfo/accessd<BR>Website:
http://www.databaseadvisors.com<BR>
<P>
<HR>
<P></P>_______________________________________________<BR>AccessD mailing
list<BR>AccessD@databaseadvisors.com<BR>http://databaseadvisors.com/mailman/listinfo/accessd<BR>Website:
http://www.databaseadvisors.com<BR></BLOCKQUOTE></BODY></HTML>