sql - 使用 SQL 语句创建 Recordset

Question

我正在尝试在 Access VBA 中创建一个记录集，它将向我显示与表单当前记录相关的表中的所有记录。我当前的代码如下所示:

Private Sub Form_Load()

    Dim rst As Recordset

    Set rst = CurrentDb.OpenRecordset("Select [ID], [Ln] From [Order Detail] Where ((([Order Detail].[ID]) = [Forms]![Order Data Entry Header]![ID]))")

    rst.MoveLast
    Forms![Order Data Entry Header].LineNum = rst![Ln]

End Sub

我这样做是为了在添加新记录时，它们可以在最高数字之后按顺序编号。当我运行表单时，它得到“运行时错误:'3061'参数太少。预期为 1。”在设置第一行。

任何帮助，将不胜感激。

Answer 1

问题在于您在那里看到的字符串正是传递给驱动程序的内容。

您需要“建立”字符串，如下所示:

Set rst = CurrentDb.OpenRecordset("Select [ID], [Ln] From [Order Detail] Where ((([Order Detail].[ID]) = " & [Forms]![Order Data Entry Header]![ID] & "))")

注意确保 [Forms]![Order Data Entry Header]![ID] 是安全内容，因为您正在构建 SQL 语句。