مبتدی: نحوه الصاق فیلد ها به یکدیگر [بایگانی]

محمد رضا بهبودی

سه شنبه 15 اسفند 1402, 06:40 صبح

با سلام و احترام خدمت اساتید محترم
در نمونه پیوست یک جدول دارم که در آن یک فیلد کد و یک فیلد نام وجود دارد . فیلد کد تکراری است که در فیلد نام ، نام های مختلفی درج شده . می خواهم با استفاده الز یک کوئری بتوانم تمام نام های مربوط به یک کد را به یکدیگر الصاق کنم و بین آنها یک خط فاصله بگذارم .
در عکسهای ارسالی منظورم را بیان کردم
لطفا درصورت امکان راهنمایی بفرمایید . ممنون

mazoolagh

سه شنبه 15 اسفند 1402, 13:05 عصر

سلام و روز خوش

تاپیک قدیمی خودتون رو ببینین!
البته چون عنوان نامناسبی براش انتخاب کردین شاید در جستجو سخت پیدا بشه!

سوال: درخواست راهنمائی تکست باکس (barnamenevis.org) (https://barnamenevis.org/showthread.php?555239)

محمد رضا بهبودی

سه شنبه 15 اسفند 1402, 15:35 عصر

با سلام و احترام
ممنون از پاسخگویی جنابعالی
فکر کنم منظورم را بد بیان کردم
منظور من این است که در کوئری بر اساس یک فیلد خاص ، فیلد های بروی آن با یکدیگر زنجیر شوند . در عکسهای ارسالی مشخص است

eb_1345

سه شنبه 15 اسفند 1402, 22:18 عصر

با سلام و احترام خدمت اساتید محترم
در نمونه پیوست یک جدول دارم که در آن یک فیلد کد و یک فیلد نام وجود دارد . فیلد کد تکراری است که در فیلد نام ، نام های مختلفی درج شده . می خواهم با استفاده الز یک کوئری بتوانم تمام نام های مربوط به یک کد را به یکدیگر الصاق کنم و بین آنها یک خط فاصله بگذارم .
در عکسهای ارسالی منظورم را بیان کردم
لطفا درصورت امکان راهنمایی بفرمایید . ممنون
سلام
با استفاده از فانکشن زیر خواسته شما انجام شد:

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

نتیجه رو در کوئری ایجاد شده بررسی کن!
یا علی

محمد رضا بهبودی

چهارشنبه 16 اسفند 1402, 06:26 صبح

با سلام و احترام
احسنت استاد
ممنون از لطف جنابعالی