[求助]关于删除语句的问题

lingjiang

语句如下: MsgBox "即将格式化全校体育成绩库!!"  vbOKCancel, "提示"
                DoCmd.RunSQL "delete  from [全校体育成绩]"
问:如何编写代码实现在选择"是"时自动删除全校体育成绩表中的数据 ,  "否"时则取消操作,而不会出现选择后再次出现 ACCESE自己的提示的情况???   [em06][em06]

[此贴子已经被作者于2006-5-7 13:13:02编辑过]

mrl

If MsgBox("即将格式化全校体育成绩库!!"   _
                        & (Chr(10)) & (Chr(10)) & "单击“是”格式化后数据将无法恢复。" _
                        & (Chr(10)) & "单击“否”取消格式化数据。", _
                          vbYesNo + vbExclamation + vbDefaultButton2, "操作确认") = vbYes Then
                    DoCmd.SetWarnings False    '取消提示
                    DoCmd.RunSQL "delete  from [全校体育成绩]"
                    DoCmd.SetWarnings True    ' 恢复提示
                End If

lingjiang

good !!![em01][em01][em01]我见到了光明!!!

lingjiang

xie xie!![em01][em01][em01]