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):Function Ucitaj()
On Error Resume Next
Dim Db As Database
Dim Rs As Recordset
Dim Mjesto As String, Zemlja As String
Dim X
Set hd = Me.WebBrowser0.Document
Set Db = CurrentDb
Set Rs = Forms![frmGdjeJeProdan].RecordsetClone
Rs.MoveLast
Rs.MoveFirst
Do While Not Rs.EOF
Mjesto = Format$(Rs!Mjesto)
If Mjesto <> "" Then
' **** ovdje sam stavio ' vbCrLf & " - " & Format$(Rs!Proizvod)' jer bih želio da ovo ide u novi red, ali to ne radi ****
hd.all("opis").Value = Format$(Rs!Firma) & _
", " & Format$(Rs!Adresa) & _
", " & Format$(Rs!Mjesto) & _
vbCrLf & " - " & Format$(Rs!Proizvod) & _
" - " & Format$(Rs!SumOfIzlaz) & " kom."
hd.all("address").Value = Mjesto
hd.all("findAdrress").Click
End If
start:
X = hd.all("PlaceName").Value
If X = "True" Then
Rs.MoveNext
Else
DoEvents
GoTo start
End If
Loop
Rs.Close
Set Db = Nothing
Set hd = Nothing
Set hd = Nothing
End Function
Prilozi:
Google Mapszxz_2.rar
Preuzimanja:230
Velicina datoteke:54.71 KB
Pozdrav