در یک سطر قراردادن محتویات یک فیلد

[barkhordary]

سلام ، می خواهم در هنگام گزاشگیری محتویات یک فیلد را در یک سط و علامت مجزا کننده / نمایش بدهم

[amirzazadeh]

سلام ، می خواهم در هنگام گزاشگیری محتویات یک فیلد را در یک سط و علامت مجزا کننده / نمایش بدهم
سئوالتون زياد مفهوم نيست.ولي اگر درست متوجه شده باشم ميتونين از كد زيردر ديتاسورس فيلد مورد نظر استفاده كنين


=[feildName]&"/"

[barkhordary]

با تشکر ولی جواب نمی ده
فرض کنید یک فیلد شماره تلفن داریم و هر فردی ممکن است چند شماره تلفن داشته باشد ، به هنگام گزارشگیری می خواهم شماره تلفنهای هر فر را در یک سطر نمایش دهد در حالت عادی به تعداد شماره ها سطر ایجاد می کند مثلا اگر کسی دو شماره داشته باشد در 2 سطر زیر هم نمایش می دهد

[amirzazadeh]

ببينيد اين نمونه بدردتون ميخوره.
.........................
موفق باشيد

[barkhordary]

سلام دوست عزیز از پاسختان ممنون ولی مشکل من کنار هم قرار دادن اطلاعات یک فیلد است نه چند تا فیلد نمونه کار را میگذارم ، در گزارش این نمونه می بینید که دو شماره محل کار است که من می خواهم این دو شماره در یک سطر قرار بگیرند

19514

[amirzazadeh]

دوست من به نمونه شما يك ريپورت اضافه كردم .
.............................
موفق باشيد.

[barkhordary]

با تشکر از محبت شما ولی منظور من این بود که شماره های محل کار در یک سطر باشند نه دو سطر

[karmand]

از کواری crassاستفاده کن به این صورت

[amirzazadeh]

با تشکر از محبت شما ولی منظور من این بود که شماره های محل کار در یک سطر باشند نه دو سطر
در تكميل روش پيشنهادي دوستمون جناب karmand گزارش crosstabفايل ضميمه رو ببينيد.

[karmand]

ظاهرا ایشان میخواهند یک نام باشد و کلیه اطلاعات مربوط به ایشان روبرویش!!

[barkhordary]

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

19558

[barkhordary]

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


:عصبانی++:

[barkhordary]

دقیقا همین طور است ، می خواهم برنامه به طور هوشمند عمل کند از هر نوع تلفن هر تعداد شماره تلفن که وجود دارد را در کنار هم قرار دهد

[مهدی قربانی]

سلام
دوست گرامي ببينيد اين نمونه تشابهي با موضوع مورد نظر شما داره ؟ البته يخورده عجله اي روش كار كردم و كدنويسيش زياد شده بد نيست دوستان اگر تونستند ايده بهتري بدن.


Private Sub Command0_Click()
On Error GoTo Err_Command0_Click:
If IsNull(Me.Combo1) Or Me.Combo1 = "" Then
MsgBox "ßÏ ÔÎÕ ÊÚííä äÔÏå ÇÓÊ", vbExclamation + vbMsgBoxRight, "ÊæÌå"
Me.Combo1.SetFocus
Me.Combo1.Dropdown
Else
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Dim RstApp As DAO.Recordset
Dim TbDefNew As TableDef
Dim strSQL
Dim I
Dim StrAdd
Dim StrLen
'ÈÇÒ ßÑÏä ÑßæÑÏÓÊ ÈÇ ÔÑØ ßÏ ÔÎÕ
strSQL = "SELECT Table1.code, Table1.namee, Table1.telno FROM Table1 WHERE (((Table1.code)='" & Me.Combo1 & "'));"
Set Db = CurrentDb
Set Rst = CurrentDb.OpenRecordset(strSQL)
Rst.MoveFirst
Rst.MoveLast
' ÏÑ ÕæÑÊí ßå ÑßæÑÏí ÈѐÑÏæäÏå ÈÔå
If Rst.RecordCount = 0 Then
Exit Sub
Else
'ãæÌæÏ ÈÇÔå ÍÐÝ ãíÔå Table2 ÏÑ ÕæÑÊ ãæÌæÏ ÈæÏä ÌÏæáí ÈÇ äÇã
Db.TableDefs.Delete "table2"
' Table2 ÓÇÎÊ ÌÏæá
Set TbDefNew = Db.CreateTableDef("Table2")
'Table1 ÇÖÇÝå ßÑÏä ÝíáÏåÇ ãØÇÈÞ ÌÏæá
With TbDefNew
.Fields.Append .CreateField("code", dbText)
.Fields.Append .CreateField("namee", dbText)
.Fields.Append .CreateField("telno", dbText)
Db.TableDefs.Append TbDefNew
End With
'Table2 ÇíÌÇÏ ÑßæÑÏÓÊ ÇÒ ÌÏæá
Set RstApp = Db.OpenRecordset("table2")
Rst.MoveFirst
' Table1 ÇÓÊÎÑÇÌ ÇØáÇÚÇÊ ÝíáÏ ÔãÇÑå ÊáÝä ÇÒ
For I = 1 To Rst.RecordCount
StrAdd = StrAdd & "-" & Rst.Fields("telno").Value
Rst.MoveNext
Next I
StrLen = Len(StrAdd)
StrAdd = Mid(StrAdd, 2, StrLen - 1)
'Table1 ËÈÊ ÇØáÇÚÇÊ ÇÓÊÎÑÇÌ ÔÏå æ ÊäÙíã ÔÏå ÏÑ ÌÏæá
RstApp.AddNew
RstApp.Fields("code").Value = Me.Combo1.Column(0)
RstApp.Fields("namee").Value = Me.Combo1.Column(1)
RstApp.Fields("telno").Value = StrAdd
RstApp.Update
'Table2 ÈÇÒ ßÑÏä ÒÇÑÔ ãÊÕá Èå ÌÏæá
DoCmd.OpenReport "table2", acViewPreview
End If
End If
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub


نمونه برنامه :

[shaghaghi]

دقیقا همین طور است ، می خواهم برنامه به طور هوشمند عمل کند از هر نوع تلفن هر تعداد شماره تلفن که وجود دارد را در کنار هم قرار دهد
سلام
این هم گزارش منظور نظر شما