CurrentUser Select statement

[corbinap]

I am not ending the Select statement below correctly - can someone help? "WHERE (((tblUsers.UserID)='"&[CurrentUser]))&"'"



Also I am trying to query the currentuser to find who signed in for the approval limits. Can I use currentuser in the Select Case below?

Set rst = CurrentProject.Connection.Execute("SELECT tblUsers.MgrID, tblSourcingManagers.SourcingMgrLast" & _
"FROM tblSourcingManagers INNER JOIN tblUsers ON tblSourcingManagers.SourcingMgrID = tblUsers.SourcingMgrID" & _
"WHERE (((tblUsers.UserID)='"&[CurrentUser]))&"'"


Select Case CurrentUser
Case "SM"
ApprovalLimit = 300000
Case "DIR"
ApprovalLimit = 1500000
Case "VP1"
ApprovalLimit = 3000000
Case "EVP"
CanApprove = True
Exit Function

 

[TheAceMan1]

How are ya 10doesch . . .

. . . and this:

[blue]   Dim SQL As String
   
   SQL = "SELECT tblUsers.MgrID, A.SourcingMgrLast " & _
         "FROM tblSourcingManagers AS A " & _
         "INNER JOIN tblUsers " & _
         "ON A.SourcingMgrID = tblUsers.SourcingMgrID " & _
         "WHERE (tblUsers.UserID='" & [CurrentUser] & ")'"
   Set rst = CurrentProject.Connection.Execute(SQL)[/blue]

See Ya! . . . . . .

 

[TheAceMan1]

10doesch . . .

BTW: [blue]Welcome to Tek-Tips![/blue]

To get great answers be sure to have a serious look at FAQ219-2884 or FAQ181-2886

See Ya! . . . . . .

 

[JerryKlmns]

TheAceMan1

[blue]"WHERE (tblUsers.UserID='" & [CurrentUser] & ")'"[/blue]

"WHERE (tblUsers.UserID='" & [CurrentUser] & "[red]')[/red]"

Ultra fast typing...

 

[TheAceMan1]

JerryKlmns . . .

[blue]Good Eye![/blue] . . . Don't know how I missed it! . . .

[blue]10doesch![/blue] . . . corrected code:

[blue]   Dim SQL As String
   
   SQL = "SELECT tblUsers.MgrID, A.SourcingMgrLast " & _
         "FROM tblSourcingManagers AS A " & _
         "INNER JOIN tblUsers " & _
         "ON A.SourcingMgrID = tblUsers.SourcingMgrID " & _
         "WHERE (tblUsers.UserID='" & [CurrentUser] & "[red][b]')[/b][/red]"
   Set rst = CurrentProject.Connection.Execute(SQL)[/blue]

See Ya! . . . . . .

 

[corbinap]

Thanks - but what is happening to cause error
"No value given for one or more required parameters?

 

[JerryKlmns]

Thread extends here thread707-1306224...