รวมข้อมูลจากหลายฟิวส์เป็นฟิวส์เดียว



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

22 ม.ค. 61 , 12:46:32
อ่าน 678 ครั้ง

UnKnown

คุณ ต้น Original post

รบกวนอาจารย์ครับ ผมอยากได้วิธีการ รวมข้อมูลจากฟิวส์เดียวกัน แต่มีหลายเร็คคอร์ด รวมข้อมูลเป็นฟิวส์ใหม่ ฟิวส์เดียว ตัวอย่าง

รหัสใบสั่งซื้อ                             รายการ
1001                                    อาหารเสริม 1
1001                                    อาหารเสริม 2
1001                                    อาหารเสริม 3

อยากให้รวมฟิวส์ใหม่เป็น      มีรายการ   อาหารเสริม1,อาหารเสริม2,อาหารเสริม3

ขอบคุณครับ
« แก้ไขครั้งสุดท้าย: 04 เม.ย. 61 , 19:56:19 โดย UnKnown »

 

24 ม.ค. 61 , 10:21:12
ตอบกลับ #1

TTT

> รวมข้อมูลจากหลายฟิวส์เป็นฟิวส์เดียว
« ตอบกลับ #1 เมื่อ: 24 ม.ค. 61 , 10:21:12 »
สมมุติตารางคุณชื่อ Table1

1. ใส่ฟังก์ชั่นนี้ลงใน Module
โค๊ด: [Select]
Function ConcatRelated(expression$, domain$, criterial$)
    Dim db As DAO.Database
    Dim rs As Recordset
    Dim SQLCmd As String
    Dim ConCat As String
 
    Set db = CurrentDb()
    SQLCmd = "SELECT " & expression$ & " FROM " & domain$ & " WHERE " & criterial$
    Set rs = db.OpenRecordset(SQLCmd)
 
    If Not rs.EOF Then
        rs.MoveFirst
    End If
 
    Do While Not rs.EOF
        ConCat = ConCat & rs(0) & ", "
        rs.MoveNext
    Loop
   
    If ConCat & "" <> "" Then
        ConcatRelated = Left(ConCat, Len(ConCat) - 2)
    End If
    rs.Close: Set rs = Nothing: Set db = Nothing
End Function

2. สร้างคิวรี่ใหม่ เขียน SQL ดังนี้:
โค๊ด: [Select]
SELECT Table1.[รหัสใบสั่งซื้อ], ConcatRelated("รายการ","Table1","รหัสใบสั่งซื้อ=" & [รหัสใบสั่งซื้อ]) AS รวมรายการ
FROM Table1
GROUP BY Table1.[รหัสใบสั่งซื้อ];

ประมาณนี้ ปรับใช้ดูครับ
ฐานข้อมูลเป็นเรื่องใกล้ตัว ใครๆก็ทำฐานข้อมูลเองได้นะครับhttp://www.youtube.com/c/AccessCreator link
 

27 ก.พ. 61 , 22:13:30
ตอบกลับ #2

marut.navy

  • สมาชิกไท.Access
  • กระทู้: 1

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

> รวมข้อมูลจากหลายฟิวส์เป็นฟิวส์เดียว
« ตอบกลับ #2 เมื่อ: 27 ก.พ. 61 , 22:13:30 »
สาธิตทาง youtube ได้ป่าวครับ

 

02 มี.ค. 61 , 00:00:48
ตอบกลับ #3

TTT

> รวมข้อมูลจากหลายฟิวส์เป็นฟิวส์เดียว
« ตอบกลับ #3 เมื่อ: 02 มี.ค. 61 , 00:00:48 »
 :sweat: 16
ขั้นตอนมีอยู่เท่านี้จริงๆครับ คือสร้างฟังก์ชั่นขึ้นมา แล้วก็นำฟังก์ชั่นไปใช้ในคิวรี่ครับ
คือถ้าตามโจทย์ คุณลองทำตามขั้นที่ 1 สร้างฟังก์ชั่นใน Module ขึ้นมา
ส่วนขั้นที่ 2 ก็ไปที่คิวรี่ สร้างใหม่ แล้วนำ SQL ที่ให้ไปใส่ลองในมุมมอง SQL แล้วเปลี่ยชื่อ Table1 ให้เป็นชื่อตารางของคุณแทนครับ ประมาณนี้
ฐานข้อมูลเป็นเรื่องใกล้ตัว ใครๆก็ทำฐานข้อมูลเองได้นะครับhttp://www.youtube.com/c/AccessCreator link
 


บอร์ดเรียนรู้ Access สำหรับคนไทย