Access 2016：运行时错误 3061 (VBA)

Question

我创建了一个表单来从某个表中删除一条记录。它包含一个字段，用户可以在其中键入他想要删除的记录的 ID（字段名称：“idp”）。单击按钮验证删除。在按钮后面我有以下代码：

Private Sub button12_Click()
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
dbs.Execute "DELETE * FROM " _
    & "mytable WHERE ID = Me.idp;"
dbs.Close
DoCmd.Close End Sub

但是，我在尝试使用它时不断收到错误 3061。 （“错误 3061 参数太少。预期为 1”）感谢您的帮助，伙计们。

Answer 1

你可以这样试试吗：

Private Sub button12_Click()

    Dim dbs As Database, rst As Recordset
    dim strCommand as String

    Set dbs = CurrentDb

    strCommand = "DELETE * FROM " & "mytable WHERE ID = " & Me.idp
    debug.print strCommand 
    dbs.Execute strCommand

    dbs.Close
    DoCmd.Close 

End Sub

我认为您没有将Me.idp 作为参数传递，但它在字符串中。

一般来说，运行后，看一下立即窗口。如果您在 Access 中打开一个新查询，那里的 SQL 应该是可执行的。