Expand|Select|Wrap|Line Numbers
- Private Sub Form_Current()
- If (CurrentUser.GetUserLevel <= 10 And Me.txtQStatusType = 9) Or (CurrentUser.GetUserLevel <= 10 And Me.txtQStatusType = 13) Then 'Admin
- Debug.Print "true"
- Me.cmdAward.Visible = True
- Me.Repaint
- Else
- Debug.Print "false"
- Me.cmdAward.Visible = False
- Me.Repaint
- End If
- End Sub