ใน AfterUpdate event procedure ของ List001 ให้เขียนโค้ดว่า

Parent.Amount01 = Me.List001

ขอบคุณมากเลยครับท่านอาจารย์ สันติสุข

เรียนอาจารย์สันติสุขครับ ผมได้ทำตามวิธีของอาจารย์แล้วครับ แต่ว่าในชื่อ Amount01 มันไม่ขึ้นข้อมูลตามที่ได้จาก List001 ครับ โค๊ดทีผมเขียนเป็นอย่างนี้ครับ


Private Sub CmPro_AfterUpdate()
Me.List001.Requery
End Sub

Private Sub List001_AfterUpdate()
Parent.Amount01 = Me.List001
End Sub

โค๊ดด้านบนใช้เรียกข้อมูลจากตาราง StockAmount มาครับ ส่วนด้านล่างคือโค๊ดที่อาจารย์ให้ผมมา ไม่ทราบว่าผมได้ทำขั้นตอนไหนผิดพลาดหรือไม่ครับ

Amount01 จะมีค่าเมื่อมีการเลือกหรือเปลี่ยนแปลง List001 ครับ ถ้าไม่มีการเปลี่ยนแปลง ก็จะไม่ทำให้ Amount01 มีค่าตาม List001 ไม่ทราบว่าตรงตามวัตถุประสงค์ที่ต้องการหรือไม่ ถ้าตรงตามต้องการแล้วแต่เหมือนมันไม่ทำงาน ลองใส่โค้ด msgbox "xxx" ก่อนบรรทัด Parent.Amount01 = Me.List001 ดู ถ้าทุกครั้งที่เลือก List001 แล้วไม่มีกล่องข้อความแสดงคำว่า xxx โผล่ขึ้นมา ก็แปลว่า After Update event นี้ไม่ได้ถูกทำงาน ต้องมาหาอีกทีว่าเกิดเพราะอะไร

เรียนท่านอาจารย์ครับ ผมลืมบอกไปว่าช่อง Amount01 เป็น Number นะครับ ไม่ได้สร้างเป็น Text ส่วนช่อง List001 เป็นกล่องรายการนะครับผม ผมไม่ทราบว่าเพราะเหตุนี้หรือเปล่า รบกวนท่านอาจารย์ด้วยนะครับ

ผมได้ทำตามที่ท่านอาจารย์ได้บอกแล้วครับ ปรากฎว่าไม่ขึ้น xxx จริงด้วยครับ ผมคงอธิบายไม่ละเอียดครับอาจารย์ คือว่า List001 ผมได้สร้างเป็นกล่องรายการ ตรงช่องแหล่งข้อมูลผมได้สร้างจาก Table StockAmount โดยใน Tb นี้ผมได้มีอยู่ 2 ฟิลด์คือ 1.StProId ใช้เก็บรหัสสินค้า, 2.Amount ใช้เก็บจำนวนสินค้าคงเหลือ
ผมได้ทำการผูกไว้กับ List001 โดยใส่โค๊ด [Forms]![In]![InDetail]![CmPro] ในส่วนของฟิลด์ Amount ครับ เพื่อที่เวลาผมใส่รหัสสินค้าในฟอร์มตรงช่อง CmPro (รหัสสินค้า) แล้ว List001 ก็มีข้อมูลจำนวนสินค้าคงเหลือของรหัสสินค้านั้นๆขึ้นมาในช่อง List001 ครับ ไม่ทราบว่าผมได้ทำวิธีผิดไปหรือไม่ครับ โค๊ดถึงไม่ทำงานครับ

อาจารย์ครับ ผมได้ลองเปลี่ยน List001 เป็น Text แล้วลองคีย์ข้อมูลเข้าไป ปรากฎว่าขึ้น XXX ครับ แต่มันก็ขึ้นมาว่า

Run-Time error '2452'
นิพจน์ที่คุณใส่นั้นมีการอ้างถึงที่ไม่ถูกต้องไปยังคุณสมบัติ 'พาเรนต์'

ไม่ทราบว่าถ้าผมจะดึงข้อมูลมาจากตาราง StockAmount ดดยที่ไม่ต้องคีย์ข้อมูลจะสามารถทำได้ไหมครับ รบยกวนท่านอาจารย์ด้วยครับ

ยิ่งคุณอธิบาย ผมอ่านแล้วยิ่งไม่เข้าใจ ทั้งการออกแบบให้เก็บ Amount ไว้ที่เมนฟอร์ม ทั้งเรื่องต้องเปลี่ยน listbox เป็น textbox ถึงจะเห็นว่ามีข้อความ xxx แสดงขึ้นมา ทั้งการใส่โค๊ด [Forms]![In]![InDetail]![CmPro] ในส่วนของฟิลด์ Amount ... คือทุกจุดมันมีคำถามขึ้นมาทั้งนั้น

เอาเป็นว่า คุณเอาภาพหน้าจอที่คุณทำไว้ใน Design View มาใ้ห้ดูหน่อยครับ แล้วอธิบายว่าคุณออกแบบขั้นตอนการป้อนข้อมูลในคอนโทรลไหนบ้าง คอนโทรลไหนแสดงข้อมูลอย่างเดียวบ้าง คอลโทรลไหนผูกกับฟิลด์อะไรในเทเบิลบ้าง มีโค้ดอะไรแฝงอยู่ในอีเว๊นท์ไหนของคอลโทรลบ้าง

ผมต้องขอโทษอาจารย์ด้วยนะครับที่อธิบายไม่เคลีย ผมได้แนบรูปมาให้อาจารย์แล้วครับ



รูปที่ 1 ครับ

รูปที่ 2 ครับ

รูปที่ 3 ครับ



ต้องขอโทษท่านอาจารย์ด้วยนะครับ ผมอธิบายไม่ค่อยเก่งนะครับ ถ้าอาจารย์มีคำชี้แนะอย่างไรก็แนะนำด้วยนะครับ ขอบคุณมากครับ

โอเคครับ อย่างแรกเลยผมต้องขอโทษด้วย ไม่รู้ว่าทำไมมันจำเป็นว่า Amount จะอยู่บนเมนฟอร์ม อ่านไปอ่านมาก็ไม่เห็นมีที่ไหนระบุว่าเป็นอย่างนั้น โค้ดที่บอกก็เลยผิดไปเลย แต่ถึงไม่ผิด มันก็ทำงานไม่ได้เพราะ List001 เอาไว้ใช้แสดง (คิดว่าตรงจุดนี้ผมคงเข้าใจถูกนะ) มันก็จะไม่เกิด After Update event แต่อย่างใด

ต่อมาเรื่องของการออกแบบที่จะเก็บ Amount (สินค้าคงเหลือ) ไว้ในเทเบิล InDetail ผมว่าถ้าเป็นระบบที่ใช้จริง การออกแบบอย่างนี้ไม่ใช่สิ่งที่ถูกต้องสักเท่าไหร่ เพราะถ้าเราป้อน PO ใบที่1 และรับสินค้า A เข้ามาอีก 10 ชิ้น จากจำนวนคงเหลือเดิม 5 ชิ้น (ที่จะแสดงในช่อง List001 และจะไปเก็บในช่อง Amount01) จบการป้อนใบที่ 1 ก็จะมี A อยู่ 15 ชิ้น ผมคิดว่าคุณคงจะมีกระบวนการเก็บตัวเลข 15 ชิ้นนี้กลับเข้าเทเบิล StockAmount อีกที ต่อมาเกิดเราต้องการแก้ไข PO ใบนี้ที่บรรทัดสินค้า A อีก ผลคือเราจะได้เลข 15 ชิ้นในช่อง List001 แต่ความเป็นจริงมัีนควรเป็น 5 ชิ้นเหมือนกับการป้อนครั้งแรกใช่หรือไม่ ... ดังนั้นจึงต้องตั้งคำถามกลับว่า มีความจำเป็นอะไรหรือไม่ที่จะต้องเก็บจำนวนคงเหลือก่อนการรับสินค้า เพราะมันอาจไม่ใช่ตัวเลขที่เราจะไว้ใจได้ต่อไปว่ามีความถูกต้องตรงตามความเป็นจริง โดยปกติ นอกจากจำนวนก่อนการเพิ่ม-ลดแล้ว จำนวนหลังการเพิ่ม-ลดเราก็จะไม่เก็บเอาไว้ในเทเบิลของเอกสาร (InDetail) อีกเช่นกัน ข้อมูลของจำนวนคงเหลือจากเอกสารนั้น เราสามารถหาได้จาก จำนวนต้นงวด (อาจเป็นเก็บทุกต้นเดือน, 3 เดือน, 6 เดือน หรือ 1 ปีก็แล้วแต่การออกแบบระบบงาน) บวกลบๆๆๆกับจำนวนจากเอกสารต่างๆ ผลก็คือคุณจะได้ข้อมูลเหมือนในใบสต็อคการ์ดนั่นเอง แต่แน่นอนว่ามันไม่ใช่ตรงไปตรงมาเหมือนการดึงจากเทเบิลโดยตรง จะต้องมีการคำนวนหลายขั้นตอน เพราะจะต้องจัดเรียงว่าเอกสารไหนเกิดก่อนเอกสารไหน และบางทีอาจมีความต้องการให้ในแต่ละวันแสดงรายการรับของเข้าก่อนจ่ายของออกด้วย

โอเค ทีนี้สมมุติว่าตอนนี้แก้ปัญหาตามที่ออกแบบไว้ก่อน สิ่งที่ต้องทำก็คือ
- Row Source property ของ cmPro ให้กำหนดเป็น select stProID, Amount from StockAmount
- Column Count เป็น 2
- Bound Column เป็น 1
- Column Widths เป็น ;0 (semicolon แล้วตามด้วยเลขศูนย์)
- AfterUpdate event procedure ใส่โค้ด
   Me.Amount = Me.cmPro.Column(1)

ผลก็คือ cmPro จะแสดงให้เห็นเฉพาะ stProID และซ่อน Amount ไว้ และเมื่อมีการเลือกรหัสสินค้าแล้ว จำนวนคงเหลือที่ซ่อนไว้จะถูกนำไปใส่ให้กับคอนโทรลช่อง Amount

เหลือที่ยังไม่เข้าใจก็คือความต้องการที่บอกว่า "ดึงข้อมูลมาจากตาราง StockAmount โดยที่ไม่ต้องคีย์ข้อมูลจะสามารถทำได้ไหมครับ" เพราะถ้าเป็นรายการใหม่ ยังไงมันก็ต้องผ่านการเลือกรหัสสินค้าอยู่แล้วไม่ใช่หรือ ดังนั้นก็จะเกิด AfterUpdate event อยู่แล้ว   แต่สำหรับข้อมูลเดิมที่ได้มีการบันทึกไปแล้ว คุณต้องไปเขียน update query เพื่อให้ฟิลด์ Amount ในเทเบิล InDetail มีค่าเท่ากับฟิลด์ Amount ในเทเบิล StockAmount ครับ แต่อย่างไรก็ตาม ค่าของ Amount ในเทเบิล StockAmount ณ ตอนนี้ มันเป็นค่า ณ ปัจจุบัน มันไม่ใช่ค่า ณ ตอนที่คุณป้อนเอกสารใบนั้นๆแล้ว คุณจะนำมาใช้หรือ

ลืมบอกไปว่า ตามวิธีข้างบน ไม่จำเป็นต้องมี List001 อีกต่อไปแล้วนะครับ

ขอบคุณท่านอาจารย์มากเลยครับที่กรุณาตอบข้อสงสัยให้ผม ผมจะนำไปปฏิบัติตามครับ แล้วผมอยากอธิบายจากงานที่ผมทำนั้นผมต้องการที่จะเก็บบันทึกข้อมูลการคงเหลือสินค้าในแต่ละวัน โดยที่ผมใช้วิธีแบบบ้านๆเลยนะครับ คือ การดึงข้อมูลจาก StockAmount ณ ปัจจุบันขึ้นมาเพื่อที่จะนำมาไว้ใน List001 นั้นก็เพื่อที่จะให้มันแสดงผลออกมาดังนี้ครับ

สินค้าคงเหลือ +( สินค้าเข้า - สินค้าออก ) = สินค้าคงเหลือล่าสุด
(List001=Amount01) +( In - Out ) = Amount02
โดยที่ในฟอร์มกรอกข้อมูลผมจะทำการซ่อน Text List001และ Amount01 ไว้ครับ

เสร็จแล้วผมก็สร้างตาราง History ไว้เพื่อเก็บข้อมูล ส่วนยอดคงเหลือก็จะบวกในคิวรี่และเก็บใน StockAmount แยกอีกตารางครับ

ผลจะออกมาในตาราง History คือ
สินค้า 001 วันที่ 18/11/2010 รับเข้า 15 ออก 0 คงเหลือ 15
สินค้า 001 วันที่ 20/11/2010 รับเข้า 0 ออก 5 คงเหลือ 10

ส่วนในตาราง StockAmount ก็จะมีบันทึกยอดปัจจุบันเท่านั้นครับคือ
สินค้า 001 ยอดคงเหลือ 10

นี่คืองานที่ผมต้องการน่ะครับ ผมใช้วิธีบ้านๆเลยเพราะไม่ทราบว่าจะเขียนโค๊ดอย่างไร ผมเคยค้นหาถ้าจำไม่ผิดเข้าจะเรียกว่า สต๊อกกาด หรืออย่างไรนี่แหละครับ แต่ผมเป็นมือใหม่อ่านแล้วยัง งงๆ อยู่น่ะครับเลยคิดวิธีนี้ขึ้นมา ต้องขอโทษอาจารย์ด้วยนะครับที่อธิบายไม่เคลีย และขอขอบคุณด้วยครับที่แนะนำครับ เดี๋ยวผมจะทำตามวิธีของอาจารย์ครับ ถ้ามีข้อติดขัดอย่างไรคงต้องขอรบกวนสอบถามท่านอาจารย์สันติสุขด้วยนะครับ ขอบคุณมากครับ