Message Box - For users without access to a sheet

[helen_pip]

Hello

I have a front page in my qikview document.   On this front pages are buttons which users can use to go further into the document depending on what they want to see and their access rights

I have set up restrictions in my script which does not allow certain pages: Script is below

SECTION ACCESS;

LOAD * INLINE [

    ACCESS, USERID, LEVEL

    USER, 1, DETAIL

    USER, 2,NO_DETAIL

    ADMIN, 3, DETAIL

];

Section Application;

LOAD * INLINE [

    LEVEL,VALID

    DETAIL, 1

    NO_DETAIL,0

];

And then in the Conditional Show:  sum(VALID)>0

I now want a message (Text Box) to pop up when the user presses the button on the front page of the document telling them something like "You do not have access to this page at this time"

Can anyone help me achieve this?

Thanks

Helen

[er_mohit]

this can be done using macro.. you should have to active the document in that condition

[helen_pip]

Hello,

Thank you for your response

Do you have an example.....I have not performed a macro yet?  Have you dones something similar in the past?

Thanks

Helen

[er_mohit]

not like this application but i used macro for the purpose of user end duplicate value. if he tried to enter same value then it gives pop up msg.

your problem also solved i attached you vb script manual might be helpful for you.

[#5]

I am interested in this question. Sounds like some VBA with messagebox control can do it. However, I am not quite familiar with the VBA part. With regard to some use of messagebox, reading some tutorials is recommended. The idea above offered is nice. Hope more ideas can be put out.

[JoaquinLazaro]

Hi Helen:

You should try an alert, in the menu bar choose tools, after alerts; the condition must be sum(VALID)>0

There is also an Alert Wizard.

When somebody opens the doc him/her will see your message alert.

Hope it helps you.

Joaquín

[JoaquinLazaro]

Hi Helen:

This is a macro sample:

Sub MessageBox

  Text = "Test message for a sample"

  Return = MsgBox (Text, vbInformation)

End sub