กระทู้เก่าบอร์ด อ.Yeadram
2,031 8
URL.หัวข้อ /
URL
update ค่าอัตโนมัติ
สมมุติว่า ทำรายงานการส่งสินค้า
โดยมี column 1.Order date เป็น autonumber ,
2. Order date = default คือDate() ซึ่งจะขึ้นวันปัจจุบันมาอัตโนมัติ
3. Shiping เป็น Yes/No
4. Shipment Date = อันนี้เป็นวันที่ส่ง
เมื่ออยู่ใน form จะเขียนยังไง ตรงใหนให้
เมื่อUser คลิ๊กตรง ช่อง Shiping เป็น Yes แล้วให้โปรแกรมเติมข้อมูลตรงช่อง shipment date เป็นวันที่ปัจจุบัน
ขอบคุณครับ
8 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R01626
ทำแล้ว ขึ้น Error ว่า ไม่เจอ macro ชื่อ
if nz(me!Shiping, False) then
me![Shipment Date] = date()
else
me![Shipment Date] = null
end if
ครับ
ทำแล้ว ขึ้น Error ว่า ไม่เจอ macro ชื่อ
if nz(me!Shiping, False) then
me![Shipment Date] = date()
else
me![Shipment Date] = null
end if
ครับ
3 @R01628
ที่ช่อง AfterUpdate ให้คุณเลือกเป็น [Event Procedure] จาก drop down ที่อยู่ข้างหลัง จากนั้นก็คลิกช่อง ... มันจะเปิด Visual Basic Editor ขึ้นมา ให้คุณใส่โค้ดที่ผมเขียนลงใน Event Procedure ดังกล่าว
4 @R01629
ขอบคุณที่ตอบครับ
พอเปิดแล้วเขียนต่อไปเลย จาก Code เดิม หรือว่าต้องลบข้อความที่มีอยู่แล้วก่อนครับ
พอเปิดแล้วเขียนต่อไปเลย จาก Code เดิม หรือว่าต้องลบข้อความที่มีอยู่แล้วก่อนครับ
5 @R01632
มีลักษณะคล้ายๆอย่างนี้
Private Sub Shiping_AfterUpdate()
ใส่โค้ดไว้ในนี้
End Sub
Private Sub Shiping_AfterUpdate()
ใส่โค้ดไว้ในนี้
End Sub
6 @R01638
ทำได้แล้วขอบคุณครับ
7 @R08805
เป็นประโยชน์มากสำหรับมือใหม่หัดขับมากๆครับ หามาตั้งนานว่าทำยังไง ขอบคุณ ทั้งผู้ถามและผู้ตอบครับ
8 @R08806
กด like ค่ะ
Time: 0.3503s
if nz(me!Shiping, False) then
me![Shipment Date] = date()
else
me![Shipment Date] = null
end if