Form replication

[solo7]

Ok I've been working on a form for some time now and it works perfectly (famous last words!).

I now need to copy my form and replace one piece of code throught. I need to change EVERY reference in my form to TblMod3 to another table, ie TblMod2, and then copy the form again replacing TblMod3 with TblMod1.

Using the 'Find & Replace' function makes the VBA code side very easy, but how do I change [red]ALL[/red] the instances which are contained within the combobox's and listbox's properties?

Solo7

 

[Remou]

Hi
How about stepping though each field in the form?
I am not sure where exactly the information you want to change is, but say it is the control name:

Dim ctrl As Control
Dim frm As Form
Set frm = Forms!frmForm

For Each ctrl In frm.Controls
If ctrl.Name Like "tblMod3*" Then
    ctrl.Name = "tblMod2" & Mid(ctrl.Name, 8)
End If
Debug.Print ctrl.Name
Next ctrl

You can use something similar to change most properties. The form must be open in designview in order to run the code.