Prikazi cijelu temu 21.04.2012 12:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Access i GoogleMaps
Smanji Zum Bar na 5 ili 4.
Na formi koju zoves WWW Napravi jedan komandni taster i stavi ovaj kod na on Klick.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command_Click()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Mjesto As String, Zemlja As String
  5.  
  6. Set hd = Me.WebBrowser0.Document
  7. Set Db = CurrentDb
  8.  
  9. Set Rs = Db.OpenRecordset("tblPartneri")
  10.  
  11. Do While Not Rs.EOF
  12. Mjesto = Format$(Rs!Mjesto)
  13. Zemlja = Format$(Rs!Zemlja)
  14. If Mjesto <> "" Then
  15. hd.all("PlaceName").Value = Mjesto & "," & Zemlja
  16. hd.all("findAdrress").Click
  17. End If
  18. Rs.MoveNext
  19. Loop
  20. ChangeIcon 1
  21. Rs.Close
  22. Set Db = Nothing
  23. Set hd = Nothing
  24. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.