ACCESS中怎么做窗体退出按钮，要有确定和取消
我的意思是做一个新的按钮出来，不是窗口上的"X"键。而是点了这个按钮后，按确定要进入另一个制定的窗体。例如我在窗体里点一个叫“退出登陆”的按钮，弹出提示框，点“是”则关闭该窗体进入“登陆界面”窗体，点“否”则没有任何操作。
Private Sub Command7_Click()
If MsgBox("是否确认注销？", vbInformation + vbDefaultButton2 + vbYesNo, "锐息提醒您：") = vbYes Then
DoCmd.Close
Exit Sub
Else
cancel = True
End If
我这么写，已经能有关闭窗体时选择是或否的效果了，但是如何打开一个新窗体，如名为“登陆界面”
能实现的话，再追加30分! 展开
方法一：进入设计摸式，在窗体上添个一个按钮。然后右击它，在事件属性中找到单击，进入代码模式，输入以下代码:
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() 如下图示：
当然，还存在很多其它的方法，这里就不一一列举了。
If MsgBox("是否确认注销？", vbInformation + vbDefaultButton2 + vbYesNo, "锐息提醒您：") = vbYes Then
DoCmd.Close
docmd.openform "你的窗体名"
End If
If MsgBox("是否确认退出？", vbInformation + vbDefaultButton2 + vbYesNo, "***提醒您：") = vbYes Then
Exit Sub
Else
Cancel = True
End If
谢谢给分。
