Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
Public Sub Concat() Dim curDB As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim nCol As String On Error GoTo Concat_Error Set curDB = CurrentDb() strSQL = "SELECT RptName, DistList" & _ " FROM tblReportDist" & _ " ORDER BY RptName" Set rs = curDB.OpenRecordset(strSQL) rs.MoveFirst Do Until rs.EOF i = rs.Fields("DistList") With rs.Field("RptName") If rs.Count > 0 Then For Each i In rs.Field("RptName") MyString = Chr(34) & .ItemData(i) & Chr(34) & "," & MyString Next i MyString = Left(MyString, Len(MyString) - 1) End If rs.MoveNext Loop
|combine many return data from field in a new query INTO one field||5||35|
|Numbers are exporting as text||5||25|
|What .NET website keeps me current?||9||28|
|Sending Attachment via CDO||3||10|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!