กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
429 3
URL.หัวข้อ /
URL
ทำอย่างไรที่จะ Update field ว่าง ๆ ในตาราง ให้เป็นข้อมูล สดใหม่เสมอ
ตาราง HRM
Cashier ID Full Name
100001 เอ๋
100013 โอ๋
ตาราง WorkData
Cashier ID Date of work Type of work Wage
100001 30/08/2002 พนักงานส่งของ 150
100013 02/09/2002 ผู้จัดการร้าน 500
100001 09/09/2002 พนักงานส่งของ 160
ตาราง WorkType
Work Type Type Description Wage
01 ผู้จัดการร้าน 500
02 พนักงานส่งของ 150
******** เพิ่มค่าแรงอีก 10 บาท **********************
ผมใช้ HRM เป็น Main Table และมี subform คือ WorkData (link กันด้วย Cashier ID)
ใน Field Type of Work ของ WorkData ผมตั้งField Name เป็น WorkTypeID แล้วทำ Combo Box แต่ให้ lookup ค่าใน
ตาราง WorkType
คำถาม
1. ผมต้องการให้ field Wage ของ Table WorkData มัน update ทุกครั้งที่เราป้อน record ใหม่ โดยให้มันไปดูที่ Table
WorkType ว่าตอนนี้ ค่าแรง (Wage) เป็นเท่าไหร่ แล้วไปใส่ค่า field Wage ใน Table Workdata
2. สมมุติว่า เราเปลี่ยนค่าจ้างแล้ว ก็ให้มัน update เพราะ record ที่เราเลือก ไม่ใช้ update ทั้งหมด เช่น ตั้งแต่วันที่ 09/09/02
เราเปลี่ยนค่าแรงของพนักงานส่งของ จาก 150 เป็น 160 ก็ให้มันเปลี่ยนเฉพาะ record ใหม่ ตั้งแต่วันที่ 09 หรือเฉพาะ
record ที่เรา click เข้าไปแก้ไขโดยอ้างอิงจาก filed Wage ใน Table WorkType
Cashier ID Full Name
100001 เอ๋
100013 โอ๋
ตาราง WorkData
Cashier ID Date of work Type of work Wage
100001 30/08/2002 พนักงานส่งของ 150
100013 02/09/2002 ผู้จัดการร้าน 500
100001 09/09/2002 พนักงานส่งของ 160
ตาราง WorkType
Work Type Type Description Wage
01 ผู้จัดการร้าน 500
02 พนักงานส่งของ 150
******** เพิ่มค่าแรงอีก 10 บาท **********************
ผมใช้ HRM เป็น Main Table และมี subform คือ WorkData (link กันด้วย Cashier ID)
ใน Field Type of Work ของ WorkData ผมตั้งField Name เป็น WorkTypeID แล้วทำ Combo Box แต่ให้ lookup ค่าใน
ตาราง WorkType
คำถาม
1. ผมต้องการให้ field Wage ของ Table WorkData มัน update ทุกครั้งที่เราป้อน record ใหม่ โดยให้มันไปดูที่ Table
WorkType ว่าตอนนี้ ค่าแรง (Wage) เป็นเท่าไหร่ แล้วไปใส่ค่า field Wage ใน Table Workdata
2. สมมุติว่า เราเปลี่ยนค่าจ้างแล้ว ก็ให้มัน update เพราะ record ที่เราเลือก ไม่ใช้ update ทั้งหมด เช่น ตั้งแต่วันที่ 09/09/02
เราเปลี่ยนค่าแรงของพนักงานส่งของ จาก 150 เป็น 160 ก็ให้มันเปลี่ยนเฉพาะ record ใหม่ ตั้งแต่วันที่ 09 หรือเฉพาะ
record ที่เรา click เข้าไปแก้ไขโดยอ้างอิงจาก filed Wage ใน Table WorkType
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R00914
ใช้ DLookup เข้าช่วยครับ ใช้กับ On Update ของช่อง Type Of Work ครับ
Private Sub TypeOfWork_AfterUpdate()
Me.Wage = DLookUp("Wage", "WorkType", "WorkTypeID = " & Me.TypeOfWork & "")
End Sub
2 @R00919
เรียน สุภาพ
ขอขอบพระคุณที่แนะทางให้ครับ ผมทำตามที่ อ. แนะนำมา มันยังไม่ได้ 100% ครับ ต้องปรับเปลี่ยน
ตรง " ' ตอนช่วงท้ายเป็น "WorkTypeID = '" & Me![WorkTypeID] & "'" มันถึงจะไม่ error
ครับ รูปแบบเต็ม ๆ ที่มันสามารถใช้ได้ก็คือ
Me!TxtWage = DLookup("Wage", "WorkType", "WorkTypeID = '" & Me!
[WorkTypeID] & "'")
*** แต่คราวนี้มีปัญหาต่อเนื่องอยากจะเรียนถาม อ. เพิ่มครับ คราวนี้ มาถึงช่วงตอนค้นหาข้อมูลแล้วครับ
ขอถามเพิ่มดังนี้ครับ คือว่า ผมเอา TxtBox ที่เป็น Unbound ไป แปะไว้ที่ MainForm เพื่อที่จะให้ Subform มันเลือกแสดงผล แบบ กำหนดวันเริ่มต้น และวันสิ้นสุด แล้วให้ SubForm (ตาราง WorkData) แสดงเฉพาะข้อมูลในวันที่กหนด เช่น แสดงเฉพาะข้อมูลที่เป็น 01/09/02 - 30/09/02 ไม่ทราบว่าผมต้องเขียนโค้ดอย่างไรครับ ถึงจะมีการส่งผ่านค่าระหว่าง Main Form และ Sub Form ได้ รวมทั้งเราจะ query ข้อมูลให้เป็นไปตามเงื่อนไขอย่างไร
เช่น อาจจะทำได้ 2 แบบ คือ 1. ค้นหาแบบ เป็น วัน-เดือน-ปี
2. ค้นหาแบบเดือน อย่างเดียว เช่น August
ผมอ้างอิงค่าระหว่าง Main Form กับ Subform ไม่เป็นครับ รบกวน อ. ช่วยชี้แนะด้วยครับ
3 @R00920
ลองดูตัวอย่างที่ http://www.thai-access.com/suphap.php?topic_id=159 ครับ แล้วปรับใช้ดู
Time: 0.1106s