这个简单问题,谁可以帮我搞定它

rogertian

我所有的窗体中都有一个DELETE的按钮.我想在用户删除记录前确认选YES删选NO不删.用下面代码。但是我不想在每一个窗体的DELETE中都加入下面这句话。可不可以在模快中加入，然后在DELETE的事件中调中。

    Dim d As String
    d = MsgBox("Delete this note ,Are you sure?", vbYesNo, "Waring info")
    Select Case d
    Case vbYes
   
    Case vbNo
        Exit Sub
    End Select

Roadbeg

public function QueryDelete() as boolean
if msgbox("....",....)=vbyes then querydelete=true
end function

rogertian

如果这样写，删除数据的那句放在哪里啊。肯定不能放在QueryDelete() 这里面。
DoCmd.RunSQL "delete * from ..... "

我有些不明白你的意思，可不可以详细些。是不是我在DELETE按钮的事件里
CALL QueryDelete()
下一步该怎么做啊？

Roadbeg

在事件里写 if querydelete then docmd.runsql "...."

或者,你这样定义 querydelete
public function querydelete(Sql as string) as boolean
if msgbox("...",.....) =vbyes then docmd.runsql sql
end function
然后,在 事件里只用写 querydelete(.....)

rogertian

谢谢..我试试哪个方法更好些了...