Formulier openen met user filter

[Mark Boerkamp]

Hoi,

Ik heb een formulier waarin alle open toegewezen taken staan, de verschillende gebruikers moeten bij het openen van dat formulier alleen hun eigen taken te zien krijgen, ik dacht dat dat ging met het volgende maar dat werkt niet en ik krijg niet gevonden hoe ik dit kan oplossen:

Private Sub Knop0_Click()
  DoCmd.OpenForm "Frm_Jobs_Gebruiker2", acNormal, ,=fOSUserName()
 End Sub

Kan iemand me op weg helpen om dit op te lossen ?

Groet,
Mark

 

[visha]

voorbeeldbestand ?

 

[OctaFish]

Je moet de functie die de Username ophaalt wel koppelen aan een veld in het formulier:

Private Sub Knop0_Click()
DoCmd.OpenForm "Frm_Jobs_Gebruiker2", acNormal, ,[userID]=fOSUserName()
End Sub

bijvoorbeeld

 

[Mark Boerkamp]

Hoi Michel,

Bedankt voor je reactie, helaas nog dezelfde foutmelding "Compile error: Sub or Function not defined"

Groet,
Mark

 

[OctaFish]

Een logische foutmelding, want je hebt geen functie fOSUserName in de db.
Als je onderstaande functie aanmaakt in een nieuwe module is je probleem opgelost.
Mits uiteraard de gebruikersnamen kloppen...

Function fOSUserName() As String

fOSUserName = Environ("Username")

End Function

 

[OctaFish]

Overigens was je opdrachtregel ook niet goed, dus die komt hier:

DoCmd.OpenForm "Frm_Jobs_Gebruiker2", acNormal, , "[userID] = '" & fOSUserName() & "'"

 

[Mark Boerkamp]

Wederom bedankt Michel, het werkt perfect ! :thumb: