1

こんにちは皆さん、アクセス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
4

1 に答える 1

2

VBAは 用に書かれているため、このコードを理解できませんVB.NET。について初めて耳にする場合は、VB.NETそれを拡張したものと考えてくださいVBA(これは非常に単純化しすぎており、そのようなことを書いているために反対票を投じられないことを願っています :))。

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このコンテキストでは必要ありません。

この投稿も見てください。かなり似ています。

お役に立てれば！

于 2013-10-26T13:33:49.523 に答える