[AccessD] Set form's Caption without code

Not sure if its the same...or if your against code all together...but I used 
this to change the AppTitle..


Private Sub Form_Activate()
  Dim intX As Integer

  intX = AddAppProperty("AppTitle", dbText, Me.Caption)

  RefreshTitleBar
End Sub


Hope it helps...

Mark A. Matte


>From: "Gustav Brock" <Gustav at cactus.dk>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: <accessd at databaseadvisors.com>
>Subject: RE: [AccessD] Set form's Caption without code
>Date: Tue, 07 Dec 2004 15:57:41 +0100
>
>Hi Andy
>
>At the OnOpen event, you could try this:
>
>=SetCaption(Forms([Forms].[Count]-1);"SomeCaption")
>
>/gustav
>
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
>Sent: Tuesday, December 07, 2004 5:59 AM
>To: Dba
>Subject: [AccessD] Set form's Caption without code
>
>
>Ok, here's the thing. I want to make a few forms lightweight which
>currently
>have just a line or two in modules. A few have nothing more than a
>line
>which dynamically sets the form's caption. So I wrote a little function
>like
>this:
>
>Function SetCaption(frm As Form, strCaption As String) frm.Caption =
>strCaption End Function
>
>and then changed my form's OnOpen from being an Event Procedure to :
>
>=SetCaption([Screen].[ActiveForm],"x")
>
>(The "x" is just for testing. The real call would have something a bit
>more
>dynamic, like the result of a function call.)
>
>The thing is that it errors because it can't resolve
>[Screen].[ActiveForm]
>at that point. Ok, methinks, I'll move the call. But I can't find where
>to
>put it. All of the following fail:
>
>On Load
>On GotFocus of the first control
>On Current
>
>The only success I've had is putting a timer interval of 5 and putting
>the
>call in OnTimer, but I don't like that much as you can imagine. If I
>force a
>call to it once the form's up then there's no problem (eg a command
>button),
>but that's not a lot of use to me either. So I know the function is
>fine,
>but has anyone got an answer as to where I might get this to run from?
>
>--
>Andy Lacey
>http://www.minstersystems.co.uk
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com