If you did a CreateProperty() to create a property named "Version" on the
current database object, then you should be able to read that property and
assign it to the AppTitle property:
With DBEngine(0)(0)
.Properties("AppTitle") = .Properties("Version")
End With
Application.RefreshTitleBar
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users -
http://allenbrowne.com/tips.html
"Ken" <kk_oop@yahoo.com> wrote in message
news:510b0c84.0310080354.46793468@posting.google.c om...[color=blue]
> But how would I access a custom database property?
>
> Also, I just noticed that the caption of the application window title
> bar can be changed outside of VBA by entering a string in the
> Tools/Startup window's "Application Title" data entry box. Is there a
> way to access the custom database property from that data entry box so
> it would get included in the app window's title bar?
>
> Thanks again!
>
> Ken
>
> "Allen Browne" <abrowne1_SpamTrap@bigpond.net.au> wrote in message[/color]
news:<u8Cgb.140402$bo1.42529@news-server.bigpond.net.au>...[color=blue][color=green]
> > Private Sub Form_Open(Cancel As Integer)
> > Me.Caption = "Put your text here"
> >
> > DBEngine(0)(0).Properties("AppTitle") = "Put your text here"
> > Application.RefreshTitleBar
> > End Sub
> >
> >
> > --
> > Allen Browne - Microsoft MVP. Perth, Western Australia.
> > Tips for Access users -
http://allenbrowne.com/tips.html
> >
> > "Ken" <kk_oop@yahoo.com> wrote in message
> > news:510b0c84.0310070818.7594c6e9@posting.google.c om...[color=darkred]
> > > Hi.
> > >
> > > I've defined a custom database property called Version. It is a text
> > > value. I wanted to know if there is a way to include that value on
> > > the title bar of a form window. Also, is there a way to include it on
> > > the title bar of the database window?
> > >
> > > I'm using Access 97.
> > >
> > > Thanks for any info!
> > >
> > > Ken[/color][/color][/color]
