update ค่าอัตโนมัติ
กระทู้เก่าบอร์ด อ.Yeadram

 1,747   6
URL.หัวข้อ / URL update ค่าอัตโนมัติ

สมมติผมทำรายงานสรุปปิดโครงการอยู่ครับ โดยมีรายละเอียดดังนี้
1. ชื่อโครงการ ==> Text
2. ผู้ดูแลโครงการ ==> Text
3. เอกสารแนบ A ==> Yes/No
4. เอกสารแนบ B ==> Yes/No
5. เอกสารแนบ C ==> Yes/No
6. เอกสารแนบ D ==> Yes/No
7. สรุปปิดโครงการ ==> เป็น Yes/No
8. วันที่ปิดโครงการ ==> วันที่ส่งเอกสารแนบครบหมด

เมื่ออยู่ใน table จะเขียนอย่างไรครับ โดยเมื่อ user ติ๊กตรงช่องเอกสารแนบ A ถึง D เป็น Yes ทั้งหมดแล้วให้ program update อัตโนมัติในช่อง สรุปปิดโครงการ เป็น Yes และ ช่องวันที่ปิดโครงการ เป็นวันที่ที่ได้ปิดโครงการครับ
**รบกวนอาจารย์และเพื่อนๆๆ ด้วยน่ะครับ ขอบคุณครับ
โดย: Sakol เมื่อ: 21 พ.ค. 2555 , 18:55

6 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R12863
ฟิลด์3 ถึง 6 ทำเป็น checkbox
เขียนนิพจน์ ใน afterupdate ว่า "= chkProject()"
ฟิลด์ 7 ทำเป็น checkbox เขียนนิพจน์ใน afterupdate ว่า "[Event Procedure]"
ฟิลด์ 8 เป็น textbox    ชื่อ txCloseDate

checkbox ที่ใช้แสดงผลหรือรับค่าฟิดล์3 -7 ให้ตั้งชื่อคอนโทรล ตามลำดับ chk3, chk4, chk5, chk6, chk7


Private sub chk7_Afterupdate()
if chk7.checked then
txCloseDate=now()
else
txCloseDate=""
end if
End sub

Function chkProject()
Dim x, y as integer
for x = 3 to 6
y=y * cint(me("chk" & x).checked)
next
chk7.checked=(y<>0)
chk7_Afterupdate
end Function

ดูเป็นแนวทางครับ เอาไปประยุกต์ใช้เอาเอง ถ้ามี error ใดๆ เกิดขึ้นก็ตามหาสาเหตุและแก้ไขเอาเอง เพราะมันมีสิ่งที่เกี่ยวข้องนิดเดียว คงไล่ตามหาไม่ยาก
โดย: yeadram เมื่อ: 22 พ.ค. 2555 , 08:31
2 @R12865
ขอบคุณครับผม ^__^
พอดีว่าผมเพิ่งมือใหม่หัดขับใน Access น่ะครับ ไม่ทราบว่าจะต้อง Criteria ที่เขียนด้านบนเอาไปเขียนไว้ตรงไหนใน Access ครับ รบกวนแนะนำด้วยน่ะครับ
โดย: Sakol เมื่อ: 22 พ.ค. 2555 , 12:17
3 @R12870
อย่าทำงานใน Table ครับ
เอา ข้อมูลใน table นี้ไปสร้างเป็นฟอร์มครับ
โค้ดนี้จะทำงานบนฟอร์มครับ สร้าง chekbox สร้าง text
โดย: yeadram เมื่อ: 22 พ.ค. 2555 , 18:34
4 @R12879
เรียนอาจารย์ yeadram ครับ ขอรบกวนอีกครั้งครับ

ไม่ทราบว่า การตั้งชื่อคอนโทรลของฟิลด์ 3-7 นั้นให้ไปตั้งใน Menu ไหนครับ
พอผมคลิกขวาแล้วเลิอก Properties พบว่ามี Menu Tab ขึ้นให้เลือก โดยมี Format/Data/Event/Other
แร้วผมต้องไปตั้งชื่อคอนโทรลฟิลด์ตรงไหนครับ
โดย: Sakol เมื่อ: 25 พ.ค. 2555 , 16:04
5 @R12880
เรียนอาจารย์ yeadram ครับ ขอรบกวนอีกครั้งครับ

ถ้าผมลบ Field ที่ 8 ออก โดยให้เหลือเพียงแค่ Check box อย่างเดียว ผมต้องเขียน Code สำหรับ Update ยังไงครับ
โดย: Sakol เมื่อ: 25 พ.ค. 2555 , 20:44
6 @R12882
ขออภัยครับ ไม่ได้เข้าอ่านบอร์ดตั้งแต่วันศุกร์

คำถามแรกนะครับ จะตั้งชื่อคอนโทรล เข้าไปใน tab Other ครับ บรรทัดแรก

คำถามที่สองนะครับ ถ้าจะเลิกใช้ฟิลด์8 ในฟอร์มก็ให้ลบ textbox txClosedate ออก
ถ้าเปิดดูโค้ดแล้ว Private sub chk7_Afterupdate() มันยังไม่หายก็ให้ลบมันเองครับ เอาออกทั้ง Procedure เลยครับ
คือเริ่มจากบรรทัด Private sub chk7_Afterupdate()
ไปจนถึงบรรทัด End Sub ที่ใกล้ที่สุด
โดย: yeadram เมื่อ: 28 พ.ค. 2555 , 10:38
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3000s