[ brko @ 21.05.2019. 17:03 ] @
Molim pomoć,
MS Access 2016
U polju mi se nalazi link web adrese. Na koji način da otvori preko IE odnosno ode na tu web stranicu.
Svaki ID ima svoju web.
Zahvaljujem
[ bokinet @ 21.05.2019. 17:38 ] @
Primer odradjen pomocu VBA posto nije preciziran nacin kako se vrsi prozivanje vrednosti da bi se pokrenuo proces otvaranja podrazumevane aplikacije koja otvara web adrese.

Ovaj primer isto moze da posluzi i za otvaranja drugih vrsta file-ova.

Umesto vrednosti 'www.elitesecurity.org' bi isla vrednost iz baze kao i poziv f-je bi se odradio na odredjeni dogadjaj tj. event, na click ili kako vec...

Code:


#If VBA7 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long
#End If

Public Function DoShellOpen(ByVal ThisFile As String) As Long

      DoShellOpen = ShellExecute(0, "Open", ThisFile, "", "C:\", SW_SHOWNORMAL)

End Function

' Primer pozivanja f-je
Sub TestMe()

    DoShellOpen "www.elitesecurity.org"
   
End Sub