Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Временно остановить выполнение кода? / 3 сообщений из 3, страница 1 из 1
26.08.2004, 19:31:47
    #32667811
Ukraina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Временно остановить выполнение кода?
Люди! Использую календарик, работает нормально, но…После ввода новой даты в таблице не обновляется дата
Это код по нажатию кнопки
Dim d, m, g As String
Me.[Дата].SetFocus
DoCmd.OpenForm "datepicker"

d = Chr(34) & Format(Me.[Дата], "dd") & Chr(34)
m = Format(Me.[Дата], "mm")
g = Format(Me.[Дата], "yyyy") & " г."


Me![Число] = d
Me![Месяц] = m
Me![Год] = g
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Задача: необходимо, что бы после выбора даты обновлялись данные автоматически.
В настоящий момент вынужден ставить еще одну кнопку.
На мой взгляд проблема идет из-за того, что данный код выполняется весь до конца, но форма "datepicker" еще открыта, т.е. новая дата не введена. Можно ли как нибудь «тормознуть» выполнение кода
...
m = Format(Me.[Дата], "mm")
g = Format(Me.[Дата], "yyyy") & " г."
...
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

до закрытия формы типа "datepicker"
...
Рейтинг: 0 / 0
26.08.2004, 19:40:52
    #32667822
N_A
N_A
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Временно остановить выполнение кода?
Код: plaintext
DoCmd.OpenForm "datepicker", WindowMode:=acDialog
...
Рейтинг: 0 / 0
26.08.2004, 20:17:21
    #32667852
Ukraina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Временно остановить выполнение кода?
Благодарю!!! Работает!! просто поразительно
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Временно остановить выполнение кода? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]