درخواست راهنمائی تکست باکس

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

لطفا اساتید محترم راهنمائی بفرمایند

me.textbox=[a]& " - " & [b]& " - " & [c] & " - " & [d] & " - " & [e]  

به جای حروف نام تکست باکسهات رو بنویس

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

لطفا راهنمائی بفرمائید

اساتید محترم لطفا راهنمائی بفرمایید

اساتید محترم لطفا راهنمائی بفرمایید .یعنی واقعا این موضوع راهی ندارد

​

Function Concat(TableName As String, FieldName As String) As String

Dim rs As Recordset

Dim A As Variant

Dim i, N As Integer

Dim X() As String

Set rs = CurrentDb.OpenRecordset("SELECT " & FieldName & " FROM " & TableName)

rs.MoveLast

rs.MoveFirst

N = rs.RecordCount

A = rs.GetRows(N)

ReDim X(N - 1)

For i = 0 To N - 1

    X(i) = A(0, i)

Next

Concat = Join(X, "-")

rs.Close

Set rs = Nothing

End Function

Function Concat2(TableName As String, FieldName As String) As String

Dim rs As Recordset

Dim N As Integer

Dim X() As String

Set rs = CurrentDb.OpenRecordset("SELECT " & FieldName & " FROM " & TableName)

rs.MoveLast

rs.MoveFirst

N = rs.RecordCount

ReDim X(N - 1)

Do While Not rs.EOF

    X(rs.AbsolutePosition) = rs(0)

    rs.MoveNext

Loop

Concat2 = Join(X, "-")

rs.Close

Set rs = Nothing

End Function

Function Concat3(TableName As String, FieldName As String) As String

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("SELECT " & FieldName & " FROM " & TableName)

Do While Not rs.EOF

    Concat3 = Concat3 + rs(0) + "-"

    rs.MoveNext

Loop

Concat3 = Left(Concat3, Len(Concat3) - 1)

rs.Close

Set rs = Nothing

End Function

ضمیمه 150211

ضمیمه 150210

برنامه نمونه

با سلام و احترام
ممنون از پاسخگوئی جنابعالی کاملا موضوع حل شد