moving a cntrol to a different shhet on a tab control causes "issues"

[markjkubicki]

i have a checkbox on sheet1 of a tab control (with associated code...); it belongs on sheet3
when i cut (from sheet1), and paste it (to sheet3), related code events fail. (!?)


since it's refered to as me.checkbox (vs. me.sheet1.checkbox1), i would think this is not an issue; but apparently, it is...

thoughts?

many thanks in advance,
mark

[RuralGuy]

As far as I know, all controls on all of the tabs of a TabControl must be unique.

[markjkubicki]

agreed.
which is why I thought moving it would not cause a problem; if i was recreating it... (or does the very act of cut and paste cause a confusion of their being a second control of the same name).

is there an easier way of moving controls arcoss sheets? the thought of having to create a new control of a different name and update all that code... AURH ! maybe a simple delete and recreate would be better (?)

[RuralGuy]

Cut and Paste and then click the "..." button on the new tab and it should resync the code. I'm not used to using a .sheet reference.

[June7]

I just tested cut/paste of a checkbox. The [Event Procedure] setting in the event property did not replicate. I just had to reset that in the event.

There is no .Sheet reference for controls on Tab pages. Just reference the controls as if they are directly on the form.

[markjkubicki]

AURHHH ! I wasn't resyncing the code (i ought to know about that!)

when all esel fails, check the obvious !

thanks
mark

[Missinglinq]

Glad you got this fixed, but for others who may arrive here while searching on the subject, especially those who may have moved Controls (as when addressing a 'real-estate' problem by moving many Controls to one or more Tabbed Pages) and want a way to do this all at once, here's a hack.

Courtesy of ADezii at Bytes.com, this code will "reconnect" Controls to some selected Events (OnClick and AfterUpdate in this example.) It can be modified for other Events, and has the advantage of updating a large number of Controls without doing them one by one.

Private Sub Form_Load()
Dim ctl As Control

For Each ctl In Me.Controls
For Each ctl In Me.Controls
If (TypeOf ctl Is TextBox) Or (TypeOf ctl Is ComboBox) Or (TypeOf ctl Is CommandButton) Then
If ctl.OnClick = "" Then
ctl.OnClick = "[Event Procedure]"
End If
End If
Next
For Each ctl In Me.Controls
 If (TypeOf ctl Is TextBox) Or (TypeOf ctl Is ComboBox) Then
   If ctl.AfterUpdate = "" Then
     ctl.AfterUpdate = "[Event Procedure]"
   End If
 End If
Next
End Sub

Linq ;0)>