powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Изменение SourceObject, LinkMasterFields, LinkChildFields в программе
8 сообщений из 8, страница 1 из 1
Изменение SourceObject, LinkMasterFields, LinkChildFields в программе
    #32740201
Igor Bredikhin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Форма на ней контрол субформы, при определенных действиях вызываются функции изменяющие SourceObject, LinkMasterFields, LinkChildFields у контрола субформы. При некотором раксладе вываливается окошко с просьбой ввести не найденное поле к примеру " Id_Dog ".
Как можно решить проблемку?

ShowSubForm("ctlExt";"subTitle";"Id_Dog";"Dog_Id")
или
ShowSubForm("ctlExt";"subPerson";"Owner_Id";"Id_Person")
или ....
в зависимости от нажатой кнопки.

Public Function ShowSubForm(ctlFloat, strSourceObject, strLinkMasterFields, strLinkChildFields)
On Error Resume Next
Screen.ActiveForm(ctlFloat).SourceObject = strSourceObject
Screen.ActiveForm(ctlFloat).LinkMasterFields = strLinkMasterFields
Screen.ActiveForm(ctlFloat).LinkChildFields = strLinkChildFields
End Function
...
Рейтинг: 0 / 0
Изменение SourceObject, LinkMasterFields, LinkChildFields в программе
    #32740209
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Требуется чтобы все поля, которые вы указываете при вызове функции действительно присутствовали на формах - на основной и подчинённой.
...
Рейтинг: 0 / 0
Изменение SourceObject, LinkMasterFields, LinkChildFields в программе
    #32740274
Igor Bredikhin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Поля-то присутствуют :-)
А вот в момент смены SourceObject, LinkMasterFields или LinkChildFields (порядок значения не имеет) получается каша. т.е., Контрол субформы меняет SourceObject но на субформе уже нет старого LinkChildFields.

В этом-то и засада.
...
Рейтинг: 0 / 0
Изменение SourceObject, LinkMasterFields, LinkChildFields в программе
    #32740368
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Имя контейнера для формы у вас не изменяется в момент смены SourceObject - а основные и подчинённые поля как раз свойства этого контейнера - в этом проблема.
...
Рейтинг: 0 / 0
Изменение SourceObject, LinkMasterFields, LinkChildFields в программе
    #32740370
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так, неверно посмотрел код - извините, сейчас воспроизведу у себя на машине:(
...
Рейтинг: 0 / 0
Изменение SourceObject, LinkMasterFields, LinkChildFields в программе
    #32740382
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Старый стал, забывчивый - сто лет назад решал такую фигню просто:)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Function ShowSubForm(ctlFloat, strSourceObject, strLinkMasterFields, strLinkChildFields)
Screen.ActiveForm(ctlFloat).LinkMasterFields = ""
Screen.ActiveForm(ctlFloat).LinkChildFields = ""
Screen.ActiveForm(ctlFloat).SourceObject = strSourceObject
Screen.ActiveForm(ctlFloat).LinkMasterFields = strLinkMasterFields
Screen.ActiveForm(ctlFloat).LinkChildFields = strLinkChildFields
End Function

Вот так всё работает и запроса не будет....
...
Рейтинг: 0 / 0
Изменение SourceObject, LinkMasterFields, LinkChildFields в программе
    #32740447
Igor Bredikhin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Странно, до этого так пробывал не вышло..., и Null и "" пробывал :-(((

А сейчас заработало...
...
Рейтинг: 0 / 0
Изменение SourceObject, LinkMasterFields, LinkChildFields в программе
    #32740555
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну заработало же ведь, так что какая теперь разница:)
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Изменение SourceObject, LinkMasterFields, LinkChildFields в программе
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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