下面的代码怎样改！才能真的退出access

gxy1000

下面的代码怎样改！才能退出access：
下面的代码只能关闭主界面！！各位师傅帮帮忙！
Private Sub ctListBar0_ItemClick(ByVal nList As Integer, ByVal nItem As Integer)
Dim strArgument As String
    strArgument = ctListBar0.ItemText(nList, nItem)
    Select Case strArgument
    Case "计算器"
         Dim stAppName As String
         stAppName = "calc.exe"
         Call Shell(stAppName, 1)
    Case "发货查询"
         DoCmd.OpenForm "窗体1"
    Case "支付查询"
         DoCmd.OpenForm "窗体2"
    Case "退出系统"
         DoCmd.Close acForm, Me.Name
    Case Else
    End Select
End Sub

lsh325

学习学习，待高人

gxy1000

解决了！！论坛里找到了！！！Case "退出系统"
         Case "退出系统"
                Quit

  
   

pwj2009

这个很简单啊。DoCmd.Quit         
Quit 是退出整个ACCESS
colse是退出窗体！