Query not combining and filtering values based on a form

[mayestom]

Just did, on the Switchboard, and I was able to change the layout. I have a securityID of 9 which is Read only.

 

[GinaWhipp]

Wait your Switchboard has subforms? Also make sure that hidden field txtSecurityID is showing 9.

 

[mayestom]

Yes the switchboard has a subform but I tried to change the main form.
Do you mean make sure in the tblUsers that the uSecurityID field is showing 9? In that case yes it is.

 

[GinaWhipp]

No, on the Switchboard you added those 5 fields, well, we took a couple away but you should see a 9 showing in one of them. Are you saying nothing is showing?

 

[mayestom]

Hidden in the switchboard I have txtSecurityID, txtOverride, txtUserID and txtPassword. I'm not sure where I would see a 9. In design view for txtSecurityID it says unbound.

 

[GinaWhipp]

Make txtSecurityID visible so you can see does the 9 show.

 

[mayestom]

No, nothing is in the text box when I made it visible

 

[GinaWhipp]

Then something is wrong because you should see a 9. I'll look at the sample you sent earlier.

 

[GinaWhipp]

Oops, you should see a 2, I see you changed the numbers and it works in the last sample you uploaded, so what did you change?

 

[mayestom]

Maybe when I first made the table I just put in the values and didn't think about the numbers. But since then I have changed the table to look exactly the way you have yours. 2 for Read/Write, 9 for Read only and 13 for ADMIN.
But that's weird bc now I just tried opening the db and I see a 9 in the text box? But I can still change any part of the form.

 

[GinaWhipp]

Did you put the code in the On_Current event?

 

[mayestom]

Yes. This is what I have for the code:

Private Sub Form_Current()
On Error Resume Next

     If Forms![Switchboard]![txtSecurityID] = 9 Then
       fncLockUnlockControls Me, True
     Else
       fncLockUnlockControls Me, False
     End If

End Sub


Private Sub Switchboard_Current()
On Error Resume Next

     If Forms![Switchboard]![txtSecurityID] <> 13 And Forms![Switchboard]![txtOverride] = False Then
       fncLockUnlockControls Me, True
     Else
       fncLockUnlockControls Me, False
     End If
End Sub

 

[GinaWhipp]

This is useless, so remove it and try again...

Private Sub Switchboard_Current()
On Error Resume Next

If Forms![Switchboard]![txtSecurityID] <> 13 And Forms![Switchboard]![txtOverride] = False Then
fncLockUnlockControls Me, True
Else
fncLockUnlockControls Me, False
End If
End Sub

 

[mayestom]

I'm really sorry. I thought I was to copy the whole piece of code. I didn't know I was only to copy the bottom part. I'm sorry.
I put in the code you just gave me. But it still lets me alter the form. I must me doing something wrong. I'm sorry to be causing you so much trouble. Thank you for helping me. I've attached my current copy just in case you would like to take a look at it.

 

[GinaWhipp]

No problem, oh good I'll take a look...

 

[GinaWhipp]

I see the problem, the code also needs to go in the On_Current event of the subform. Here you go...

 

[mayestom]

I'm still able to alter the form. Am I doing something wrong?

 

[GinaWhipp]

What is it you are altering? What is your Security ID in tblUsers

 

[mayestom]

I was trying to alter the design of the form, move things, delete things. My SecurityID is 9 in the table and 9 is showing in the text box. (Which reminds me would I also need to put those 4 hidden text boxes in every form I put the code in?)

 

[mayestom]

So this is the code that I put in the On_Current event in all my forms that I want to apply permissions to:

Private Sub Switchboard_Current()
On Error Resume Next
If Forms![Switchboard]![txtSecurityID] <> 13 And Forms![Switchboard]![txtOverride] = False Then
fncLockUnlockControls Me, True
Else
fncLockUnlockControls Me, False
End If
End Sub

But with the different form names?
And not this part?:

Private Sub Form_Current()
On Error Resume Next
     If Forms![Switchboard]![txtSecurityID] = 9 Then
       fncLockUnlockControls Me, True
     Else
       fncLockUnlockControls Me, False
     End If
End Sub

Also, do I need to put all 4 hidden txt fields on the forms as well?