не глядя в текст -
Перая беда здесь
Option Private Module

ни при чем - значит ни при чем,
а имел ввиду, не глядя, следующее
Option Private Module, предназначенный для ОБЕСПЕЧЕНИЯ НЕПУБЛИЧНОСТИ содержащихся в нем (модуле) функций, не гарантирует, что AddressOf Вашей Progress будет доступен для внешнего мира. Возможно именно в этом я как раз ошибаюсь, но сам не стал бы объявлять модуль, в котором собраны CallBAck функции как Option Private.

Глядя в текст, и видя, что Progress объявлен как private, скорее соглашусь с Вами, Progress и без OPtion Private никто не увидит - так что Option Private - точно не причем.

Еще глядя в текст вижу, что вы пытаетесь переустановить уже существующий в форме таймер, идентификатор которого Вам известен, но Вы не рассказали, как он получен и почему у него ВСЕГДА значение 10?
Сие для меня тайна .

Больше пока, глядя в текст МЕЛЬКОМ, ничего сказать не могу.

про 10 - пардон - смотрел криво

посмотрев еще раз мельком скажу примерно следующее - "убить таймер" с помощью этого кода, на мой взгляд не удастся

объявление Progress - неправильно, она/оно не будет работать вне зависимости от публичности - она следует неверному интерфейсу

д.б.

(Public) Sub Progress(ByVal hWnd As Long,

ByVal lngMsg As Long, ByVal lngID As Long, _

ByVal lngTime As Long).
....

2 Kelme
lngEvent - это идентификатор таймера (в данном случае пытаюся породить новый таймер на окне формы)
Он вполне успешно может быть нулём при рождении нового, при условии, что с данным окном таймер еще не инициализирован. Идентификатор порожденного таймера возвращается как через lngEvent, так и через значение функции SetTimer.
В акцесс я бы НЕ СТАЛ пытаться инициализировать таймер на окне формы Акцесс. а вызвал SetTimer( 0,0...) Возвращенное значение НЕОБХОДИМО использовать для последующего Kill...

Да, еще надо иметь ввиду следующее - попытки на успех отладки подобного кода в IDE = 0
Написал, сохранил, закрыл IDE - попробовал что получилось НЕ ВЫЗЫВАЯ ОТЛАДЧИК.

плохая задача для акцесс.
можешь управлять собственным таймером формы ( он по крайней мере надежный и вызывает крахов гарантированно) , породив несколько экземпляров этой формы. Подойдет-ли зависит от регламентов и "тяжести" их обработки.

НЕ вызывает крахов

-)))

накидай, ЧТО тебе надо - разных файлов - это как ?

Вот ПЛОХОЙ пример, будет работать в акцесс старше 97

1) заводишь форму ПУСТУЮ с Именем timerForm. В ее свойствах ховоришь, что У НЕЕ ЕСТЬ МОДУЛЬ (он будет пустой)

2) заводишь класс IMyFileProcessor, в котором пишешь

Public Property Let SetTimerInterval(byval lValue as long)

End Property

property Get GetTimerInterval as Long

End Property

Public Sub ProcessFile
End Sub


3) Заводишь столько классов имплементаторов, сколько предполагаешь иметь алгоритмов обработки
В каждом из них пишешь

Implements IMyFileProcessor

дальше

Private WithEvents tForm As Form



Private Sub Class_Initialize()
Set tForm = New form_formTimer
tForm.OnTimer = "[Event Procedure]"
End Sub

Private Sub tForm_Timer()
'здесь будут обрабаываться события таймера
End Sub

После чего НЕ ЗАБЫВАЕШЬ имплементировать интерфейс.

---------------------
Пользуешь полученные классы по своему усмотрению на свой страх и риск.

да, в реализации не забыть

Private Sub Terminate()
Set tForm = Nothing
End Sub


Private Sub Class_Terminate()
Call Terminate
End Sub

2 Март
второй - от Shuhard - умнее

Если им не суждено передраться - и так не передереться, а если суждено - DoEvents не поможет.

Между прочим, не передеруться - если КАЖДУЮ открывать в отдельном экземпляре Application.