В общем-то хочу сделать заставку, в виде формы в Ac97,(причем в Ac2000 у меня все работает) чтобы она через 3 сек сама закрылась.

Делаю так:
На открытие формы вешаю
Dim t As Single
t = Timer
Do Until Timer > t + 3
If Timer < t Then t = t - 24 * 3600
DoEvents
Loop
DoCmd.Close acForm, "моя_форма", acSaveYes

Вроде все правильно, а Ac97, ждет 3 сек, а только потом
открывает форму (естественно с ошибкой, т.к. он не может закрыть форму, которая еще не открыта).
Ну ладно, подумал я, тогда создаю поле "мое_поле", на открытие формы вешаю
Forms!моя_форма!мое_поле.SetFocus
а на событие вход для поля уже вешаю таймер с 3 сек.
Так все равно не работает, опять форма ждет 3 сек, а потом
открывается.
Вроде все должно работать. Не понимаю, что сделал не так?

2 Roma R:
Спасибо!

Да, все гениальное - просто, а я извращением занимался. :-)