Snasui Excel Forum

:D ยินดีด้วยครับ :thup:

Max = DMax("[RunNum]", "[Table1]", "[Site]= 'TH1'")
i = 1
Do While i <= Max
    DoCmd.RunSQL "UPDATE Table2 INNER JOIN Table1 ON (Table2.ItemID = Table1.ItemID) AND (Table2.Site = Table1.Site) SET Table2.AND = Table2.AND & Table1.Mat WHERE (((Table1.RunNum)=" & i & "));"
    i = i + 1
Loop

อาจารย์ครับ ผมกลับมาอัพเดทตามแนวทางที่อาจารย์แนะนำครับ
โดยที่ไม่ใช้ Query ปกติ แต่จะเขียน VB ทำ Loop และให้ VB RunSQL ตามด้านล่าง ได้ผลลัพธ์ตามต้องการครับ

[code]Max = DMax("[RunNum]", "[Table1]", "[Site]= 'TH1'")
i = 1
Do While i <= Max
DoCmd.RunSQL "UPDATE Table2 INNER JOIN Table1 ON (Table2.ItemID = Table1.ItemID) AND (Table2.Site = Table1.Site) SET Table2.AND = Table2.AND & Table1.Mat WHERE (((Table1.RunNum)=" & i & "));"
i = i + 1
Loop[/code]

UPDATE Table2 INNER JOIN Table1 ON (Table2.ItemID = Table1.ItemID) AND (Table2.Site = Table1.Site) SET Table2.[AND] = [Table2]![AND] & [Table1]![Mat]
WHERE (((Table1.RunNum)=1));

[quote=snasui post_id=104890 time=1605320655 user_id=2]
:D อาจจะต้องพึ่ง Programming แนวทางคือ ใช้ VBA ดึงข้อมูลใน Table นั้นสัก 1 รายการเพื่อ Loop เก็บ Fields (หัวคอลัมน์) ทั้งหมดไว้ในตัวแปร จากนั้นสร้าง SQL Statement จากตัวแปรนั้นเพื่อเชื่อม Field ที่ต้องการครับ
[/quote]

ขอบคุณอาจารย์ที่แนะนำครับ แต่ว่าผมยังไม่ได้ใช้ทางแบบที่แนะนำ 100% นะครับ
ผมปรับเปลี่ยนข้อมูลใน Table 1 ใหม่ และใช้ Query Create Table 2 ขึ้นมาใหม่ เพื่อรอการอัพเดทข้อมูลมาเพิ่ม
หลังจากนั้นสร้าง Query Update ตามตัวอย่าง Code ด้านล่าง โดยที่ผมจะสร้างไว้รอ 7 ตัวที่ใช้ Update ข้อมูลเข้าไปใน Table 2
ตรง Code Table1.RunNum)=1 ผมก็จะเปลี่ยนตัวเลข 1 ไปเรื่อย ๆ ตาม Query Update 1-7

[code]UPDATE Table2 INNER JOIN Table1 ON (Table2.ItemID = Table1.ItemID) AND (Table2.Site = Table1.Site) SET Table2.[AND] = [Table2]![AND] & [Table1]![Mat]
WHERE (((Table1.RunNum)=1));[/code]

และเขียน VBA สั่งให้ Run Query Create, Query Update

ผลลัพธ์ที่ได้ตาม Query ชื่อ Result ครับ

:D อาจจะต้องพึ่ง Programming แนวทางคือ ใช้ VBA ดึงข้อมูลใน Table นั้นสัก 1 รายการเพื่อ Loop เก็บ Fields (หัวคอลัมน์) ทั้งหมดไว้ในตัวแปร จากนั้นสร้าง SQL Statement จากตัวแปรนั้นเพื่อเชื่อม Field ที่ต้องการครับ

SELECT Table1.Site, Table1.ItemID, Table1.ID, Table1.[1], Table1.[2], Table1.[3], Table1.[4], Table1.[5], [Table1]![1] & [Table1]![2] & [Table1]![3] & [Table1]![4] & [Table1]![5] AS [And]
FROM Table1
GROUP BY Table1.Site, Table1.ItemID, Table1.ID, Table1.[1], Table1.[2], Table1.[3], Table1.[4], Table1.[5], [Table1]![1] & [Table1]![2] & [Table1]![3] & [Table1]![4] & [Table1]![5];

สวัสดีครับ
ต้องการ AND ค่า Value ของแต่ละ Column โดยที่ Column เพิ่มหรือลดลงได้อัตโนมัติ
จากรูปตัวอย่างต้องการ And ค่าเฉพาะ Column ที่เป็นหมายเลขเท่านั้น โดย Code ที่ใส่ไว้เป็นการ AND 1-5 ไว้ ซึ่งอาจจะมากกว่าหรือน้อยกว่า 5 ก็ได้แล้วต้องมาแก้ Code ใหม่ทุกครั้ง ดังนั้นพอจะมีวิธีที่ทำให้เป็นการ AND แบบอัตโนมัติได้หรือไม่ครับ
ขอบคุณครับ

[attachment=1]Capture.JPG[/attachment]

ตัวอย่าง Code
[code]SELECT Table1.Site, Table1.ItemID, Table1.ID, Table1.[1], Table1.[2], Table1.[3], Table1.[4], Table1.[5], [Table1]![1] & [Table1]![2] & [Table1]![3] & [Table1]![4] & [Table1]![5] AS [And]
FROM Table1
GROUP BY Table1.Site, Table1.ItemID, Table1.ID, Table1.[1], Table1.[2], Table1.[3], Table1.[4], Table1.[5], [Table1]![1] & [Table1]![2] & [Table1]![3] & [Table1]![4] & [Table1]![5];
[/code]