如何实现ACCESS窗体在空闲一段时间后自动关闭

心心相印

我利用ACCESS设计了一个小型数据库来完成资料的录入及报表打印等功能很想知道自己在使用完忘记退出时，如何实现ACCESS窗体在空闲一段时间后自动关闭，急

wan_shan

简单做了一个例子，仅供参考！

中国深圳

原理：利用两个时间点的光标座标值是否相同来判断当前程序是否有无操作。如果当前活动程序不是ACCESS，则计时退出功能无效，如果是，则启用，新旧座标值一样时，超过计时器长短时间即会自动退出。

将以下代码COPY到模块中： Option Compare Database

Public Type POINTAPI X As Long Y As Long End Type

Public OldPoint As POINTAPI, NewPoint As POINTAPI Public XX As Integer Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Declare Function GetActiveWindow Lib "user32" () As Long

建一窗体，将以下代码COPY到窗体的模块中： Option Compare Database

Private Sub Form_Load() GetCursorPos OldPoint End Sub

Private Sub Form_Timer() Dim I I = GetActiveWindow '获取活动窗口的句柄，如当前系统没有窗口处于活动状态，则返回零值 If I <> 0 Then '当前程序为本系统时，根据光标是否有移动来判断 GetCursorPos NewPoint '获取新的光标位置 If OldPoint.X = NewPoint.X And OldPoint.Y = NewPoint.Y Then DoCmd.Quit acQuitSaveAll '判断为是，则光标停留在原处未动过，退出系统 Else OldPoint.X = NewPoint.X '判断为否，以新的坐标值代替旧的坐标值。 OldPoint.Y = NewPoint.Y End If XX = 0 '清除当前不为本系统时的计数器 Else XX = XX + 1 If XX >= 2 Then DoCmd.Quit acQuitSaveAll End If

End Sub

中国深圳

二楼的例子也不错，把单击事件改为鼠标移动事件是不是更好些。

心心相印

具体点

1234cc

三楼的代码好像没作用哦,,,,就是有作用也不怎么好用,,,不能自己设定时间间隔....[em03]

1234cc

Private Sub Form_Current()

    If Me.NewRecord = True Then
   
       Me.Form.AllowEdits = True
       
    Else
   
        Me.Form.AllowEdits = False
       
    End If

End Sub

1234cc

四楼的大哥,,,你的代码怎么这样发出来啊,,,是不是不愿分享啊,,,不然代码怎么会这样排????

我刚才试了一下不会出现代码这样的排法.....

[em06]