Добрый день, столкнулся с проблемой при написании макроса (VBScript)
Нужно:
В слое имеется нарисованный объект (здание), при вводе информации(номер заявки) в поле формы, автоматически подставлять остальные значения в пустующие поля формы из второй таблицы.
Две таблицы хранятся в одном файле Access, добавлены через "соединение".
В первой таблице находятся:
1)Sys (ключ для обьектов).
2)Номер заявки.
Во второй:
1)Номер заявки.
2)Улица.
и т.д.
Первоначальное решение:
Реализовать задачу с помощью таблицы и подключенного к ней табличного справочника (http://politerm.com.ru/video-tutorials/ZbBookAsQuery.htm)
Проблема:
Значение поля по которому идет связка таблицы и справочника невозможно изменит пользователю. Первая идея была в написании макроса, переключающего "запрос" по умолчанию. Всего запросов - 2 (С подключенным справочником и без него). Возникло затруднение в том, что при изменении основного запроса, информация и поля объекта не изменяются.
Код:
Sub button()
Set Path_ = Application.ActiveDocument
Set Baz = Path_.NativeDoc.Layers.Active.Bases
BaseName = Baz.Item(0).Name
Set Db = CreateObject("Zb.Database")
Db.Open BaseName
Db.Queries.Item(1).default = True (По умолчанию основной запрос - 0)
msgbox Db.Queries.Item(1).default (Выдает True)
msgbox Db.Queries.Item(0).default (Выдает False)
End Sub
Буду благодарен, если скажете что делаю не так, возможно ли данное решение в Zulu 7.0 и направите на верный путь.
Нужно:
В слое имеется нарисованный объект (здание), при вводе информации(номер заявки) в поле формы, автоматически подставлять остальные значения в пустующие поля формы из второй таблицы.
Две таблицы хранятся в одном файле Access, добавлены через "соединение".
В первой таблице находятся:
1)Sys (ключ для обьектов).
2)Номер заявки.
Во второй:
1)Номер заявки.
2)Улица.
и т.д.
Первоначальное решение:
Реализовать задачу с помощью таблицы и подключенного к ней табличного справочника (http://politerm.com.ru/video-tutorials/ZbBookAsQuery.htm)
Проблема:
Значение поля по которому идет связка таблицы и справочника невозможно изменит пользователю. Первая идея была в написании макроса, переключающего "запрос" по умолчанию. Всего запросов - 2 (С подключенным справочником и без него). Возникло затруднение в том, что при изменении основного запроса, информация и поля объекта не изменяются.
Код:
Sub button()
Set Path_ = Application.ActiveDocument
Set Baz = Path_.NativeDoc.Layers.Active.Bases
BaseName = Baz.Item(0).Name
Set Db = CreateObject("Zb.Database")
Db.Open BaseName
Db.Queries.Item(1).default = True (По умолчанию основной запрос - 0)
msgbox Db.Queries.Item(1).default (Выдает True)
msgbox Db.Queries.Item(0).default (Выдает False)
End Sub
Буду благодарен, если скажете что делаю не так, возможно ли данное решение в Zulu 7.0 и направите на верный путь.