ГИС-проект перевели на ArcGIS 10.1, все хорошо, но гиперссылки от объектов проекта к форме базы данных Microsoft Access 2003, раелизованные ранее (в ArcGIS 9.3) через макрос, теперь не работают, т.к. не поддерживаются в новой версии. Теперь необходим скрипт, написанный на одном из поддерживаемых языков.
Буду благодарна, если кто-то может подсказать пример таких скриптов. Причем просто открыть Microsoft Access и нужную форму - не проблема, проблема открыть эту форму на нужной записи, которая соответствует выбранному в проекте объекту, связь через поле, содержащее код объекта в базе данных.
Раньше на гиперлинк цепляли примерно так:
Sub FindPoint(pLink, pLayer)
Dim sPoint As String
Dim pHyperlink As IHyperlink
Set pHyperlink = pLink
Dim pFLayer As IFeatureLayer
Set pFLayer = pLayer
sPoint = pHyperlink.Link
Set acc = GetObject(MiDaBa)
acc.DoCmd.OpenForm "Points", acNormal, "", "", , acNormal
acc.DoCmd.GoToControl "point"
acc.DoCmd.FindRecord sPoint, acEntire, False, , False, acCurrent, True
End Sub
Гиперссылка из ArcGis 10.1 к форме БД Microsoft Access
-
- Новоприбывший
- Сообщения: 3
- Зарегистрирован: 16 окт 2013, 06:45
- Репутация: 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 2 гостя