' ********************************************
' Any Form's Slass Module
' That form must be loaded alltime. It may be hidden.

Option Compare Database
Option Explicit

Private Const TI& = 1000                                ' form's TimerInterval              ~ 1 sec
Private Const EXportCheck& = 60                         ' export rule check period *=TI     ~ 1 min

Private Const EXP_PFX$ = "c:\1\Товары_"                 ' export full file name constant prefix
Private Const EXP_TMP$ = "ddmmyy_hhmm"                  ' export full file name template data
Private Const EXP_SFX$ = ".csv"                         ' export full file name constant suffics


Private exportTicker As Long                            ' export period check ticker

Public autoExport As Boolean                            ' flag indicating that auto export must be provided


' ********************************************
Private Sub Form_Open(Cancel As Integer)
    Me.TimerInterval = TI
    exportTicker = 0
    autoExport = True
End Sub

Private Sub Form_Timer()
    exportTicker = exportTicker + 1                     ' increment export period check ticker
    Call TimeToExport()
End Sub


' ********************************************
' export routine
Private Sub TimeToExport()
    Dim sFileName As String, dtNow As Date

    If autoExport Then
    
        If exportTicker = EXportCheck Then                  ' check export period check ticker
        
            dtNow = Now()                                   ' get current date-time
        
            If Minute(dtNow) Mod 10 = 0 Then                ' export rule check
            
                sFileName = GetExportFileName(dtNow)        ' construct export file path
            
            
                ' *******************
                ' check file `sFileName` not exists
                ' perform your export operation
            
                exportTicker = 0                             ' reset export period check ticker
            End If
        End If
    
    Else
        exportTicker = 0                                   ' reset export period check ticker
    End If
End Sub

Private Function GetExportFileName(dt As Date) As String
    GetExportFileName = EXP_PFX & Format$(dt, EXP_TMP) & EXP_SFX
End Function