在MS Access主窗体中找到一个TempVar，并将其写入连接到该子窗体的表中

Question

我需要向前端Access 2016数据库的子窗体上的复选框添加一些VBA代码。

目标是将表中包含在主窗体中的文本框中包含的值插入表中。

到目前为止，我采取的步骤是：

1. 单击子窗体上的复选框；
2. 创建一个临时变量；
3. 将临时变量插入相关表；
4. 移至下一项。

代码如下：

    Option Compare Database

    Private Sub AssegnatoCampione_Click()

        'Create temporary variable and store the selected value
        TempVars("NumeroCampione").Value = Forms!FormCampioni2.SampleNo.Value

        'Write the value in the database
        CurrentDb.Execute " INSERT INTO DB_Offerte2017 " _
                        & "([NumeroCampione]) VALUES " _
                        & "(" & TempVars![NumeroCampione] & ")" ', dbFailOnError
    End Sub

我得到的错误是：。

“参数太少。预期为1。”

有没有办法知道变量是否正确存储？

非常感谢你的帮助。

编辑1：

好的，所以我想该错误是由于DB_Offerte2017（[NumeroCampione]）是文本字段所致。 我以这种方式纠正了代码：

CurrentDb.Execute "INSERT INTO DB_Offerte2017 ( NumeroCampione ) VALUES ('" & Me.Parent.SampleNo & "')", dbFailOnError

这样，每次我单击复选框时，表“ DB_Offerte2017”中的“ NumeroCampione”字段下都会添加一条新记录。

但是，我需要将这些记录添加到复选框所在的同一行中（例如，单击ID = 2438的复选框->在ID = 2438的DB_Offerte2017.NumeroCampione上添加“ SampleNo”值）。

是否可以在代码中添加where语句？

Answer 1

为什么不只是普通的VBA变量或仅引用控件？ 代码在子窗体和主窗体上的字段/控件后面？ 尝试：

CurrentDb.Execute "INSERT INTO DB_Offerte2017([NumeroCampione]) VALUES (" & Me.Parent.SampleNo & ")", dbFailOnError 。