access2010怎么用窗体按钮直接退出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() 如下图示：

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

窗体的退出直接点击关闭按钮即可

如果要用程序控制的话

可以放到按钮的单击事件中

执行代码

docmd.close

当前窗体即可关闭退出。

如楼上所示，直接在按钮的单击事件中写this.Close()就可以关闭窗体，同时相应的进程会自动关闭，不需要你自己处理。如果你是需要关闭进程的代码，则如下：

先确定你的进程 Process[] plist = Process.GetProcessesByName("这里输入你的窗体名称")

Process p = plist[0]

结束进程的方式： p.Kill() 就可以强制关掉进程。

---