Rename Form Controls & Labels

[Chrisss]

Hello,

I have a specific form, “frmCompany” and I want to copy it then paste it as “frmPerson”.

I then would like to do a Search for controls & labels in the pasted form to Search for any containing "Cmpny" and Replace with "Prsn" so “lblCmpnyName” -> “lblPrsnName” and “txtCmpnyName” -> “txtPrsnName” etc.

Since I want to be able to repeat this technique, I've spent a couple days trying to figure this out without success, any help greatly appreciated.

Thanks,
Chris

 

[theDBguy]

Hi Chris. Have you considered using a third-party add-in to do this task? I'm not sure which tool would have that feature, but MZ Tools is a popular one.

 

[MarkK]

In code you can open a form in design view....

    DoCmd.OpenForm "FormName", acDesign

Then you can enumerate the controls collection of that form...

    For Each ctrl In Forms("FormName").Controls
        ' do something with ctrl
    Next

But this is not something that makes sense to do as a matter of routine.

 

[MajP]

Public Sub testIt()
  'Change City to State in Form1
  RenameControls "Form1", "City", "State"
End Sub

Public Sub RenameControls(formName As String, Find As String, Replace As
String)
  Dim frm As Access.Form
  Dim ctl As Access.Control
  Dim ctlName As String
  DoCmd.OpenForm formName, acDesign
  Set frm = Forms(formName)
  For Each ctl In frm
    ctl.Name = VBA.Replace(ctl.Name, Find, Replace)
  Next ctl
  DoCmd.Close acForm, formName, acSaveYes

End Sub

 

[Gasman]

Crossposted first at https://www.utteraccess.com/topics/2063848?post=unread