izmenjeno 2 puta, poslednji put zeljovan 20.08.2011. u 18:47
Izmene poruke
- zeljovan20.08.2011. u 18:47zapis iz teksta poruke
- zeljovan20.08.2011. u 18:45zapis iz teksta poruke
Znam da pozovem web stranicu iz Forme preko dugmeta/View/Propertis/Hyperlink Address
Medjutim gledao sam na jednom primeru gde se poziva web stranica ali da se ta ista prikaze na formi. Pokusao sam da uradim primer za mene ali bezuspesno,
stalno mi pokazuje gresku he AS IHTMLElement
Code:
Medjutim gledao sam na jednom primeru gde se poziva web stranica ali da se ta ista prikaze na formi. Pokusao sam da uradim primer za mene ali bezuspesno,
stalno mi pokazuje gresku he AS IHTMLElement
Code:
Code:
Private Sub Command23_Click()
Const navAdrress = "http://www.nbs.rs/"
If IsConnectedToInternet = True Then
Else
Beep
MsgBox "Internet veza je u prekidu", vbCritical, "Upozorenje!"
DoCmd.Close acForm, Me.Form.Name
DoCmd.Quit
Exit Sub
End If
Dim he As IHTMLElement
Dim ff As Boolean, nc As Integer
Dim Adresa As String
Dim NFilm As String
NFilm = "find?s=all&q=" & Trim(Me.Naziv_Filma)
Adresa = navAdrress & NFilm
procAuto = WsAuto
wbActive = True
nWb = 0
Me.WebBrowser0.Navigate Adresa
Me.TimerInterval = 2000
End Sub
Private Sub Command23_Click()
Const navAdrress = "http://www.nbs.rs/"
If IsConnectedToInternet = True Then
Else
Beep
MsgBox "Internet veza je u prekidu", vbCritical, "Upozorenje!"
DoCmd.Close acForm, Me.Form.Name
DoCmd.Quit
Exit Sub
End If
Dim he As IHTMLElement
Dim ff As Boolean, nc As Integer
Dim Adresa As String
Dim NFilm As String
NFilm = "find?s=all&q=" & Trim(Me.Naziv_Filma)
Adresa = navAdrress & NFilm
procAuto = WsAuto
wbActive = True
nWb = 0
Me.WebBrowser0.Navigate Adresa
Me.TimerInterval = 2000
End Sub
Potpis
pozz
zeljovan
zeljovan
