By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,490 Members | 897 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,490 IT Pros & Developers. It's quick & easy.

50 forms later, I forgot to set the form captions...

P: n/a
MLH
Now I see things like frmLookUpAvehicle (and other
form names) in the title bars on the forms. Can I change
all to the string returned by GetAppNameNver() in an
automated process from the immediate window or from
a utility form I make up just for the process?
Nov 13 '05 #1
Share this Question
Share on Google+
5 Replies


P: n/a

"MLH" <CR**@NorthState.net> wrote in message
news:ce********************************@4ax.com...
Now I see things like frmLookUpAvehicle (and other
form names) in the title bars on the forms. Can I change
all to the string returned by GetAppNameNver() in an
automated process from the immediate window or from
a utility form I make up just for the process?

Nov 13 '05 #2

P: n/a
On Mon, 11 Jul 2005 19:19:38 -0400, MLH <CR**@NorthState.net> wrote:
Now I see things like frmLookUpAvehicle (and other
form names) in the title bars on the forms. Can I change
all to the string returned by GetAppNameNver() in an
automated process from the immediate window or from
a utility form I make up just for the process?

Sub SetFormCaptions()
Dim i As Integer
Dim db As Database
Dim strNewCaption As String

Set db = CurrentDb
strNewCaption = GetAppNameNver()

For i = 0 To db.Containers(1).Documents.Count - 1
DoCmd.OpenForm db.Containers(1).Documents(i).Name, acDesign
Forms(db.Containers(1).Documents(i).Name).Caption = strNewCaption
DoCmd.Close acForm, db.Containers(1).Documents(i).Name, acSaveYes
Next

Set db = Nothing

End Sub

Nov 13 '05 #3

P: n/a
Cycle through the forms collection and set the caption property of each
form.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com
"MLH" <CR**@NorthState.net> wrote in message
news:ce********************************@4ax.com...
Now I see things like frmLookUpAvehicle (and other
form names) in the title bars on the forms. Can I change
all to the string returned by GetAppNameNver() in an
automated process from the immediate window or from
a utility form I make up just for the process?

Nov 13 '05 #4

P: n/a
On Tue, 12 Jul 2005 01:58:14 GMT, "PC Datasheet" <no****@nospam.spam>
wrote:
Cycle through the forms collection and set the caption property of each
form.


The forms collection only includes open forms, you need to cycle all
documents in the forms container.

Nov 13 '05 #5

P: n/a
MLH
Wayne, that was EXACTLY what I needed.
Thx much!
Nov 13 '05 #6

This discussion thread is closed

Replies have been disabled for this discussion.