Put data from a table

[FogLine]

I have a table with Addresses " tblAddress " it may only have 2 to 6 or so addresses.


I want to click a button on my form and pull all of them from that table and concatenate them all in a Long Text field name " txtAllAddress " with " / " in between them.
Like this:
" & Address1 & "/ " & Address2 & "/ " & Address3 & " "


Thanks for any help.

[ranman256]

does the table have side-by-side fields: Address1 , Address2 , Address3?

if so, make a query and create a new field:

Addr: Address1 & "/ " & Address2 & "/ " & Address3

[orange]

FogLine,

Tell us more about your database. I'm sure you have more than 1 table, and that you use this database to support some "business processes". A little more info would help readers.

[FogLine]

No the Address table would be a list of addresses
it may be 2 to 10 or so addresses

[FogLine]

What i am trying to do is .
I have a truck routing program and the user will enter all of the Pickup and Drop address.
I need to concatenate them like Address1 & "/ " & Address2 & "/ " & Address3
I will use this to do a route with Google Maps.
It works like this:
https://www.google.com/maps/dir/" & Address1 & "/ " & Address2 & "/ " & Address3 & "

[June7]

Each address is in a separate record? Review http://allenbrowne.com/func-concat.html

[isladogs]

If you are referring to separate fields in the same address I would use commas between each part of the address.
It will still work in google maps and can then be used as an address line
It will also work using + sign which google converts it to anyway

[FogLine]

I got it working....

Me.txtAllAddress = SimpleCSV("SELECT FullAddress FROM qryRouteFullAddress", " / ")



Public Function SimpleCSV(strSQL As String, Optional strDelim As String = ",") As String
'Returns a comma delimited string of all the records in the SELECT SQL statement


Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strCSV As String


Set db = CurrentDb()
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
'Concatenate the first (and should be the only one) field from the SQL statement
With rs
Do While Not .EOF
strCSV = strCSV & strDelim & .Fields(0)
.MoveNext
Loop
.Close
End With
'Remove the leading delimiter and return the result
SimpleCSV = Mid$(strCSV, Len(strDelim) + 1)
Set rs = Nothing
Set db = Nothing
End Function