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

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

добрый день, при запуске формы выходит ошибка:
введенное выражение содержит недопустимую ссылку на свойство form/report, как это исправить?
Спасибо.
...
Рейтинг: 0 / 0
Обновление свободной подчиненной формы по значению из подчиненной формы
    #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
Обновление свободной подчиненной формы по значению из подчиненной формы
    #39689675
Mihail_Popov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
__Michelle,

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


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