Question

大家好我在访问vba上尝试了该代码，它给了我错误这是它：

Private Sub Command102_Click()
If msgbox("are u sure", MsgBoxStyle.yesno, "Delete") = MsgBoxResult.Yes Then
 Resume
    msgbox ("deleted")
    Else
    msgbox ("canceld")
End If
    DoCmd.RunCommand acCmdDeleteRecord
End Sub

Answer 1

VBA不理解此代码，因为它是为VB.NET编写的。如果这是您第一次听到VB.NET，请将其视为VBA的扩展（这是一个非常过于简单化的说法，我希望我不会因为写这些东西而得到投票:)）。< / p>

在VBA语法中，您可以执行以下操作：

Private Sub Command102_Click()
    If MsgBox(Prompt:="Are you sure?", Buttons:=vbYesNo, Title:="Delete") = vbYes Then
         On Error Resume Next
         DoCmd.RunCommand acCmdDeleteRecord
         If Err.Number = 0 Then
            MsgBox Prompt:="Deleted", Buttons:=vbOKOnly, Title:="Deleted"
        Else
            MsgBox Prompt:="There is no record to delete!", Buttons:=vbOKOnly, Title:="Error"
        End If
    Else
        MsgBox Prompt:="Canceled", Buttons:=vbOKOnly, Title:="Canceled"
    End If
End Sub

在此上下文中您不需要Resume。

同时查看this post，它非常相似。

希望这有帮助！

访问删除记录不起作用的VBA代码

1 个答案: