[AccessD] Set form's Caption without code

Genius. Sheer genius. Works like a dream. Thanks Gustav.

--
Andy Lacey
http://www.minstersystems.co.uk



--------- Original Message --------
From: Access Developers discussion and problem solving
<accessd at databaseadvisors.com>
To: accessd at databaseadvisors.com <accessd at databaseadvisors.com>
Subject: RE: [AccessD] Set form's Caption without code
Date: 07/12/04 15:00

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

________________________________________________
Message sent using UebiMiau 2.7.2