Access 窗體設(shè)置是否刪除提示

在應(yīng)用程序中，為了避免一些錯(cuò)誤操作，往往需要在操作完成前先確認(rèn)一下。

這里以刪除數(shù)據(jù)為說明。當(dāng)刪除記錄是，會提示是否確認(rèn)刪除？如果是即刪除，如果否即不刪除操作。

詳細(xì)源碼：

Private Sub Command17_Click()
    Dim strSql As String
    strSql = "delete * from 訂單明細(xì)表 where 訂單明細(xì)編號=" & Me.sfmsub.Form.訂單明細(xì)編號 & ""
    If MsgBox("是否要?jiǎng)h除記錄", vbYesNo) = vbYes Then
        DoCmd.RunSQL strSql
    End If
    Me.sfmsub.Requery
End Sub