Microsoft Access插入查询

Question

Access table Allowances_3_15_18 has 5 columns. I want to insert a calculated field from a form EmployeeSalary) into one of the columns Amount in the table.

Each value will link with the relevant primary ID's from the form and the table which are the same JobID . How do I do this in VBA?

I currently have done it in the afterUpdate event in the property sheet.

Private Sub ProjectedDollarAmount_AfterUpdate()

    Dim strSQL As String
    Dim ProjectedDollarAmount As Currency

    strSQL = "INSERT INTO [Allowances_3_15_18] ([Amount]) VALUES (" & _
        PrepareSQLNumber(Me.ProjectedDollarAmount) & ") WHERE JobID = " & _
        PrepareSQLNumber(Me.JobID) & ";"

    Call ExecuteMyCommand(strSQL)
End Sub

Answer 1

You need to get away from SQL concatenation and start using parameters.

Create a query with two parameters, the amount to be inserted and the JobId. The query's SQL should be something like this:

PARAMETERS [prmAmount] Currency, [prmJobId] Long;
UPDATE [Allowances_3_15_18] SET [Amount] = [prmAmount]
WHERE JobID = [prmJobId];

Then in code, simply pass the parameter values and execute the above query:

Sub Add()
    With CurrentDb().QueryDefs("qryName")
        .Parameters("[prmAmount]").Value = PrepareSQLNumber(Me.ProjectedDollarAmount)
        .Parameters("[prmJobId]").Value = PrepareSQLNumber(Me.JobID)
        .Execute dbFailOnError
    End With
End Sub

You need to change the qryName to the actual name of the query.

You can read more about parameter queries here .