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应该是可执行文件。

Access 2016：运行时错误3061（VBA）

1 个答案: