VBA в Access и Visio

@lordblack · Регистрация: 07.10.2010

Author24 — интернет-сервис помощи студентам

У меня в Visio создана форма, которая автоматически открывается при запуске документа Visio.
Для этого я использовал следующий код:

Visual Basic

1
2
3

Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
UserForm1.Show
End Sub

А мне нужно чтоб при открытие документа в visio через Ассеss, по следующему коду в Access:

Visual Basic

1
2
3

Set appVisio = CreateObject("visio.application")
 Set docsObj = appVisio.Documents
 If Me.Поле80.Value >= 0 And Me.Поле80.Value <= 100000 Then Set docObj = docsObj.Add("C:\Мои документы\Документ.vsd")

Эта форма, тоже запускалась автоматически, а не через alt+F11

@~~Busine2009~~ · 18.10.2010, 10:26

lordblack,
сначала надо подключить библиотеку объектов Visio: Tools - References... (см. рис.).
Вот код:

Visual Basic

Sub m_1()
Dim oVisio As Visio.Application
Dim oVisioDocument As Visio.Document
Set oVisio = CreateObject("Visio.Application")
Set oVisioDocument = oVisio.Documents.Open("E:\_Рабочий стол\Открыть из Access.vsd")
End Sub

@lordblack · 18.10.2010, 15:10 **[ТС]**

Не получается почему то, то есть сам документ Visio открывается, а созданная в нем форма не запускается автоматически вместе с документом только через alt+F11

@~~Busine2009~~ · 18.10.2010, 15:18

lordblack,
вот это у меня в Visio:

Visual Basic

1
2
3

Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
UserForm1.Show
End Sub

Вот это в Access:

Visual Basic

Sub m_1()
Dim oVisio As Visio.Application
Dim oVisioDocument As Visio.Document
Set oVisio = CreateObject("Visio.Application")
Set oVisioDocument = oVisio.Documents.Open("E:\_Рабочий стол\Открыть из Access.vsd")
End Sub

У меня форма запускается.
Единственное, что система безопасности срабатывает и надо дать разрешение на выполнение макросов.

@lordblack · 18.10.2010, 15:53 **[ТС]**

Я тоже думаю, что должно работать! Буду пробовать еще)

@lordblack 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 5
	18.10.2010, 15:10 [ТС]	3
	Не получается почему то, то есть сам документ Visio открывается, а созданная в нем форма не запускается автоматически вместе с документом только через alt+F11 0

@lordblack 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 5
	18.10.2010, 15:53 [ТС]	5
	Я тоже думаю, что должно работать! Буду пробовать еще) 0