Alhakeem1977
Registered User.
- Local time
- Today, 12:42
- Joined
- Jun 24, 2017
- Messages
- 308
Hi,
How can I filter a split form with datasheet type depends on the department login to the application?
The department login ID is returned correctly but the filter is not working at all.
I think I missed something in my code.
Your kind assistance would be highly appreciated.
How can I filter a split form with datasheet type depends on the department login to the application?
The department login ID is returned correctly but the filter is not working at all.
I think I missed something in my code.
Your kind assistance would be highly appreciated.
Code:
Private Sub Form_Load()
On Error Resume Next
Dim Department As String
'''''' Department Privilege '''''''
Department = DLookup("Department", "Employees", "[UserLogin] = '" & Environ("UserName") & "'")
If Department < 3 Then
Me.AllowAdditions = True
Me.cmdNewCase.Enabled = True
Else
Me.AllowAdditions = False
Me.cmdNewCase.Enabled = False
'Copmliance Dept
If Department = 4 Then Me.cboFilterFavorites.Value = 1
Me.Filter = "Status = 'Submitted'" And "Categoty='High Risk'"
Me.Filter = "Status = 'Re-Submitted'" And "Categoty='High Risk'"
Me.FilterOn = True
Me.Requery
Me.Refresh
'Top Management
If Department = 6 Then Me.cboFilterFavorites.Value = 4
Me.Filter = "Status = 'Submitted'" And "Categoty='High Risk'"
Me.Filter = "Status = 'Re-Submitted'" And "Categoty='High Risk'"
Me.Filter = "CDAction = 'Reviewed'"
Me.FilterOn = True
Me.Requery
Me.Refresh
'Retail Ops
If Department = 5 Then Me.cboFilterFavorites.Value = 6
Me.Filter = "CDAction = 'Reviewed'"
Me.Filter = "TMAction = 'Approved'"
Me.FilterOn = True
Me.Requery
Me.Refresh
End If
End Sub