Hyperlink Access Form from Layer Property using Python

Discussion created by imjoydip on Mar 6, 2014
Hello There,
In ArcGIS, I wanted to have a system: when I click on a point, it will follow a hyperlink and will open up a specific Access Form based on the attribute I clicked. I had a VBA code for ArcGIS 9.1 but since I upgraded into ArcGIS 10.1, it seems that I have to switch to Python (VBA license is separate). Does anyone know of any available code? Thanks in advance! Below is the VBA code I was following (Thanks to Kristina Callahan)!

Declare Function ShellExecute Lib "shell32.dll" Alias _
   "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
   As String, ByVal lpFile As String, ByVal lpParameters _
   As String, ByVal lpDirectory As String, ByVal nShowCmd _
   As Long) As Long

Declare Function apiFindWindow Lib "User32" Alias "FindWindowA" _
   (ByVal lpclassname As Any, ByVal lpCaption As Any) As Long

Global Const SW_SHOWNORMAL = 1

Sub Hyperlink(pLink, pLayer)

On Error GoTo eh:

    Dim pHyperlink As IHyperlink
    Set pHyperlink = pLink
    Dim pFLayer As IFeatureLayer
    Set pFLayer = pLayer
    Dim thestring As String
    thestring = pHyperlink.Link

    Dim hwnd
    Dim StartDoc
    hwnd = apiFindWindow("OPUSAPP", "0")

    'opens Microsoft Access database
    StartDoc = ShellExecute(hwnd, "open", "I:\BU\510\550\Joydip\GIS Work\CLDatabase.accdb", "", "I:\", SW_SHOWNORMAL)

    Dim Accapp As Access.Application
    Set Accapp = GetObject("I:\BU\510\550\Joydip\GIS Work\CLDatabase.accdb")

    Accapp.DoCmd.OpenForm "InitialPage", acNormal, , ("[int_id]=" & Chr(34) & thestring & Chr(34))

    Exit Sub
    MsgBox "Something isn't working!"

End Sub

- Joydip