Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
Option Compare Database Option Explicit Function ConcatenateThem(vID As Long) As String Dim rs As DAO.Recordset, sList As String Set rs = CurrentDb.OpenRecordset("select * From Table1 Where [Item]=" & vID) rs.MoveFirst Do Until rs.EOF sList = sList & "," & rs("comments") rs.MoveNext Loop ConcatenateThem = Mid(sList, 2, Len(sList) - 1) End Function
|VBA in Excel to position cursor in the last row & column cell||4||27|
|Excel VLOOKUP. How to return "Not Found" if Item or Qty is missing in Lookup table?||11||38|
|Excel conditional formatting based on 'zero value'||6||18|
|VBA Challenge how to code to loop through all files in folder and revise some part of the codes||15||29|