Ms access 当用户按下“时显示消息框”；否"；

我有以下代码从access中的表中删除所有数据。但是，我也希望显示一个消息框，上面写着“好，当用户按“否”时，您没有删除安婷，当屏幕弹出“您确定…”

有人知道我怎么能创造出这样的东西吗

Public Function DeleteDataSAP()

DoCmd.RunSQL "DELETE * FROM tb_Organisatiestructuur"

End Function

试试这个

Sub main()

    Dim retval
    retval = MsgBox("Are you sure you want to delete?", vbYesNo + vbDefaultButton2)

    If retval = vbYes Then
        DeleteDataSAP
    ElseIf retval = vbNo Then
        MsgBox "ok you didn't delete anthing "
    End If
End Sub

请不要使用RunSQL

 Public Function DeleteDataSAP()

        DoCmd.RunSQL "DELETE * FROM tb_Organisatiestructuur"

    End Function