Question

我对VBA和MS Access都很陌生，所以请耐心等待。

我正在寻找倒计时器，每次在特定文件夹中添加或创建新文件时都会触发该计时器。

应该从7分钟开始并向下运行0.如果添加/创建了新文件，计时器应该返回到07:00并重做该过程。

我的时钟计时器现在只能手动操作：

Option Compare Database
Option Explicit

Private Sub Command4_Click()
    Me.TimerInterval = 1000
    Me.Text2 = Me.Text0
End Sub

Private Sub Form_Timer()
    If Format(Me.Text2, "hh:nn:ss") = #12:00:00 AM# Then
        MsgBox "Time is up"
        Me.TimerInterval = 0
    Else
        Me.Text2 = DateAdd("s", -1, Me.Text2)
    End If
End Sub

感谢您提前阅读和提供所有帮助。

Answer 1

我不太清楚你想要实现的目标。

然而，您可以在Form_Load上启动计时器，如果文件存在，则每5秒检查一次，直到达到7分钟的截止点。

如果找到该文件，请重置计时器或在达到7分钟后结束。

Private Const max_ As Long = 420    '7 min/420 seconds
Private counter_ As Long            'Counter
Private file_ As String             'File to look for

'Load
Private Sub Form_Load()
    file_ = "YourFilePath"          'Use *.* for any file
    Me.TimerInterval = 5000         '5 seconds - change to whatever you like
End Sub

'Timer
Private Sub Form_Timer()
    If Len(Dir(file_)) = 0 Then
        'Nothing found
        If counter_ < max_ Then
            counter_ = counter_ + 5  'Keep counting - increment must match TimerInterval  
        Else
            Me.TimerInterval = 0     'End
            counter_ = 0
        End If
        Exit Sub
    End If

    'File found - do you action

    'Reset counter or End
    counter_ = 0
End Sub

注意：

请记住，只要文件夹中存在定时器永远不会停止的文件。

MS Access倒数计时器更新和文件夹触发器

1 个答案: