João serras-pereira
asked on
After moving to webstite page stopped working
I had this question after viewing addressing a specific html page.
Hi
After successfully testing the functionality, I managed to move my map.html page (attached) to my website and it loads with my browser.
However when I invoke from my code, below, it just shows an empty page (for a fw moments it looks lije it is loading) and then stops.
can anyone help?
code:
Private Sub Form_Load()
Dim dbl_latGPS, dbl_lgtGPS As Double
Dim strLetraPushPin, _
strTitulo, _
strSubTitulo, _
strInfoTitulo, _
strInfoDetalhe, _
strLatGPS, _
strLgtGPS As String
' não há erros (para já) e ir buscar a página com o template
' carregar os pontos todos para afixar
Call logMe("Form_Load", "viewNewGPS")
Me.ctlWebBrowser.Object.Si lent = True
Set m_WebBrowser = ctlWebBrowser.Object
m_WebBrowser.Navigate ("http:///10.211.55.3:8000/map.html?t=1233")
'm_WebBrowser.Navigate ("http://www.think.gw/siresh-gb/map.html")
dbl_latGPS = Forms![_commonVariables]![ latGPS]
dbl_lgtGPS = Forms![_commonVariables]![ lgtGPS]
strLatGPS = Format(dbl_latGPS, "###.0000000")
strLgtGPS = Format(dbl_lgtGPS, "###.0000000")
strLetraPushPin = Forms![_commonVariables]![ letraPushP in]
strTitulo = Forms![_commonVariables]![ titulo]
strSubTitulo = Forms![_commonVariables]![ subtitulo]
strInfoTitulo = "teste título"
strInfoDetalhe = "teste detalhe mas com mais palavras"
Debug.Print "lat:" & strLatGPS
Debug.Print "lon:" & strLgtGPS
Debug.Print "letra:" & strLetraPushPin
Debug.Print "tit:" & strTitulo
Debug.Print "subtit:" & strSubTitulo
Debug.Print "InfoTit:" & strInfoTitulo
Debug.Print "Infodetail:" & strInfoDetalhe
'mostrar o pushpin
Debug.Print strLatGPS & " / " & strLgtGPS & "/" & strLetraPushPin & "/" & strTitulo & "/" & strSubTitulo
Debug.Print Now()
Do While m_WebBrowser.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
Debug.Print Now()
InvokeJavaScript "addPushpin(" + strLatGPS + ", " + strLgtGPS + " ,'" + strLetraPushPin + "','" + strTitulo + "' ,'" + strInfoTitulo + "','" + strInfoTitulo + "' ,'" + strInfoDetalhe + "' );"
End Sub
map.html
Hi
After successfully testing the functionality, I managed to move my map.html page (attached) to my website and it loads with my browser.
However when I invoke from my code, below, it just shows an empty page (for a fw moments it looks lije it is loading) and then stops.
can anyone help?
code:
Private Sub Form_Load()
Dim dbl_latGPS, dbl_lgtGPS As Double
Dim strLetraPushPin, _
strTitulo, _
strSubTitulo, _
strInfoTitulo, _
strInfoDetalhe, _
strLatGPS, _
strLgtGPS As String
' não há erros (para já) e ir buscar a página com o template
' carregar os pontos todos para afixar
Call logMe("Form_Load", "viewNewGPS")
Me.ctlWebBrowser.Object.Si
Set m_WebBrowser = ctlWebBrowser.Object
m_WebBrowser.Navigate ("http:///10.211.55.3:8000/map.html?t=1233")
'm_WebBrowser.Navigate ("http://www.think.gw/siresh-gb/map.html")
dbl_latGPS = Forms![_commonVariables]![
dbl_lgtGPS = Forms![_commonVariables]![
strLatGPS = Format(dbl_latGPS, "###.0000000")
strLgtGPS = Format(dbl_lgtGPS, "###.0000000")
strLetraPushPin = Forms![_commonVariables]![
strTitulo = Forms![_commonVariables]![
strSubTitulo = Forms![_commonVariables]![
strInfoTitulo = "teste título"
strInfoDetalhe = "teste detalhe mas com mais palavras"
Debug.Print "lat:" & strLatGPS
Debug.Print "lon:" & strLgtGPS
Debug.Print "letra:" & strLetraPushPin
Debug.Print "tit:" & strTitulo
Debug.Print "subtit:" & strSubTitulo
Debug.Print "InfoTit:" & strInfoTitulo
Debug.Print "Infodetail:" & strInfoDetalhe
'mostrar o pushpin
Debug.Print strLatGPS & " / " & strLgtGPS & "/" & strLetraPushPin & "/" & strTitulo & "/" & strSubTitulo
Debug.Print Now()
Do While m_WebBrowser.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
Debug.Print Now()
InvokeJavaScript "addPushpin(" + strLatGPS + ", " + strLgtGPS + " ,'" + strLetraPushPin + "','" + strTitulo + "' ,'" + strInfoTitulo + "','" + strInfoTitulo + "' ,'" + strInfoDetalhe + "' );"
End Sub
map.html
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
The web page does load Bing maps but there is no visible form.
Have you added any elements to your form?
The error is from Microsoft Access VBA & suggests that your sub or function LogMe does not exist or not accesible.
Have you added any elements to your form?
The error is from Microsoft Access VBA & suggests that your sub or function LogMe does not exist or not accesible.
ASKER
Well.. the function is there and you may see that the error is on "user defined Type" (not function) and is hilighting a the "private declaration...
Try making the function public.
ASKER
nope. I do have another db, brought from EE with full sample and it works there...
I will stall this question for 1 - 2 days and ask a related question just for this, By googling I saw some references to "missing References" but they are not working for mw. This was really working but now it sopped and I am getting nowhere..
I will stall this question for 1 - 2 days and ask a related question just for this, By googling I saw some references to "missing References" but they are not working for mw. This was really working but now it sopped and I am getting nowhere..
ASKER
Hi.
The problem was really elsewhere... I was missing 1 reference that was lost in the outback.
so thanks anyway!
The problem was really elsewhere... I was missing 1 reference that was lost in the outback.
so thanks anyway!
ASKER
it is something else.
in reality, you are right and one of the addresses is private (the old used for testing) and I have sent the code addressing this on and commenting the other one. I have changed back to what it must be and got the same behaviour.
Please check the screenshots I am sending in.
But another situation shows: upon closing the form, I am now getting an error (I was not getting it before)
and the close form event has the following code, but is never actuated:
I tried to compile the code to check out everything, and now I am getting the following error:
this code came from the original EE question to which this one is related.
can you help me?