ACCESS中怎么做窗体退出按钮，要有确定和取消

方法一：进入设计摸式，在窗体上添个一个按钮。然后右击它，在事件属性中找到单击，进入代码模式，输入以下代码:

Private Sub Command1_Click()

    If MsgBox("真的要离开了吗？", vbOKCancel + vbQuestion, "你是不是该安静的离开？") = vbOK Then

        DoCmd.Close

    End If

End Sub

方法二：创建一个公用模块，在模块中建立以下公用过程：

Public Sub AJLK()

     If MsgBox("真的要离开了吗？", vbOKCancel + vbQuestion, "你是不是该安静的离开？") = vbOK Then

        DoCmd.Close acForm, Screen.ActiveForm.Name

    End If

End Sub

然后在窗体中添加按钮的单击事件：

Private Sub Command1_Click()

       AJLK

End Sub

方法三：类似于方法二，公用模块：

Public Sub AJLK(formname As String)

     If MsgBox("真的要离开了吗？", vbOKCancel + vbQuestion, "你是不是该安静的离开？") = vbOK Then

        DoCmd.Close acForm, formname

    End If

End Sub

窗体按钮单击事件：

Private Sub Command1_Click()

       AJLK me.Name

End Sub

方法四：在公用模块建立一公用函数

Public Function AJLK() As Boolean

    If MsgBox("真的要离开了吗？", vbOKCancel + vbQuestion, "你是不是该安静的离开？") = vbOK Then

        DoCmd.Close acForm, Screen.ActiveForm.Name

    End If

End Function

然后在窗体按钮的事件中直接输入=AJLK() 如下图示：

当然，还存在很多其它的方法，这里就不一一列举了。

Private Sub Command7_Click()
If MsgBox("是否确认注销？", vbInformation + vbDefaultButton2 + vbYesNo, "锐息提醒您：") = vbYes Then
DoCmd.Close
docmd.openform "你的窗体名"
End If

请在该窗体的卸载（ Form_Unload）事件中加入以下代码：
If MsgBox("是否确认退出？", vbInformation + vbDefaultButton2 + vbYesNo, "***提醒您：") = vbYes Then
Exit Sub
Else
Cancel = True
End If
谢谢给分。