Link to home
Start Free TrialLog in
Avatar of João serras-pereira
João serras-pereiraFlag for Portugal

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.Silent = 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]![letraPushPin]
    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
ASKER CERTIFIED SOLUTION
Avatar of Randy Downs
Randy Downs
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of João serras-pereira

ASKER

nope...

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.

User generated image
But another situation shows: upon closing the form, I am now getting an error (I was not getting it before)


User generated image

and the close form event has the following code, but is never actuated:

User generated image
I tried to compile the code to check out everything, and now I am getting the following error:

User generated image
this code came from the original EE question to which this one is related.

can you help me?
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.
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.
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..
Hi.

The problem was really elsewhere...  I was missing 1 reference that was lost in the outback.

so thanks anyway!