Merge کردن یک فیلد از Quey

[Milad_ATM]

سلام
چطور میشه یک ستون از یک Quey رو با هم ادغام کرد و با یک کاراکتر از هم جدااشون کرد؟
مثال :
555,450,300,500
اینها از یک ستون با هم مرج شده و با "،" از هم جدا شدن!

[eb_1345]

سلام
چطور میشه یک ستون از یک Quey رو با هم ادغام کرد و با یک کاراکتر از هم جدااشون کرد؟
مثال :
555,450,300,500
اینها از یک ستون با هم مرج شده و با "،" از هم جدا شدن!

سلام
برای اینکار از یک تابع در قسمت ماژول استفاده کردم

نمونه اصلاح شده خودت رو ببین !

[Milad_ATM]

ممنون دوست عزیز کارتون فوق العاده بود
فقط این شرط رو به هر روشی برمیدارم با Error مواجه میشم
Set MyRS = MyDB.OpenRecordset("Select * From Preservation where([Number]>500)", dbOpenSnapshot)
نیازی به این نیست

[eb_1345]

ممنون دوست عزیز کارتون فوق العاده بود
فقط این شرط رو به هر روشی برمیدارم با Error مواجه میشم
Set MyRS = MyDB.OpenRecordset("Select * From Preservation where([Number]>500)", dbOpenSnapshot)
نیازی به این نیست

سلام
خواهش می کنم
در کد فوق نام table1 حذف شده

      Set MyRS = MyDB.OpenRecordset("Select * From Table1 Preservation", dbOpenSnapshot)

[Milad_ATM]

من کد رو به این شکل تغییر دادم:

    Public Function fAppendDogNames(ID As Integer) As String    Dim intNoOfDogs As Integer, strNames As String

    intNoOfDogs = DCount("*", "Preservation", "[ID]=" & ID)

    If intNoOfDogs = 1 Then

      fAppendDogNames = DLookup("[ReportNo]", "Preservation", "[ID]=" & ID)

        Exit Function

    Else

      Dim MyDB As DAO.Database, MyRS As DAO.Recordset

      Set MyDB = CurrentDb()

      Set MyRS = MyDB.OpenRecordset("Select * From Preservation", dbOpenSnapshot)

        MyRS.MoveFirst

        Do While Not MyRS.EOF

          If Len(strNames) = 0 Then

            strNames = MyRS![ReportNo]

          Else

            strNames = strNames & "," & MyRS![ReportNo]

          End If

            MyRS.MoveNext

        Loop

        fAppendDogNames = strNames

    End If

     

    MyRS.Close

    Set MyRS = Nothing

و در Query به این صورت ماژول رو استفاده کردم :

XXX: fAppendDogNames([ReportNo])

ولی در نهایت این خروجی زو از Query می گیرم :
1.JPG

[eb_1345]

من کد رو به این شکل تغییر دادم:

    Public Function fAppendDogNames(ID As Integer) As String    Dim intNoOfDogs As Integer, strNames As String

    intNoOfDogs = DCount("*", "Preservation", "[ID]=" & ID)

    If intNoOfDogs = 1 Then

      fAppendDogNames = DLookup("[ReportNo]", "Preservation", "[ID]=" & ID)

        Exit Function

    Else

      Dim MyDB As DAO.Database, MyRS As DAO.Recordset

      Set MyDB = CurrentDb()

      Set MyRS = MyDB.OpenRecordset("Select * From Preservation", dbOpenSnapshot)

        MyRS.MoveFirst

        Do While Not MyRS.EOF

          If Len(strNames) = 0 Then

            strNames = MyRS![ReportNo]

          Else

            strNames = strNames & "," & MyRS![ReportNo]

          End If

            MyRS.MoveNext

        Loop

        fAppendDogNames = strNames

    End If

     

    MyRS.Close

    Set MyRS = Nothing

و در Query به این صورت ماژول رو استفاده کردم :

XXX: fAppendDogNames([ReportNo])

ولی در نهایت این خروجی زو از Query می گیرم :

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

حالت اول از نوع Integer

Public Function CmdMerge(MrgReportNo As Integer ) As String

حالت دوم از نوع String

Public Function CmdMerge(MrgReportNo As String) As String

حالت سوم : حذف نوع متغیر تابع

Public Function CmdMerge(MrgReportNo)

نمونه اصلاح شده جدید در حالت سوم که نسبت به نوع فیلد درجدول حساسیت نشون نمیده
موفق باشی

[Milad_ATM]

یک موردی که پیش میاد این هست که شماره های تکراری رو هر چند بار که باشن نشون میده و باعث کند شدن و بهم ریختگی میشه
میشه هر شماره رو فقط یک بار نشون بده
و اینکه اگر در Query شرطی بزارم روی شامل این ماژول هم میشه یا خیر؟
مثلاً اگر

Between [Forms]![PreservationReportPopUp]![FromDate] And [Forms]![PreservationReportPopUp]![ToDate]

فیلد تاریخم رو بین دو تاریخ قرار بدم و در همین Query از این ماژول استفاده کنم Report No هایی که Merge میشن در همین بازه قرار دارند؟

[eb_1345]

یک موردی که پیش میاد این هست که شماره های تکراری رو هر چند بار که باشن نشون میده و باعث کند شدن و بهم ریختگی میشه
میشه هر شماره رو فقط یک بار نشون بده

اگر منظورت از شماره تکراری همون ReportNo است نه ID میتوانی در ماژول بعد از Select کلید واژه DISTINCT را اضافه نمائید
بصورت زیر :

  Set MyRS = MyDB.OpenRecordset("Select DISTINCT ReportNo From Preservation", dbOpenSnapshot)

Between [Forms]![PreservationReportPopUp]![FromDate] And [Forms]![PreservationReportPopUp]![ToDate][/CODE]
فیلد تاریخم رو بین دو تاریخ قرار بدم و در همین Query از این ماژول استفاده کنم Report No هایی که Merge میشن در همین بازه قرار دارند؟

تمام شرطهائی که در کوئری پیاده می کنید باید در قسمت ماژول قید شود
مثلاً شرط گذاشته اید که فیلد ID بزرگتر از 2 باشد
بصورت زیز:

CountID = DCount("*", "Preservation", "[ID]>2")

  Dim MyDB As DAO.Database, MyRS As DAO.Recordset

  Set MyDB = CurrentDb()

  Set MyRS = MyDB.OpenRecordset("Select DISTINCT ReportNo From Preservation WHERE(id >2)", dbOpenSnapshot)

[Milad_ATM]

دوستان این شرط رو میتونید راهنمایی کنید چطوری به کد بالا اضافه کنم
من این شرط رو در Query نوشتم و میخوام به این کد اضافه کنم

Between [Forms]![PreservationReportPopUp]![FromDate] And [Forms]![PreservationReportPopUp]![ToDate]