單擊退出access事件的語句:
Private Sub 退出系統_Click()
If MsgBox("妳確定要退出Access系統?", vbQuestion + vbYesNo, "確認") = vbYes Then
docmd.Quit
End If
End Sub
單擊退出access事件的語句:
Private Sub 退出系統_Click()
If MsgBox("妳確定要退出Access系統?", vbQuestion + vbYesNo, "確認") = vbYes Then
docmd.Quit
End If
End Sub