Trying to get Current User info only

[Emma]

Hi I have a form which I would like only the Current User() information to
show up on I'm using the following code on the button:

Private Sub Reminders_Click()
On Error GoTo Err_Reminders_Click

Dim stDocName As String
Dim stLinkCriteria As String

DoCmd.RunCommand acCmdSaveRecord

stDocName = "Reminder Form"
stLinkCriteria = "[Worker]=" & CurrentUser()
DoCmd.OpenForm stDocName, , , stLinkCriteria


Exit_Reminders_Click:
Exit Sub

Err_Reminders_Click:
MsgBox Err.Description
Resume Exit_Reminders_Click

End Sub

But I'm getting a syntax error (missing operator) in query expression
'[Worker] = Gertrude'

 

[M Skabialka]

stLinkCriteria = "[Worker]='" & CurrentUser() & "'"
[Worker] = 'Gertrude'

 

[BruceM]

The previous reply assumes you have user-level security in place; otherwise
CurrentUser is Admin. If you are looking for the login name you can use the
code here:
http://www.mvps.org/access/api/api0008.htm
Similarly, to get the computer name:
http://www.mvps.org/access/api/api0009.htm

To test CurrentUser, open your Access application, and press Ctrl + G. This
should open the Immediate window in the VBA editor. Type:
?CurrentUser()
and press the Enter key.