Гость
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Полтергейст в MS Access / 12 сообщений из 12, страница 1 из 1
11.09.2018, 11:24
    #39700814
АртЮганск
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
Непонятно каким образом значение возвращаемое функцией "ДобавитьОжДату(ByVal s As String)" попадает в текущее поле "Наименование объекта" таблицы "Object".
Происходит это после следующей последовательности действий:
1. Устанавливаем курсор на любую строку где присутствует текст в поле "Наименование объекта".
...
Рейтинг: 0 / 0
11.09.2018, 11:24
    #39700815
АртЮганск
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
2. Нажимаем кнопку "Редактировать выбранный объект!".
...
Рейтинг: 0 / 0
11.09.2018, 11:24
    #39700816
АртЮганск
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
3. В появившейся форме "РедактироватьОбъект", в выпадающем списке "Ожидаемое на дату" вводим дату, которой ещё нет в таблице "Oj_Data", например: "01.01.2038".
...
Рейтинг: 0 / 0
11.09.2018, 11:25
    #39700817
АртЮганск
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
4. Нажимаем Enter. Курсор перескочит в поле "Наименование".
...
Рейтинг: 0 / 0
11.09.2018, 11:25
    #39700818
АртЮганск
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
5. Нажимаем крестик в правом, верхнем углу.
...
Рейтинг: 0 / 0
11.09.2018, 11:26
    #39700819
АртЮганск
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
6. Вместо наименования объекта получаем число, которое вернула функция "ДобавитьОжДату(ByVal s As String)".
Вопрос: как такое может происходить, если результат работы функции "ДобавитьОжДату(ByVal s As String)" нигде не сохраняется?
Сама БД лежит здесь: https://drive.google.com/open?id=1ozZgyiUjuokZ-5zlAiPJnHey9YXIdMGg
...
Рейтинг: 0 / 0
11.09.2018, 12:10
    #39700847
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
А Вы не нажимая Enter закройте крестиком форму после ввода даты. Что получится?
...
Рейтинг: 0 / 0
11.09.2018, 12:13
    #39700850
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
И вообще, зачем ожидаемую дату выбирать из списка? Причем список не полный и должен пополняться в процессе ввода? Может просто сделать ввод даты?
...
Рейтинг: 0 / 0
18.10.2018, 10:09
    #39719226
АртЮганск
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
Joss,
ввести дату можно также вручную , а можно выбрать, это на усмотрение пользователя.
...
Рейтинг: 0 / 0
18.10.2018, 10:11
    #39719230
АртЮганск
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
Joss,
если Enter не нажимать то всё нормально.
Но всё же как-то странно получается, что эту проблему никак нельзя предотвратить программно?
...
Рейтинг: 0 / 0
18.10.2018, 14:41
    #39719406
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
Наверно можно. Посмотрите в форме на вкладке Другие у Вас цикл табуляции Все записи ? Поставьте Текущая запись и посмотрите, что получится.
...
Рейтинг: 0 / 0
19.10.2018, 12:13
    #39719850
Озверин
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полтергейст в MS Access
А зачем вот это вот код: Form_Open 0?
Я пока полтергейста не разгадал, нj уберите его по завершению события not-in-list

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub РД2_NotInList(NewData As String, Response As Integer)                               '   Введенное значение отсутсвует в списке
'   Если событие возникает, но не удовлетворяет по критериям, пишете Response=acDataErrContinue.
'   Если новое значение можно принять, то Response=acDataErrAdded.
    Response = All_NotInList(NewData, Response)                                                         '   При закрытии окна значение из Response вылетает в наименование???
'    DoCmd.OpenForm "РедактироватьОбъект", OpenArgs:=iArg                                               '   Передать id объекта в модальную форму
'    Form_РедактироватьОбъект.Show
    Form_Open 0

End Sub
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Полтергейст в MS Access / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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