Apply Settings to ALL forms, Reports

[burrina]

Can I use my code, let's say a user logins in with data settings, meaning they can enter data. How would I go about setting the forms so they could Not delete or change any data?


Another example would be if a user was given a Read Only status upon login, I could do this individually for each and every form of course but is there not a way to do a select all and then apply my security settings?

[June7]

Handle this when form is called to be opened.

Use the DataMode argument of DoCmd.OpenForm, something like:

DoCmd.OpenForm "formname", , , , IIf(userStatus="ReadOnly", acFormReadOnly, acFormPropertySettings)

userStatus could be a global variable or reference to a textbox on a form that is always open.

[burrina]

That sounds good, except would I not have to do this in a module? Or do it for every form?
My security settings are defined via my table and for example a user with read only privileges would have their table setting as reado

I dont want to have to do this for every user and every form and or report. I will have to have a way to automate this for sure! I am thinking a module for sure!
How would I call this in a global variable?

User has Read Only Settings which mean the table value will be reado so I want to make all forms Read Only. How would I call this?

If tblUserSecurity_Sec = [reado] = True Then
acFormReadOnly, acFormPropertySettings

[burrina]

Ok, a little more refined; Now if this is true, then I need to set ALL forms as Read Only. Since I wont be there in person this will have to be automated. All I need now is the code to set to read only for ALL forms. Then I can step thru this in a module I assume and set according to user rights. What type of module and how do I call it? Simply type Call Something from where? I have never written a module before.

If DLookup("[reado]", "tblUserSecurity_Sec", "[userID]='" & Me.txtUserID.Value & "'") = -1 Then
strSecLvl = "Read Only"
End If

[June7]

That would require setting AllowEdits and AllowDeletions properties. I have never done this and don't know if that can be done if form not opened in Design View. Just write code to open form in appropriate mode.

[burrina]

Not the answer I was hoping for. But can't win em all. I will trudge thru this as best I can and even though I succeed I still have no guarantee of security, bummer! I suppose I could do a bunch of If IsLoaded statements???

Thanks,

[June7]

Don't understand. Why would IsLoaded be useful?

[burrina]

That would tell me if the form was loaded or not. Then I could alter the code a End If.It's a mute point now of course unless I have some kind of giant brain fart.
Command6.Enabled = CurrentProject.AllForms("Customers").IsLoaded something like that is what i use for my zip codes form.

Thanks,
Mark as solved and move on.. Thank You!