Гость
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Обновление свободной подчиненной формы по значению из подчиненной формы / 6 сообщений из 6, страница 1 из 1
15.08.2018, 19:13
    #39688352
Mihail_Popov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление свободной подчиненной формы по значению из подчиненной формы
Доброго времени суток, прошу помочь с такой ситуацией:
есть главная форма Просмотр, на ней подчиненная форма События_просм в виде таблицы и источника данных таблица События,
есть на этой же форме свободная подчиненная форма Ресурс_просм в виде таблицы.
Вопрос как сделать при переходе по записям в подчиненной форме События_просм, выводились данные в форме Ресурс_просм из таблицы Ресурс, отфильтрованные по полю Код формы События_просм = Код таблицы Ресурс.

Сама база
...
Рейтинг: 0 / 0
16.08.2018, 14:28
    #39688886
Mihail_Popov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление свободной подчиненной формы по значению из подчиненной формы
Код используемый для выборки в подформе События_просм по нажатию кнопки :

Dim strSQL As String
strSQL = "SELECT Материал, Стелаж" _
& " FROM Ресурс" _
& " WHERE Код = " & Forms![Form1].Controls![Ресурс_просм].Form.[Код] & ";"

Debug.Print strSQL

Forms![Form1].Controls![Ресурс_просм].Form.RecordSource = strSQL

однако ничего не происходит!
...
Рейтинг: 0 / 0
16.08.2018, 18:23
    #39689063
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление свободной подчиненной формы по значению из подчиненной формы
На событие Текущая запись формы События_просм
Код: vbnet
1.
2.
3.
4.
strSQL = "SELECT Материал, Стелаж " & _
         "FROM Ресурс " & _
         "WHERE Код=" & Код
Parent.Ресурс_просм.Form.RecordSource = strSQL
...
Рейтинг: 0 / 0
17.08.2018, 14:04
    #39689485
Mihail_Popov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление свободной подчиненной формы по значению из подчиненной формы
__Michelle,

добрый день, при запуске формы выходит ошибка:
введенное выражение содержит недопустимую ссылку на свойство form/report, как это исправить?
Спасибо.
...
Рейтинг: 0 / 0
17.08.2018, 16:32
    #39689581
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление свободной подчиненной формы по значению из подчиненной формы
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Form_Current()
 Dim strSQL As String
 strSQL = "SELECT Материал, Стелаж " & _
          "FROM Ресурс " & _
          "WHERE Код=" & Код
 On Error Resume Next
 Parent.Ресурс_просм.Form.RecordSource = strSQL
End Sub
...
Рейтинг: 0 / 0
17.08.2018, 20:48
    #39689675
Mihail_Popov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление свободной подчиненной формы по значению из подчиненной формы
__Michelle,

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


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