Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

u polju se nalazi link web adrese

[es] :: Access :: u polju se nalazi link web adrese

[ Pregleda: 1008 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

brko

Član broj: 11404
Poruke: 32
*.cust.tele2.hr.



Profil

icon u polju se nalazi link web adrese21.05.2019. u 17:03 - pre 59 meseci
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
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: u polju se nalazi link web adrese21.05.2019. u 17:38 - pre 59 meseci
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

 
Odgovor na temu

[es] :: Access :: u polju se nalazi link web adrese

[ Pregleda: 1008 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.