Гость
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сделать что бы поле сразу обновлялось / 13 сообщений из 13, страница 1 из 1
26.03.2019, 14:40
    #39791547
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
И знова Здравствуйте.

Есть как всегда база в базе есть подчинённое поле OLE в котором картинки.

Проблема: Когда выбираю другой код план-схему поле OLE не обновляется (разу)
Вопрос : Как сделать, что бы когда выбрали нужный код поле OLE сразу обновлялось, а лучше что-бы двигать стрелками "код план схемы" и поле тут же обновлялось.
База прилагается
https://cloud.mail.ru/public/toXb/ETVrLB9PV
...
Рейтинг: 0 / 0
27.03.2019, 07:06
    #39791971
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
Wawan2005База прилагается
https://cloud.mail.ru/public/toXb/ETVrLB9PV Может начать с таблиц и схемы?
...
Рейтинг: 0 / 0
27.03.2019, 07:09
    #39791972
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
Панург,

То есть???
...
Рейтинг: 0 / 0
27.03.2019, 12:04
    #39792162
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
ПанургМожет начать с таблиц и схемы?
об этом речь велась еще год назад
уж очень нестандартный подход к формированию отчетности и заполнению договоров
...
Рейтинг: 0 / 0
27.03.2019, 12:10
    #39792166
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
у меня картинки обновляются так
Me!ПрисоединенныйOLE1.Action = acOLEUpdate
Зы - Базу не открывал.......
...
Рейтинг: 0 / 0
27.03.2019, 14:27
    #39792349
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
Wawan2005База прилагается
уж очень длинный код
путем вспомогательной переменной можно уменьшить от 2 до 10 раз
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Private Sub Form_Open(Cancel As Integer)
Dim CNT As Control
  If IsNull(Оператор2) Then
        Me.П_Кросс2.Visible = 0
    Else
        Me.П_Кросс2.Visible = -1
    End If
 '''''''''''''''''''''''''
 Dim xgar As Boolean
   
 xgar = Nz(Me.[Тип МХЛИГ] = "гараж", 0)
 Debug.Print xgar
 ''''''''''''''''''''''''''''''''''''''''''''''''''
        Me.Н_Адрес1.Visible = Not xgar
        Me.П_Адрес1.Visible = Not xgar
        Me.Н_Собств1.Visible = Not xgar
        Me.П_Собств1.Visible = Not xgar
        Me.Н_СотТел1.Visible = Not xgar
        ''
        Me.Н_Адрес2.Visible = xgar
        Me.П_Адрес2.Visible = xgar
        Me.Н_Собств2.Visible = xgar
        Me.П_Собств2.Visible = xgar
        Me.Н_СотТел2.Visible = xgar

'        Me.П_Пути_Подъезд.Visible = Not xgar
'        Me.Данные_подч_Подъезд_ГСК.Visible = xgar

        End Sub
...
Рейтинг: 0 / 0
27.03.2019, 14:31
    #39792352
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
Wawan2005,

или
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
'Действие по доверенные лица
x1 = Not Nz(Me.П_ДЛ1_ФИО = "Доверенных лиц нет." Or IsNull(П_ДЛ1_ФИО), 0)
 For Each CNT In Me.Controls
 S1 = CNT.Name
If S1 Like "[НП]_ДЛ[1-4]_№" Then CNT.Visible = x1
If S1 Like "[НП]_ДЛ[1-4]_ФИО" Then CNT.Visible = x1
If S1 Like "[НП]_ДЛ[1-4]_СТ" Then CNT.Visible = x1
If S1 Like "[НП]_ДЛ[1-4]_РТ" Then CNT.Visible = x1
If S1 Like "[НП]_ДЛ[1-4]_ДТ" Then CNT.Visible = x1
If S1 Like "[НП]_ДЛ[1-4]_Прож" Then CNT.Visible = x1
If S1 Like "[НП]_ДЛ[1-4]_М_Раб" Then CNT.Visible = x1
If S1 Like "[НП]_ДЛ[1-4]_Должн" Then CNT.Visible = x1


Next CNT
...
Рейтинг: 0 / 0
27.03.2019, 14:43
    #39792360
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
ПЕНСИОНЕРКА,

ошибка в строке
Код: vbnet
1.
If S1 Like "[НП]_ДЛ[2-4]_ФИО" Then CNT.Visible = x1
...
Рейтинг: 0 / 0
27.03.2019, 19:11
    #39792541
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
Вы меня немножко не поняли, меня не интересует вся строчка, мне нужно моментальное обновление поля "Схема блокировки" после того как я изменяю код.
...
Рейтинг: 0 / 0
27.03.2019, 19:22
    #39792549
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
Serg197311,

Попробовал 3 варианта:

Код: vbnet
1.
2.
3.
4.
5.
Private Sub П_Код_Пл_Схем_BeforeUpdate(Cancel As Integer)
'    Me!Код_Пл_Схем.Action = acOLEUpdate                  '  Обновление поля кода
'    Me!Данные_подч_Схема.Action = acOLEUpdate       '  Обновление   самого поля OLE 
Me!Данные_подч2.Action = acOLEUpdate                     '  Обновление подчинённой формы
End Sub
...
Рейтинг: 0 / 0
27.03.2019, 19:22
    #39792551
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
ни чего не работает-(
...
Рейтинг: 0 / 0
27.03.2019, 19:32
    #39792560
Шаман
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
Wawan2005...когда выбрали нужный код поле OLE сразу обновлялось...Если правильно понял, то на поле со списком выбора кода, на событие после обновления:
Код: vbnet
1.
2.
3.
Private Sub П_Код_Пл_Схем_AfterUpdate()
DoCmd.Requery ""
End Sub
...
Рейтинг: 0 / 0
27.03.2019, 20:05
    #39792583
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать что бы поле сразу обновлялось
Шаман,

Да спасибо, заработало.
Правда я ещё один способ нашёл.
Сделал основные и подчинённые поля, где основное поле формы (П_Код_Пл_Схем) , а подчинённое поле таблицы (Код план-схемы (OLE)), тоже работает-)
И когда изменяешь она также мгновенно обновляет!
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сделать что бы поле сразу обновлялось / 13 сообщений из 13, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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