نوشته شده توسط
محمد رضا بهبودی
با سلام و احترام خدمت اساتید محترم
در نمونه پیوست یک جدول دارم که در آن یک فیلد کد و یک فیلد نام وجود دارد . فیلد کد تکراری است که در فیلد نام ، نام های مختلفی درج شده . می خواهم با استفاده الز یک کوئری بتوانم تمام نام های مربوط به یک کد را به یکدیگر الصاق کنم و بین آنها یک خط فاصله بگذارم .
در عکسهای ارسالی منظورم را بیان کردم
لطفا درصورت امکان راهنمایی بفرمایید . ممنون
سلام
با استفاده از فانکشن زیر خواسته شما انجام شد:
Public Function PuttingSimilarNames(intid As Integer) As String
Dim IntCode As Integer, strNames As String
IntCode = DCount("*", "Table1", "[id]=" & intid)
If IntCode = 1 Then
PuttingSimilarNames = DLookup("[namee]", "Table1", "[code]=" & intid)
Exit Function
Else
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Select * From Table1 Where [code]=" & intid, dbOpenSnapshot)
rs.MoveFirst
Do While Not rs.EOF
If Len(strNames) = 0 Then
strNames = rs![namee]
Else
strNames = strNames & "," & rs![namee]
End If
rs.MoveNext
Loop
PuttingSimilarNames = strNames
End If
rs.Close
Set rs = Nothing
End Function
نتیجه رو در کوئری ایجاد شده بررسی کن!
یا علی