Макрос текущего времени и привязка его к кнопке

[Severny]

Сообщение от The_Prist

Вы неверно вставляете в модуль объявление переменной:

Огромное Вам спасибо. Все работает! Больше даже спасибо за ликбез, мои скудные знания прилично обогатились
А можно еще вопросик? Как теперь удалить эти идущие часы? Пришлось через Break останавливать выполнение макроса.

[The_Prist]

Сообщение от Severny

Как теперь удалить эти идущие часы? Пришлось через Break останавливать выполнение макроса.

Sub Stop_Tic()
On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "Refresh_Time", , False
End Sub

Можно данную процедуру остановить либо в макросе, либо по закрытии книги:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Stop_Tic
End Sub

[madex]

Хочу оставить только время(без даты), что не так сделал?

Dim rRng As Range
Sub ВставкаТекущегоВремени() ' Вставка текущего времени
Set rRng = Workbooks("Товарный чек1.xls").Sheets("Чек").Cells(3, 22): rRng = Time
rRng.NumberFormat = "h:mm:ss"
Call Refresh_Time
End Sub

Sub Refresh_Time()
rRng = Time
Application.OnTime Time + TimeValue("00:00:01"), "Refresh_Time"
End Sub

Сам не понял почему, но так все получилось:

Dim rRng As Range
Sub ВставкаТекущегоВремени() ' Вставка текущего времени
Set rRng = Workbooks("Товарный чек1.xls").Sheets("Чек").Cells(3, 22): rRng = Time
rRng.NumberFormat = "h:mm:ss"
Call Refresh_Time
End Sub

Sub Refresh_Time()
rRng = Time
Application.OnTime Now + TimeValue("00:00:01"), "Refresh_Time"
End Sub

Кто в силах объясните в чем соль?

[The_Prist]

Сообщение от madex

Кто в силах объясните в чем соль?

Соль в том, что Вы неверно поняли метод OnTime или вообще не вдумывались.

Application.OnTime Time + TimeValue("00:00:01"), "Refresh_Time" - получается, что Вы хотите вызвать процедуру "Refresh_Time" БЕЗ ДАТЫ. Т.е. в 1900 году. Т.к. для OnTime важно не только время, но и дата. Now возвращает текущий день и время. Думаю, не надо пояснять, почему с Now все заработало? :-)

[madex]

Сообщение от The_Prist

Соль в том, что Вы неверно поняли метод OnTime или вообще не вдумывались.

Application.OnTime Time + TimeValue("00:00:01"), "Refresh_Time" - получается, что Вы хотите вызвать процедуру "Refresh_Time" БЕЗ ДАТЫ. Т.е. в 1900 году. Т.к. для OnTime важно не только время, но и дата. Now возвращает текущий день и время. Думаю, не надо пояснять, почему с Now все заработало? :-)

Теперь все понятно, спасибо за разъяснение.

[Severny]

Сообщение от The_Prist

Sub Stop_Tic()
On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "Refresh_Time", , False
End Sub

Спасибо The_Prist!

[dr03]

всем доброго здоровья!Задался целью в access 2007 создать для окна формы кнопку"текущее время".С программированием не знаком очень плохо, сломал уже всю голову.Получилось только прописать текущее время для окна при открытии формы в значении по умолчанию (=now() или =time()). Просмотрел и прослушал интерактивный курс по access-пользы не вынес.Прочитал вышенаписанное попробовал применить к своей проблеме.На лицо выплыли проблемы с вставлением в нужном месте. Готов заплатить деньги-только ПОМОГИТЕ!