Insert a variable into an append query

[sesling]

In VB, I have created an append query that will write the results to a table. To each of the records being written, I want to include the user name of the person running the query. I know how to get the user name but do not know how to insert it, even if I can, into the append query. Is this possible? I have the statement I am running now. I get an invalid syntax error now when I run it

Private Sub Command89_Click()
On Error GoTo Err_Command89_Click
 
    Dim stGetUser As String
    Dim stGetParms As String
 
    stGetUser = GetLoginName()
 
    stGetParms = "INSERT INTO TEST ( JOB_ID, PARAMETER_VALUE, stGetUser as User) " & _
    "SELECT JOB_PARAMETERS.JOB_ID, JOB_PARAMETERS.PARAMETER_VALUE " & _
    "FROM JOB_PARAMETERS " & _
    "WHERE (((JOB_PARAMETERS.PARAMETER_NAME) = 'physicalId')) " & _
    "GROUP BY JOB_PARAMETERS.JOB_ID, JOB_PARAMETERS.PARAMETER_VALUE"
    DoCmd.RunSQL stGetParms
 
Exit_Command89_Click:
    Exit Sub
 
Err_Command89_Click:
    MsgBox Err.Description
    Resume Exit_Command89_Click
 
End Sub

[ADezii]

In VB, I have created an append query that will write the results to a table. To each of the records being written, I want to include the user name of the person running the query. I know how to get the user name but do not know how to insert it, even if I can, into the append query. Is this possible? I have the statement I am running now. I get an invalid syntax error now when I run it

Private Sub Command89_Click ()
On Error GoTo Err_Command89_C lick

Dim stGetUser As String
Dim stGetParms As String

stGetUser = GetLoginName()

stGetParms = "INSERT INTO TEST ( JOB_ID, PARAMETER_VALUE , stGetUser as User) " & _
"SELECT JOB_PARAMETERS. JOB_ID, JOB_PARAMETERS. PARAMETER_VALUE " & _
"FROM JOB_PARAMETERS " & _
"WHERE (((JOB_PARAMETE RS.PARAMETER_NA ME) = 'physicalId')) " & _
"GROUP BY JOB_PARAMETERS. JOB_ID, JOB_PARAMETERS. PARAMETER_VALUE "
DoCmd.RunSQL stGetParms

Exit_Command89_ Click:
Exit Sub

Err_Command89_C lick:
MsgBox Err.Description
Resume Exit_Command89_ Click

End Sub

Let's assume you have a Field (USER_NAME) in your Table (Test) that will store the User's Name, then:

'Dim stGetUser As String                  'don't need
Dim stGetParms As String
 
'Don't need
'stGetUser = GetLoginName()
 
stGetParms = "INSERT INTO TEST ( JOB_ID, PARAMETER_VALUE, USER_NAME) " & _
"SELECT JOB_PARAMETERS.JOB_ID,  JOB_PARAMETERS.PARAMETER_VALUE, GetLoginName() As QUser " & _
"FROM JOB_PARAMETERS " & _
"WHERE (((JOB_PARAMETERS.PARAMETER_NAME) = 'physicalId')) " & _
"GROUP BY JOB_PARAMETERS.JOB_ID, JOB_PARAMETERS.PARAMETER_VALUE"
DoCmd.RunSQL stGetParms

[NeoPa]

As a full member now, you should know that we expect your code to be posted in [code] tags (See How to Ask a Question).
This makes it easier for our Experts to read and understand it. Failing to do so creates extra work for the moderators, thus wasting resources, otherwise available to answer the members' questions.
Please use the tags in future.

ADMIN.