Only want creator of form to be able to edit it

[carolmac]

I have created a form and would like only the person who created it to be able to edit it, how can I do this?

[Stan Mathews]

Re: Only want creator of form to be able to edit it

Open it in design mode, choose Save As, use the Password button to assign a password.

[carolmac]

Re: Only want creator of form to be able to edit it

I currently have 7 staff who could possibly be creating records using this form. At the bottom of the form is a field for them to type in their name. This field is a lookup field from my employee table. It fills in the name along with their password. The password field is hidden. I would like for the password to match that hidden field before they are allowed to make changes.
I think if I do it the way you suggested it will only create one password to be able to edit the record, I would have to ensure that all employees using the form would have the password, then any of the employees could change a record even if they didn't create it. I want to prevent this from happening.

[MoGrace]

Re: Only want creator of form to be able to edit it

Hi Carol,
Creating the form is something a whole lot different that creating a record on that form. You could add this to the OnInit event for the form to restrict changes to the records:

this.restrict_change = .t.

With a button on the form you can have the user enter the password and test it against the saved hidden password then allow only that user to edit by changing the above command to

topparent.restrict_change = .f.

In the OnFetch event for the form, or OnSave just add the restriction again.

[Stan Mathews]

Re: Only want creator of form to be able to edit it

I read your post to mean that only the person who created the form be able to edit the form (not a record).

[carolmac]

Re: Only want creator of form to be able to edit it

Thanks MoGrace & Stan,

Sorry for the confusion - I should have read what I typed before I posted.
I assume this button on the form would be done using Xbasic? I have just started trying to use xbasic and I am having trouble figuring the code out for this, any help?

[Stan Mathews]

Re: Only want creator of form to be able to edit it

Oninit event for form

this.restrict_change = .t.

button to try to get permission to edit

password = "Alpha5"
user = ui_get_password("Password","Enter the password","","&")
if user = "" then
    end
end if
if user == form_objectname_of_password_field.value then
    ui_msg_box("Password","Accepted.")
    topparent.restrict_change = .f.
else
    ui_beep()
    ui_msg_box("Password", "Password invalid.")
    end
end if

onfetch event
this.restrict_change = .t.

[Ted Giles]

Re: Only want creator of form to be able to edit it

Have you looked at the Security settings?
It is easily possible to allow different levels of access to forms and records by setting a master password and creating Users and Groups.
Create a password for each user, and assign them to a Group. I have Read Only, Full Access, Partial Update groups.
They can do what their group says.
The Form has the code to allow what actions can be taken based on the Group.
I also have the Audit trail for changes and deletions turned on.

[MoGrace]

Re: Only want creator of form to be able to edit it

One slight change to the first line of Stan's button script would get the value from the password field hidden on the form and set the variable to that to test it.

password = yourfieldname.value
user = ui_get_password("Password","Enter the password","","&")
if user = "" then
end
end if
if user == password then
ui_msg_box("Password","Accepted.")
topparent.restrict_change = .f.
else
ui_beep()
ui_msg_box("Password", "Password invalid.")
end
end if

[carolmac]

Re: Only want creator of form to be able to edit it

I am not very familiar with xbasic, but this is what I have done and it's not working. I'm not sure what I have done wrong, can somebody help me?
When I type in the password I get "Invalid password" even if I have entered the correct password.

password = vpassword
user = ui_get_password("Password Required","Please enter your password:","","&")
if user = "" then
end
end if
if user == password then
ui_msg_box("Password","Accepted.")
topparent.restrict_change = .f.
else
ui_beep()
ui_msg_box("Password", "Password invalid.")
end
end if

[MoGrace]

Re: Only want creator of form to be able to edit it

I think it is this part:

password = vpassword

What is 'vpassword'? Is it a variable or the object field name on the form? If it is the latter, then this should work

password = vpassword.value

However as it stands, it looks like you are trying to pass one variable to another.

[carolmac]

Re: Only want creator of form to be able to edit it

I feel like I'm finally getting somewhere! Thanks Stan & Mograce for all your help. I have one more question.
When the correct password is entered it says "accepted", when the wrong password is typed it says "Password invalid" just like I want it to, but after the correct password is accepted it will not allow editing.

I have the oninit event on the form set as: this.restrict_change = .t.

The code for the button is this:
password = Nursing_Visit2a.nurspswd
user = ui_get_password("Password Required","Please enter your password:","","&")
if user = "" then
end
end if
if user == password then
ui_msg_box("Password","Accepted.")
topparent.restrict_change = .f.
else
ui_beep()
ui_msg_box("Password", "Password invalid.")
end
end if

What do I have wrong?

[Stan Mathews]

Re: Only want creator of form to be able to edit it

password = Nursing_Visit2a.nurspswd

If Nursing_Visit2a is the name of your form and nrspswd is the object name of the field that stores the password

change this line to

password = nurspswd.value

Download my attachment. Unzip the table wherever you like. Add the table to your database. Try the form carolmac.

I did notice that we should have been advising

password = alltrim(nurspswd.value)

forcarol.zip

[carolmac]

Re: Only want creator of form to be able to edit it

Stan,

When I change the first line to

password = nurspswd.value

I get an error message that says nurspswd not found.

[Stan Mathews]

Re: Only want creator of form to be able to edit it

If Nursing_Visit2a is the name of your form and nrspswd is the object name of the field that stores the password........

You discover the object name of an object on a form by right clicking on it and choosing Properties. What is the object name of the field on your form that contains the password (does not need to be visible in view mode)?

Did you try my example?