Access to edit a form

[Arthur Armour]

I've created a form that stops the user from editing it but don't know how to get back in to edit it myself. I'm very new to A5 - used previous Dos versions - and am very unfamiliar with Xbasic. I believe a button with some coding will do the trick. Can someone help.

[whanigsberg]

RE: Access to edit a form

Can you go to the control panel, select the form, and click on design? This would be the simplest way.

Bill

[Stan Mathews]

RE: Access to edit a form

If you haven't already used Bill's advice or can't. Open the code editor, interactive tab, type

frm=form.view("the name of the form","SCRIPT_DISABLE_EXEC")

you should then be able to switch to design mode and edit as you like.

[forskare]

RE: Access to edit a form

I wonder if Arthur isn't speaking about being able to edit the form once the app is distributed? At the customer site, for example. If so, Arthur, yould could use a "hot spot" or a key sequence with perhaps a password added.

Arthur, To find out more about this try a search on the message bord for "Hotspots" or "Hot Spots". This should give you a fair amount of information. It would also be a good idea to use in in your design if you're to the point where you've created a menu and/or tool bar for the app. It could be a shorter way of getting to design mode that exiting the form and then going to design mode.

kenn

[Arthur Armour]

RE: Access to edit a form

Thanks for your responses. I work for Oxfam the Charity and I've used Alpha dos versions for many years and I'm trying to create the same applications I had in dos. With the dos applications I could stop the users from getting behind the scenes. We have a 5 user licence and intend to use this for our warehouse stock location system.

I used info from someones form that changed the form properties "Menus/Toolbar properties". so that they could not minimise the form and get to the control panel. I provided an Exit button on the form.

I need some method that lets me into control panel and or lets me edit the form. The Hotspot button sound good. I know how to create the button/hotspot but not the code.

Appreciate any help.

[Pat Bremkamp]

RE: Access to edit a form

Here is some code that might help. On my main menu, I have this code in the onpush even of the "hidden" button:

if chkpassword("exit")
parentform.close()
:controlpanel.show()
:controlpanel.activate()
else
ui_msg_box("ERROR","Password was not correct. Access denied.")
parentform:button2.activate()
end if
end

where the chkpassword is a user defined function below:

function chkpassword as L(pword as C)
' 06/01/98 Useage: if chkpassword("the password") then ...
' Password is not case sensitive. Returns .T. if password is correct, else .F.
dim pwansr as C
dim erransr as N
retry_it:
pwansr=ui_get_password("PASSWORD","Enter the password to continue..","*****","")
pwansr=ut(pwansr)
if pwansr="" ' cancel pressed
chkpassword=.f.
elseif pwansr=alltrim(pword)
chkpassword=.t.
else
erransr=ui_msg_box("PASSWORD", "Sorry, your password was not correct.",21)
if erransr=4
goto retry_it
end if
chkpassword=.f.
end if
end function

Good luck!