在VBA中使用SQL语句创建Recordset

我正在尝试在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." 在第一行.

任何帮助,将不胜感激.

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

你需要"建立"字符串,如下所示:

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语句.