A97 update all Command Button and Textbox Caption properties?

[MLH]

This is one for you gurus. Someone has undoubtedly already done this.
How difficult would it be to recurse all command buttons and textbox
controls on all forms, appending an incrementing number to the end of
their Caption property strings? Say I have 10 forms with 10 such
controls each, I would like to have " (001)" - " (100)" appended to
the end of each of their Caption property strings.

Of course, I know about the manual brute force technique. I would
like to automate the job with a procedure in a class module.

[Wayne Morgan]

The trick to doing this would be to do them in the order you desire.

To loop through the controls, open the form in design view, loop through the
controls, see what type of control each is, and concatenate the number onto
the current caption.

Untested, very general, example:

Dim ctl As Control, strForm As String, intButton As Integer, intTextbox As
Integer
'create a loop here to go through all of the forms
strForm = "frmFormNam e"
DoCmd.OpenForm strForm,acDesig n,,,,acHidden 'hidden is optional
For Each ctl In Forms(strForm). Controls
If ctl.ControlType = acCommandButton Then
intButton = intButton + 1
ctl.Caption = ctl.Caption & intButton
End If
If ctl.ControlType = acLabel Then
'get the associated control, is it a textbox?
If ctl.Parent.Cont rolType = acTextbox Then
intTextbox = intTextbox + 1
ctl.Caption = ctl.Caption & intTextbox
End If
End If
Next
DoCmd.Close acForm, strForm, acSaveYes

--
Wayne Morgan
MS Access MVP
"MLH" <CR**@NorthStat e.net> wrote in message
news:l7******** *************** *********@4ax.c om...

This is one for you gurus. Someone has undoubtedly already done this.
How difficult would it be to recurse all command buttons and textbox
controls on all forms, appending an incrementing number to the end of
their Caption property strings? Say I have 10 forms with 10 such
controls each, I would like to have " (001)" - " (100)" appended to
the end of each of their Caption property strings.

Of course, I know about the manual brute force technique. I would
like to automate the job with a procedure in a class module.

[Wayne Morgan]

PS.

One thing I thought of after doing that though is that Access 97 doesn't
have an AllForms Collection. To loop through the forms in Access 97 and open
them you'll need to open a recordset on the system table MSysObjects. Open
the recordset as a Snapshot so that you don't accidentally make changes to
this table. You will need to get the value from 2 fields. The Type field
will tell you if the object is a form. The Type value for a form is -32768.
The Name field will then give you the name of the form so that you can open
it.

--
Wayne Morgan
MS Access MVP
"MLH" <CR**@NorthStat e.net> wrote in message
news:l7******** *************** *********@4ax.c om...

This is one for you gurus. Someone has undoubtedly already done this.
How difficult would it be to recurse all command buttons and textbox
controls on all forms, appending an incrementing number to the end of
their Caption property strings? Say I have 10 forms with 10 such
controls each, I would like to have " (001)" - " (100)" appended to
the end of each of their Caption property strings.

Of course, I know about the manual brute force technique. I would
like to automate the job with a procedure in a class module.

[Salad]

Wayne Morgan wrote:

PS.

One thing I thought of after doing that though is that Access 97 doesn't
have an AllForms Collection. To loop through the forms in Access 97 and open
them you'll need to open a recordset on the system table MSysObjects. Open
the recordset as a Snapshot so that you don't accidentally make changes to
this table. You will need to get the value from 2 fields. The Type field
will tell you if the object is a form. The Type value for a form is -32768.
The Name field will then give you the name of the form so that you can open
it.

Wayne, I disagree that you need to open a recordset on MSysObjects. The
following code will list the forms in the mdb. It's easy enough to
expand it to open the forms like to you did in the prior post. I can do
the same with Reports and Modules.

Sub ListFormNames
Dim dbs As Database
Dim doc As Document
Dim i As Integer

Set dbs = CurrentDb

'change the word Forms to Reports or Modules for their list of names
With dbs.Containers! Forms
For Each doc In .Documents
i = i + 1
Debug.Print i & " " & doc.name
Next doc
End With

MsgBox "Done"
End Sub

[Wayne Morgan]

Thanks Salad,

I guess I'm going to need to reload Access 97. Trying to just remember what
it had and didn't have doesn't cut it.

--
Wayne Morgan
MS Access MVP
"Salad" <oi*@vinegar.co m> wrote in message
news:mi******** *********@newsr ead2.news.pas.e arthlink.net...

Wayne Morgan wrote:

Wayne, I disagree that you need to open a recordset on MSysObjects. The
following code will list the forms in the mdb. It's easy enough to expand
it to open the forms like to you did in the prior post. I can do the same
with Reports and Modules.

Sub ListFormNames
Dim dbs As Database
Dim doc As Document
Dim i As Integer

Set dbs = CurrentDb

'change the word Forms to Reports or Modules for their list of names
With dbs.Containers! Forms
For Each doc In .Documents
i = i + 1
Debug.Print i & " " & doc.name
Next doc
End With

MsgBox "Done"
End Sub

[Salad]

Wayne Morgan wrote:

Thanks Salad,

I guess I'm going to need to reload Access 97. Trying to just remember what
it had and didn't have doesn't cut it.

:-)

I have Office2003 sitting in a folder, not installed. Someday I guess
I'm going to have to get with the game and move to it.