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

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

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

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

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

[mohammadsaleh]

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



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

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

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

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

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

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

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

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

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

[mazoolagh]

​
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

[mazoolagh]

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

[mazoolagh]

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

[mazoolagh]

150211

150210

[mazoolagh]

برنامه نمونه

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

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