Access'te bir Makro kullanarak Visio Çizimini Açma 2010

Question

Veritabanımda, bir kullanıcı kılavuzunu tıklatarak açmak istediğim bir düğme var. Getirmek için koyduğum kullanıcı kılavuzu vizyondur, ancak makro oluşturucuyu kullanarak açmak için bir yol bulamıyorum. VBA kullanarak yapmam gereken bir şey mi? Eğer öyleyse kodun nasıl görüneceğine dair herhangi bir öneriniz var mı?

Answer 1

Sanırım, aşağıdaki gibi bir şey işe yarayabilir, ben bunu visioya uydurmak için manipüle ettim, umarım işe yarar. Sen VB editörü gitmek gerekebilir

Dim FName As String 
Dim VisioApp As Object 

On Error Resume Next 
Set VisioApp = GetObject(, "Visio.Application") 
If VisioApp Is Nothing Then 
    Set VisioApp = CreateObject("Visio.Application") 
    If VisioApp Is Nothing Then 
     MsgBox "Can't connect to Visio" 
     Exit Sub 
    End If 
End If 
On Error GoTo 0 
FName = "C:\Path\FileName.vsd" 

VisioApp.documents.Open FName ' 
VisioApp.Visible = True 

, kontrol olarak Tools>References ve sonra Microsoft Visio kitaplığı işaretlemek tıklayın.