Execute, "Too few parameters", "Expected 2"

[jhrBanker]

Access 2007 db: Two text fields on a form contain existing value and new value. When the user clicks the form button, an update query should run to change the table field value. A text field on the form should indicate the number of records that were updated (txtAudForecast = db.RecordsAffected). However, the code is generating the error: Too few parameters. Expected 2.
Here's the code:

Private Sub cmdAudForecast_Click()
On Error GoTo Err_cmdAudForecast_Click

Dim db As Database
Dim sqlChgTo As String
Dim sqlChgFm As String
sqlChgTo = [Forms]![frmMainMenu]![txtChgTo]
sqlChgFm = [Forms]![frmMainMenu]![txtChgFrom]
Set db = CurrentDb()
MsgBox "Change " & sqlChgFm & " To " & sqlChgTo
'DoCmd.SetWarnings False
db.Execute "UPDATE audForecast " & _
"SET audForecast.audUser = sqlChgTo " & _
"WHERE (((audForecast.audUser)= sqlChgFm));"

'DoCmd.SetWarnings True

lblAudForecast.Visible = True


txtAudForecast = db.RecordsAffected
Exit_cmdAudForecast_Click:
Exit Sub

Err_cmdAudForecast_Click:
MsgBox Err.Description
Resume Exit_cmdAudForecast_Click
End Sub

Any help will be appreciated.

[June7]

Do not enclose variables in quotes. Concatenate.

"SET audForecast.audUser = " & sqlChgTo & _
"WHERE audForecast.audUser = " & sqlChgFm & ""

Is audUser a number type field? If it is text, need apostrophe delimiters:

"SET audForecast.audUser = '" & sqlChgTo & "'" & _
"WHERE audForecast.audUser = '" & sqlChgFm & "'"

[ssanfu]

You have to concatenate the variables:

Private Sub cmdAudForecast_Click()
    On Error GoTo Err_cmdAudForecast_Click

    Dim db As DAO.Database
    Dim sqlChgTo As String
    Dim sqlChgFm As String

    Set db = CurrentDb()


    sqlChgTo = [Forms]![frmMainMenu]![txtChgTo]
    sqlChgFm = [Forms]![frmMainMenu]![txtChgFrom]
    MsgBox "Change " & sqlChgFm & " To " & sqlChgTo
    'DoCmd.SetWarnings False
    db.Execute "UPDATE audForecast " & _
               "SET audForecast.audUser = " & sqlChgTo & _
               "WHERE (((audForecast.audUser) = " & sqlChgFm & "));"

    lblAudForecast.Visible = True
    txtAudForecast = db.RecordsAffected

Exit_cmdAudForecast_Click:
    Exit Sub

Err_cmdAudForecast_Click:
    MsgBox Err.Description
    Resume Exit_cmdAudForecast_Click

End Sub

What June said.....

[jhrBanker]

That did it! Many thanks. Muchly appreciated.