Effects of Disabling A Frame

[Ark68]

I have discovered that if I disable a frame in my userform, all the controls within that frame are also disabled.
I have a routine associated with a frame click event, so there are conditions when I don't want the user to be able to click the frame. In those cases, I have the frame disabled. When the conditions are met, the frame is enabled.
But the problem is, the controls within that frame are those in which the user has to change in order to get those conditions met. With those controls disabled as a result of their host frame being disabled, I am stuck not being able to enable the frame.

Is there a workaround to this?

 

[dmt32]

Hi,
Instead of disabling the Frame, you could use it's Tag property to hold a value you can test for & if met, exit the Click event sub

example
where in code you disable the Frame apply a value to the Tag property

Me.Frame1.Tag = xlOff

and in your click event apply the test

Private Sub Frame1_Click()
If Val(Me.Frame1.Tag) = xlOff Then Exit Sub

'rest of code
End Sub

and then where in your code you would re-enable the Frame just change the Tag value

Me.Frame1.Tag = xlOn

Dave

 

[Ark68]

Hi Dave, thank you so much for sharing your idea. Unfortunately, I haven't been able to get it to work exactly the way you illustrated. My values for tag, despite setting them as xlon or xloff are not going into the frame1_click sub as such. When me.frame1.tag = xloff, the value that it carries into the frame1_click sub is -4146. When me.frame1.tag = xlon, the value is 1. So, regardless of the state that me.frame1.tag is, when it hits the frame1_click sub, tag never equals xloff so the sub never exits.

I've just substituted

If Val(Me.Frame1.Tag) = xlOff Then Exit Sub

With

If Val(Me.Frame1.Tag) = -4146 Then Exit Sub

to get it to work.

 

[dmt32]

Hi,
If the first line of your click event has the test line of code as shown, I can see no reason why should not work for you.
Can you share your forms codes that set the tag values

Dave

 

[Ark68]

Sure, see if this sheds any light ...

'Permit' is the userform, 'frm_cust' is the frame.

Private Sub frm_cust_Click()
    If Val(permit.frm_cust.Tag) = -4146 Then Exit Sub
    MsgBox "view extended customer info"
    Stop
End Sub

Of course this is my adaptation I needed to make irt work. Originally it was...

 If Val(permit.frm_cust.Tag) = xlOff Then Exit Sub

To "activate/enable" click event of the frame:

If cfc = 2 Then
        permit.frm_cust.Caption = "Customer   <Click to view extended info>"
        'permit.frm_cust.Enabled = True
        permit.frm_cust.Tag = xlOn
 End If

To "deactivate/disable" frame click event

permit.frm_cust.Tag = xlOff
Debug.Print permit.frm_cust.Tag

This debug statement returns -4146

 

[dmt32]

Sorry not clear, is this now working for you?

-4146 is that value for constant xlOff - using the constant rather than it's value, is more descriptive of the intended action but its a choice for you.

Also as an aside, you can use the Me keyword in place of the userform name

Dave

 

[Ark68]

Thanks Dave!
It is working if I use -4146 as the comparison. If I use xlOff in the comparison, it does not work.
In this project, I am unable to use Me for some reason. Everytime I try, I get an "Invalid use of Me keyword" error.

 

[dmt32]

duplicate

 

[dmt32]

Curious, you have some strange things going on in your project. Are you using Me keyword inside Userforms code page? or is code placed in standard module where you would get that error.

if Tag idea is now doing what you want - glad resolved

Dave

 

[Ark68]

Me being used in a standard module when I get the error.
Thanks to you things are workingbetter than they had been.