Change edition property in a form?

[taliz]

Hello!!

I want to know if it’s possible to change the form properties (allow editions) in the data tab properties to “yes” by using a code. My form is set to “no”, it is ok for simple users, but I want to permit the edition to special users, who must introduce a password. If the password is correct, then the edition property will change to “yes”.

Any idea?

 

[DeanWilliams]

Hi,

You should be able to use:

Me.AllowEdits = True
Me.AllowAdditions = True

Dean

 

[kphu]

Taliz,

To get a password you'll need something like this.

Dim response As String
Dim password As String
password = "password"
response = InputBox("Enter in a password to edit field&quot
If response = password Then
"FormName"."fieldname".Enabled = False
'(this allows just a particular field in the form to not be edited. Use Dean's suggestion if you want to enable or disable the entire form.)
Else
"FormName"."fieldname".Enabled = True
End If

Where it says "FormName" and "Fieldname" you'll need to change that so that it applies to your form and fieldname. You'll want to place this code on the form properties "On Open"

Hope this helps.

ken

 

[taliz]

Thank's a lot,

I wanted to enable or disable the entire form, so I used both suggestions.
It work`s good, but I have a subform into my form and it's always enable. How can I change it?

Is it possible to set the password format (****) in the InputBox?

 

[kphu]

to disable the subform enter in

subformname.allowedits = false

As for your password format to **** that's not possible as an input box. You'll need to create a form within vb and set the textbox property within your form to password character.

Hope that helps.

ken

 

[kphu]

Taliz,

I just came across this and thought you might be interested.

It shows how to create your input box to show *** for password.

http://www.danielklann.com/excel/hiding_text_in_a_vba_inputbox.htm