powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Временно остановить выполнение кода?
3 сообщений из 3, страница 1 из 1
Временно остановить выполнение кода?
    #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
Временно остановить выполнение кода?
    #32667822
N_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
DoCmd.OpenForm "datepicker", WindowMode:=acDialog
...
Рейтинг: 0 / 0
Временно остановить выполнение кода?
    #32667852
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Благодарю!!! Работает!! просто поразительно
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Временно остановить выполнение кода?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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