OnTabChange Event Code

[michaelwpayton]

Re: OnTabChange Event Code

Yes, I agree... "endless debate," not productive at all... thanks anyhow :)

[G Gabriel]

Re: OnTabChange Event Code

That's a whole different subject, I started writing about it then I felt like a lonely ranger and quit.

I could give you a better alternative than tabbed objects, but still it is not what I would do. What I would do will involve re-writing your whole entire application, all of it, from scratch. Not a great prospect for anyone and certainly not something I feel like bringing up for the lack of time to spend on it as it is likely to generate endless debate.

If you search the board, you will see a thread I started on the subject and some have made suggestions such as placing buttons and conditional object to mimic tabbed objects. I don't like that anymore than I like TO because it does not address the faulty logic behind TO.

What faulty logic, you say?

What is the point of TO?
It is meant to accommodate (and or separate) objects that do not (or should not) fit in one page, hence multiple pages.

I see that as a fool's errand. What's the point of multiple pages when you could only see one page at a time? More importantly and particularly if you are on a network, what's the point of loading values in all these fields for the mere possibility that you may (or may not) need them? Why not load what you need when you need it? Therefore, those suggestions of buttons and Conditional Object instead of TO don't serve any better purpose in my view.

A better alternative is to place those pages on separate forms, and load whichever form (page) whenever you need it. You could overlay it on top of the original form in exactly whatever position you want and it won't look any different than a TO.

It is not what I would do, but certainly a whole lot better alternative than TO, not to mention, manipulating the forms (or formatting them as in your case) is a whole lot easier and more versatile than manipulating pages in a TO.

[michaelwpayton]

Re: OnTabChange Event Code

What do you prefer/use, as an alternative to tabbed objects?

[G Gabriel]

Re: OnTabChange Event Code

It is not an ideal work-around, it is one nonetheless. I thought I could do better but just did not have the time to play with it particularly since I am not in favor of tabbed objects anyway.
I guess, for now this will do:

1-Place a session variable on the form and hide it. Let's call it X
2-In the CanTabChange event, place this script:
delete X
Dim Shared X as n=0
X=tabbed1.tab_get()
3-In the OnTabchange event modify your script to:
if TABBED1.tab_get()=6 .and..not. a5_userbelongsto("Administrators")
msgbox("WIMS","Access Restricted to Aministrators'",UI_INFORMATION_SYMBOL)
X.value=1
end if
3-In the Form's OnTimer even, put this script:
if X=1
tabbed1.tab_set(X)
end if

It works, but I don't like any of it. Unfortunately, it's hard to spend any time on something you are not in favor of vis a vis, tabbed objects.

[michaelwpayton]

Re: OnTabChange Event Code

Thanks for the video... but, I'm not sure I understand your point? Do you have a work around, for the problem? If so, would you please share it?

Thanks

[G Gabriel]

Re: OnTabChange Event Code

I think alpha is caught in a catch 22, but still they could fix it as in:

[michaelwpayton]

Re: OnTabChange Event Code

Thanks Mike... that's been my experience also. Not too big a deal, of course, but I will report it if no one comes up with a work-around.

[Mike Wilson]

Re: OnTabChange Event Code

Michael,
I played with this ad nauseum. I could get no code that sets to a different tab based upon a condition within the script that evaluates the original tab selected to not end with the tab focus on the tab selected that initiated the script. I think you should report this as a bug.

[michaelwpayton]

Re: OnTabChange Event Code

Tried that, no luck.

Thanks for the suggestion.

[Stan Mathews]

Re: OnTabChange Event Code

Try activating an object on tab1. After the .tab_set(1)

tabbed1.someobjectname.activate()

[michaelwpayton]

I'm attempting to limit access, to a particular tab, to only those users assigned to the "Administrators" group. Here's the code:

'
'OnTabChange Event Code
'
if TABBED1.tab_get()=6 then
if .not. a5_userbelongsto("Administrators") then
msgbox("WIMS","Access Restricted to 'Administrators'",UI_INFORMATION_SYMBOL)
parentform:TABBED1.tab_set(1)
end if
end if

The above code works fine, in that non-Administrators are presented with the msgbox and tab 1 becomes the current tab. BUT, tab 6's title text is left bold and tab 1's is not.

Any ideas?