[badnap]

I am trying to create a filter that is based of the current users login name
so that way you will only certain people will only be allowed to view and edit certain records. I am try to create this in VB and then call it in a query the below is the script that I wrote but it is not working.

Function LoginFilter1()
On Error GoTo LoginFilter1_Err

If (Forms!HIDDENFILTER!LoginName = "login1") Then
DoCmd.ApplyFilter "", """*"""
End If
If (Forms!HIDDENFILTER!LoginName = "login2") Then
DoCmd.ApplyFilter "", """1"" & ""2"" & ""3"""
End If


LoginFilter1_Exit:
Exit Function

LoginFilter1_Err:
MsgBox Error$
Resume LoginFilter1_Exit

End Function

any help would be nice thanks

Badnap

[OBP]

badnap, if you use a form in continuous form mode to display the records of your query then you can use something like this
DoCmd.ApplyFilter , "[Test Number] = 5 or [Test Number] = 8"
where [Test Number] is a field on the form and it is then limited to values of 5 or 8.
I have tested this using a Command Button and it works OK. You would probably need to put it in the forms "on enter" event procedure.

[coderitr]

You would be better off abandoning MS Access and using MSDE (SQL Server) instead. You can set up tables and columns to have restrictive permissions so that the logged on user is not allowed to edit them. Just my opinion.