Prikazi cijelu temu 24.04.2012 10:16
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Access i GoogleMaps
Evo ja sam malo preradio izvorni kod, kako bih otprilike želio da to bude, ali još uvjek je kod mene jedno te isti tekst na svim lokacijama koje se prikažu.

PreuzmiIzvorni kôd (vbnet):
  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
  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. If Mjesto <> "" Then
  16.  
  17. ' **** ovdje sam stavio  ' vbCrLf & " - " & Format$(Rs!Proizvod)' jer bih želio da ovo ide u novi red, ali to ne radi ****
  18.  
  19.     hd.all("opis").Value = Format$(Rs!Firma) & _
  20.     ", " & Format$(Rs!Adresa) & _
  21.     ", " & Format$(Rs!Mjesto) & _
  22.     vbCrLf & " - " & Format$(Rs!Proizvod) & _
  23.     " - " & Format$(Rs!SumOfIzlaz) & " kom."
  24.    
  25.     hd.all("address").Value = Mjesto
  26.     hd.all("findAdrress").Click
  27.     End If
  28.    
  29. start:
  30.  
  31.     X = hd.all("PlaceName").Value
  32.     If X = "True" Then
  33.     Rs.MoveNext
  34.     Else
  35.     DoEvents
  36.     GoTo start
  37.     End If
  38. Loop
  39. Rs.Close
  40. Set Db = Nothing
  41. Set hd = Nothing
  42. Set hd = Nothing
  43. End Function


Prilozi:
Google Mapszxz_2.rar
Preuzimanja:230
Velicina datoteke:54.71 KB

Pozdrav