Prikazi cijelu temu 28.04.2012 12:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Access i GoogleMaps
Evo uporedio sam po sadrzaju tvoju i moju proceduru i nema nigdje razlike u kodu sem sto si dodao adresu i treba izbrisati.
Kao sto sam naveo prije kod mene pronalazi sva mjesta.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Ucitaj()
  2. On Error Resume Next
  3. Dim Db As Database
  4. Dim Rs As Recordset
  5. Dim Mjesto As String, Zemlja As String
  6. Dim X, Opis As String, Y
  7.  
  8. Set hd = Me.WebBrowser0.Document
  9. Set Db = CurrentDb
  10. Set Rs = Forms![frmGdjeJeProdan].RecordsetClone
  11. Rs.MoveLast
  12. Rs.MoveFirst
  13. Do While Not Rs.EOF
  14. Mjesto = Format$(Rs!Mjesto)
  15. Zemlja = Format$(Rs!Zemlja)
  16.     If Mjesto <> "" Then
  17.     Opis = "Firma:" & Format$(Rs!Firma) _
  18.     & "<br> Adresa:" & Format$(Rs!Adresa) _
  19.     & "<br>Mjesto:" & Format$(Rs!Mjesto) _
  20.     & "<br>Proizvod:" & Format$(Rs!Proizvod) _
  21.     & "<br>Kolicina:" & Format$(Rs!SumOfIzlaz) & " kom."
  22.     hd.all("opis").Value = Opis
  23.     hd.all("address").Value = Mjesto & "," & Zemlja
  24.     hd.all("findAdrress").Click
  25.     End If
  26. start:
  27.     X = hd.all("PlaceName").Value
  28.     If X = "True" Then
  29.     Rs.MoveNext
  30.     Else
  31.     DoEvents
  32.     GoTo start
  33.     End If
  34. Loop
  35. Rs.Close
  36. Set Db = Nothing
  37. Set hd = Nothing
  38. Set hd = Nothing
  39. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.