กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
309 1
URL.หัวข้อ /
URL
ลบค่าแล้วนำค่าไปเก็บไว้ใน Table
เรียนถาม อ. สุภาพอีกครั้งครับคือตอนนี้ผมสร้าง form เสร็จแล้วครับโดยที่ Form นี้นำมาจาก Table ที่ชื่อว่า List มี field ดังนี้
Projectname.......TotaltoDate........Progress.........Total
A...............................01-Jan-02................10.....................10
A...............................02-Feb-02................15......................5
A...............................03-Mar-02.................35.....................20
ปัญหาคือตรงช่อง Progress ที่ผมพิมพ์ค่าลงไปใน Form นี้นั้นผมต้องการที่เมื่อผมพิมพ์ค่าลงไปแล้วให้มันนำค่า Progress ของเดือนที่พิมพ์ลงไปนั้นไปลบออกจากเดือนก่อนแล้วนำไปเก็บไว้ใน Field Total จะได้หรือเปล่าครับ
ขอบคุณครับ
Projectname.......TotaltoDate........Progress.........Total
A...............................01-Jan-02................10.....................10
A...............................02-Feb-02................15......................5
A...............................03-Mar-02.................35.....................20
ปัญหาคือตรงช่อง Progress ที่ผมพิมพ์ค่าลงไปใน Form นี้นั้นผมต้องการที่เมื่อผมพิมพ์ค่าลงไปแล้วให้มันนำค่า Progress ของเดือนที่พิมพ์ลงไปนั้นไปลบออกจากเดือนก่อนแล้วนำไปเก็บไว้ใน Field Total จะได้หรือเปล่าครับ
ขอบคุณครับ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R00268
ใช้หลักการเดียวกับคำถามที่แล้ว คือใช้ DLookup() และ DateAdd()
ให้เปิดดูที่ฟอร์มชื่อ frmList แล้วดูโค้ดที่อยู่ข้างหลัง text box ชื่อ Progress จะเป็นดังนี้ครับ
Private Sub Progress_AfterUpdate()
Dim dte As Date, intM As Integer, intYr As Integer
dte = DateAdd("m", -1, Me.TotalToDate)
intM = Format(dte, "M")
intYr = Format(dte, "YYYY")
Me.Total = Me.Progress - Nz(DLookup("[Progress]", "[List]", "[ProjectName] = '" & Me.ProjectName & "' And (Format([TotalToDate],'m')=" & intM & " And Format([TotalToDate],'yyyy')=" & intYr & ")"), 0)
End Sub
ตัวอย่างจริงอยู่ที่ http://agserver.kku.ac.th/basiceng/previous2.zip ครับ
Time: 0.1312s
