Hello
Any help is appreciated. I am using the following code to group the ru****s in an query. In the query I have the following field in the query: ReportID: joinReportIDGL([BDDDataElement]). The issue is that the field is cutting off at 255 characters. Is there a way to modify the code to capture more characters>
thanks in advance for your help.
Public Function joinReportIDGL(LN As String) As String
' Groups ReportID in BDDFeed
Dim rs As Recordset
Dim ret As String
Set rs = CurrentDb.OpenRecordset("Select Distinct [Report ID] from tblReportsToCognos where BDDDataElement = """ & LN & """")
rs.MoveFirst
Do While Not rs.EOF
ret = ret & rs![Report ID] & ","
rs.MoveNext
Loop
If rs.recordCount = 0 Then
rs.Close
joinReportIDGL = ""
Else
rs.Close
ret = Left(ret, Len(ret) - 1)
joinReportIDGL = ret
End If
End Function
Any help is appreciated. I am using the following code to group the ru****s in an query. In the query I have the following field in the query: ReportID: joinReportIDGL([BDDDataElement]). The issue is that the field is cutting off at 255 characters. Is there a way to modify the code to capture more characters>
thanks in advance for your help.
Public Function joinReportIDGL(LN As String) As String
' Groups ReportID in BDDFeed
Dim rs As Recordset
Dim ret As String
Set rs = CurrentDb.OpenRecordset("Select Distinct [Report ID] from tblReportsToCognos where BDDDataElement = """ & LN & """")
rs.MoveFirst
Do While Not rs.EOF
ret = ret & rs![Report ID] & ","
rs.MoveNext
Loop
If rs.recordCount = 0 Then
rs.Close
joinReportIDGL = ""
Else
rs.Close
ret = Left(ret, Len(ret) - 1)
joinReportIDGL = ret
End If
End Function