If Else Statement Help

[derek7467]

Hey again! This forum is awesome.

I have code I want to modify (found on this forum)

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open

If User.AccessID = 1 Then
Me.cmdUserSettings.Enabled = True
Else
Me.cmdUserSettings.Enabled = False Then
End If

Exit_Form_Open:
Exit Sub
Err_Form_Open:
MsgBox Err.Description


Me.Visible = True
Resume Exit_Form_Open


Basically, its a login form, that chooses whether to allow the user or not to view a portion of that form. Lets say my other control is called Command76, how would I throw that in the if statement?:

If User.AccessID = 2 Then
Me.Command76.Enabled = True
Else
Me.Command76.Enabled = False

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open

If User.AccessID = 1 Then
Me.cmdUserSettings.Enabled = True
Else
Me.cmdUserSettings.Enabled = False Then
End If

Exit_Form_Open:
Exit Sub
Err_Form_Open:
MsgBox Err.Description
Me.Visible = True
Resume Exit_Form_Open


End Sub

[ItsMe]

You can simply add the code block to your procedure, doing the evaluation all on its own. Another option would be to use a select case statement. I usually use Select Case when evaluating User ID values because there can be several options. Not sure what "User" is but, assuming the code you posted works....

Select Case User.AccessID

Case 1
<Do This>
Case 2
<do That>
Case Else
<Special Error Handler>

End Select

[derek7467]

Would this work?
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open
Select Case User.AccessID
Case1
If User.AccessID = 1 Then
Me.cmdUserSettings.Enabled = True
Else
Me.cmdUserSettings.Enabled = False
Case1
If User.AccessID = 1 Then
Me.Command76.Enabled = True
Else
Me.Command76.Enabled = False
End Select


End If

Exit_Form_Open:
Exit Sub
Err_Form_Open:
MsgBox Err.Description
Me.Visible = True
Resume Exit_Form_Open

End Sub

[ItsMe]

Set default values for controls to Enabled = False

Remove the If Then Else statement.

Enable controls based on the user ID

Case1
Me.cmdUserSettings.Enabled = True
Case 2
Me.Command76.Enabled = True
End Select

[derek7467]

would I be able to just add to my current code with the Select Case?

[ItsMe]

Select case or If then.

You can nest statements if you want to. I do not see a need here. Setting the controls' default values to False and then enabling them where applicable should suffice.

[derek7467]

I don't think I can do that, because its based off of an access level once a user logs in. So once im logged in the form looks at whether im an acess level 1 or 2 and then reads off the true/false values.

[ItsMe]

If then and select case are not that complicated. All you are doing is evaluating. If you want, you can provide your DB for analysis.

[Xipooo]

Replace your If/End If code with this.

Me.cmdUserSettings.Enabled = False
Me.Command76.Enabled = False
Select Case User.AccessID
  Case is = 1
    Me.cmdUserSettings.Enabled = True
  Case is = 2
    Me.Command76.Enabled = True    
End Select

[derek7467]

Xipoo, you DA MAN. Worked! Thank you!

Ahhhh not working.

Looks like only Case 1 works. Case 2 remains not clickable, unless I reverse its position as case 1

Me.cmdUserSettings.Enabled = False
Me.Command76.Enabled = False
Select Case User.AccessID = 1
Case Is = 1
Me.Command76.Enabled = True
Case Is = 2
Me.cmdUserSettings.Enabled = True
End Select

[Xipooo]

Xipoo, you DA MAN. Worked! Thank you!

Ahhhh not working.

Looks like only Case 1 works. Case 2 remains not clickable, unless I reverse its position as case 1

Me.cmdUserSettings.Enabled = False
Me.Command76.Enabled = False
Select Case User.AccessID = 1
Case Is = 1
Me.Command76.Enabled = True
Case Is = 2
Me.cmdUserSettings.Enabled = True
End Select

Your select case should not have "User.AccessID=1"

You may need to adjust what I've done a bit, but the code I wrote works. The first thing I do is cause both buttons to be disabled by default. If that's not what you want, then you can remove the
Me.cmdUserSettings.Enabled = False
Me.Command76.Enabled = False

The code then grabs the value of User.AccessID and compares it to the first case statement. If AccessID is equal to 1 then Me.cmdUserSettings.Enabled is set to true. If AccessID is equal to 2 then Me.Command76.Enabled is set to true.

If you want both buttons to become available when the AccessID is equal to 2, then you have to put both Me.cmdUserSettings.Enabled = True and Me.Command76.Enabled = True in the code below Case is = 2.

[derek7467]

Fixed and working.