Here is another one i am working with, using postcodes and a list based on a query, i am retrieving postcodes and placing them on google maps, works great, is there a method of retrieving the postcodes through a record set ?
Code:
Dim mPC, mPC2, mPC3, mPC4, mPC5, mPC6, mPC7, mPC8, mPC9, mPC10, stAppName, MyURL As String
Dim mQty, mPCQTy As Long
Dim mPC11, mPC12, mPC13, mPC14, mPC15, mPC16, mPC17, mPC18, mPC19, mPC20 As String
Dim mStr, mFin As String
If Me.cboFolderActions = "Show Planning On Map" Then
Me.lstPCs.Requery
mPCQTy = DCount("Postcode", "qryPCCount")
mQty = mPCQTy
Select Case mQty
Case 1
mPC = Me.lstPCs.Column(1, 1)
MyURL = "https://www.google.co.uk/maps/place/" & mPC
OpenFile = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE " & MyURL, vbMaximizedFocus)
Case 2
mPC = Me.lstPCs.Column(1, 1)
mPC2 = Me.lstPCs.Column(1, 2)
MyURL = "https://www.google.co.uk/maps/place/" mPC & "/" & mPC2
OpenFile = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE " & MyURL, vbMaximizedFocus)
Case 3
mPC = Me.lstPCs.Column(1, 1)
mPC2 = Me.lstPCs.Column(1, 2)
mPC3 = Me.lstPCs.Column(1, 3)
MyURL = "https://www.google.co.uk/maps/place/" mPC & "/" & mPC2 & "/" & mPC3
OpenFile = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE " & MyURL, vbMaximizedFocus)