Setting a constant caption for all forms

[DubCap01]

Hi all gurus, and the great unwashed rest of you

Just wondering if I can set each form's caption to reflect a value from a field in a table?



TblCompany - one field [Companyname] which has the value of "Acme Coyote Dynamite Distributors"

So, when each form opens up, the form's caption displays "Acme Coyote Dynamite Distributors" as opposed to the default crappy thing supplied by Mr Gates?

I have no problem putting this into a function or on the Current event of the form, I'd just like some help with the VBA?

thanks in anticipation RoadRunners!

(my apologies for those too young to get the irony)

Pete

[amrut]

In the form's load event ( or in current event if you want to change during data entry/navigation)
Me.Caption="Your Caption"

[DubCap01]

Hi Amnut

I am aware of that one, what I would like is a function (called say "CaptionAcme") that I can add to every form

So the function would be something like

Function Public Acme()

Me.caption = Dlookup("Companyname","TblCompany")

End Function

I just need the code to make the Dlookup work!

cheers

[amrut]

Public Function Acme() as String

Acme = Dlookup("Companyname","TblCompany")

End Function
Me.Caption = Acme
If there is only one line of code, Me.Caption is a better choice unless you need something more.

[DubCap01]

Played it out exactly as you quoted, but the Form caption is still FrmMembers (name of the form)
bedtime here, will check in the morning for more enlightening criticism - thanks Amrut

[DubCap01]

Sorted, amrut,your code works perfectly, I was just too tired and created a typo! Solved thank you!