如何远程关闭自定义 access 应用程序

时　间:2007-06-12 00:00:00
作　者:UMVsoft整理   ID：8  城市：上海  QQ：2851379730
摘　要:有时, 可能需要对 MicrosoftAccess 数据库, 如压缩或修复、 进行备份, 或设计修改执行维护任务。 许多操作的要求， 所有用户退出数据库。 但是, 有将内置无法强制用户退出 MicrosoftAccess。 而且它是不最好只断开该用户网络解决方案。 导致数据库以损坏。
正　文:

一、解决方案如何工作
按照用作解决方案。 服务器, 上有位于文件文件夹。 此文件可命名任何。 对于本解决方案, 使用命名 chkfile.ozx 文件。 此文件重命名或删除, 时它通知前端 Access 应用程序有关闭。

建立用户启动前端数据库应用程序时， 打开窗体。 此表单检查是否存在按设置间隔服务器上的文件。 它使用 TimerInterval 属性和 OnTimer 事件要这样做。

如果找到文件, 没有反应。 如果未找到文件, 形式显示另一个窗体以警告用户， 数据库将自动关闭指定的时间段中。

注意 ： 本解决方案不使用 MsgBox 函数来警告用户。 MsgBox 函数将等待用户输入之前运行任何代码。 这将 defeat 解决方案的用途。

以正常关闭客户会话, 正在检查文件重命名解决方案。 将文件重一切后才能完成, 结束后解决方案命名回为原始名称。 这使用户知道他们可启动前端数据库再次。

此过程可以还自动通过服务器上使用计划服务来提供无人参与操作 chkfile.ozx 上指定时间该命名。

步骤创建示例方案
为了说明如何解决方案, 您将需要具备以下：
● 您用路径是 C:\MyData 硬盘上文件夹。  
● 空文件。 解决方案将检查是否存在对此文件。 
●拆分数据库设计与后端数据库文件和链接到前端数据库中， 表中的表。 前端数据库将包含代码检查是否存在的文件按设置间隔, 然后警告用户。 
●创建为示例应用程序文件夹
●对驱动器 C, 根目录中创建文件夹并命名 MyData 。
创建空文本文件
1. MyData 文件夹中创建新文本文件并命名 chkfile.txt 。 
2. 将文本文件以便它具有 ozx (chkfile.ozx) 的扩展。 当提示您, 确认您要更改文件扩展名。 

创建后端数据库
1. 在 C:\MyData 文件夹, 创建新数据库并命名 Northwind_Be.mdb 。 
2. Customers 表从 Northwind 示例数据库导入 Northwind_Be.mdb 数据库。 默认情况下, Northwind 是位于 C:\ProgramFiles\Common Files Office\Office10\Samples。 
3. 关闭数据库。

创建前端数据库
1. 创建另一个新数据库, 并命名 Northwind_Fe.mdb 。 
2. 链接到新 Northwind_Fe.mdb Northwind_Be.mdb 数据库中 Customers 表 
3. 创建一个 AutoForm 基于链接 Customers 表并保存为 frmCustomers 。 关闭此表单。 

创建表单， 检查是否存在该文件的代码
1. 创建未绑定窗体, 并与 frmAppShutDown 名称保存。 在生产数据库, 此表单通常总是打开但不可见。 对于本示例, 它可以保留开放照常。 
2. 将窗体的 TimerInterval 属性设置为 60000 毫秒 这是等于一分钟。 （对于自己解决方案, 您可增加或者 decease 此时间间隔。 
3. 在 Microsoft Office Access 2003 或早期版本的 Access, 的 frmAppShutDown 形式, 设计视图中单击 视图 菜单上 代码 。 在 Microsoft Office Access 2007年, 的 frmAppShutDown 形式, 设计视图中单击, 设计 选项卡， 然后单击 查看代码 工具 组中。 键入或粘贴以下代码：
Option Explicit
Dim boolCountDown As Boolean
Dim intCountDownMinutes As Integer

Private Sub Form_Open(Cancel As Integer)
    ' Set Count Down variable to false
    ' on the initial opening of the form.
    boolCountDown = False
End Sub

Private Sub Form_Timer()
On Error GoTo Err_Form_Timer
    Dim strFileName As String
    strFileName = Dir("c:\MyData\chkfile.ozx")
    If boolCountDown = False Then
        ' Do nothing unless the check file is missing.
        If strFileName <> "chkfile.ozx" Then
            ' The check file is not found so
            ' set the count down variable to true and
            ' number of minutes until this session
            ' of Access will be shut down.
            boolCountDown = True
            intCountDownMinutes = 2
        End If
    Else
        ' Count down variable is true so warn
        ' the user that the application will be shut down
        ' in X number of minutes.  The number of minutes
        ' will be 1 less than the initial value of the
        ' intCountDownMinutes variable because the form timer
        ' event is set to fire every 60 seconds
    &nb

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店