การกำหนดใน report ให้มีการทำตัวหนังสือเอียง
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 248   10
URL.หัวข้อ / URL
การกำหนดใน report ให้มีการทำตัวหนังสือเอียง

การกำหนดใน report ให้มีการทำตัวหนังสือเอียงเมื่อ filed ได้มีการเปลี่ยนแปลงภายในหนึ่งหนึ่งอาทิย์ของของ ณ วันที่ปัจจุบัน ไม่ทราบว่าพอมีทางเป็นไปได้หรือเปล่าค่ะอาจารย์ อย่างเช่นคำถามข้อที่ 550 กำหนดใน form เมื่อมีการสั่งการไปใน expression แต่ถ้าเราต้องการทำอย่างเดียวกันแต่ทำใน report ไม่ทราบว่าพอจะมีทางไหม

ความต้องการของเจ้านายคือว่าเราจะทำ monthly ส่งเจ้าของ project ทุกเดือน และในขณะเดียวกันต้องการบอกใน report ด้วยว่า record ใดมีการเปลี่ยนแปลงอะไรไปบ้างนะค่ะ คือว่าเมื่อก่อนเค้าใช้ excel ทำงานกัน แต่พอมากๆ เลื่อยๆ เค้าเลยโอนมาให้ทาง Access เป็ฝ่ายจัดการแทน excel ซึ่งได้โอนถ่ายข้อมูลมาเรียบร้อยแล้ว มาติดที่ report การทำ progress บางอย่างนะค่ะ

รบกวนอาจารย์ช่วยแนะนำด้วยนะค่ะ ขอบคุณมากค่ะ

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

1 @R02209
ก็น่าจะได้ครับ

ขึ้นอยู่กับว่า จะใช้ฟีลด์ไหน หรือ ใช้อะไรเป็นตัวกำหนดความแตกต่างว่า มี หรือ ไม่มี การเปลี่ยนแปลงภายในหนึ่งหนึ่งอาทิย์ของของ ณ วันที่ปัจจุบัน

2 @R02224
มีวันที่เป็นตัวกำหนดได้หรือเปล่าค่ะ อย่างเช่น field1 เป็น date ให้กำหนดว่าถ้ามีการเปลี่ยนแปลงภายใน 7 วันที่ผ่านมาของวันที่ปัจจุบัน ให้เป็นตัวเอียง

อ้อ แต่ถ้าเราทำ case แบบที่ว่าก็จะต้องหาวันเปลี่ยนแปลงของ record นั้นก่อนใช่ใหม่ค่ะอาจารย์
ไม่ทราบค่ะอาจารย์ช่วยชี้แนะด้วยค่ะ ว่าควรจะทกอย่างไรดี
3 @R02230
ลองดูกระทู้ http://www.thai-access.com/suphap.php?topic_id=694 ประกอบครับ

แล้วค่อยเอาเงื่อนไขของวันที่ที่มีการเปลี่ยนแปลงมาเป็นตัวช่วยแสดงผลครับ

4 @R02235
แล้วถ้าจะให้แสดงผลใน Report ละค่ะอาจารย์ใช้กำหนดได้อย่างไรบ้าง
5 @R02237
ถ้าใช้ Access 2000 ขึ้นไป ให้ใช้ Conditional Formatting

ให้ค้นหาด้วยคำว่า conditional ดูครับ
6 @R02240
อยากรบกวนอาจารย์ช่วยแนะนำการเขียนด้วยค่ะ ว่าถ้า date1 มีวันที่น้อยกว่าวันที่ปัจจุบัน อยู่7 วันให้มีตัวหนังสือ สีแดงหรืออะไรอย่างอื่นๆค่ะ
7 @R02242
ลองใส่โค้ดต่อไปนี้ในเหตุการณ์ OnFormat ของ Report Detail Section ดูนะครับ

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If CDbl(Me.Date1) <= CDbl(DateAdd("d", -7, Date)) Then
' ตัวหนังสือสีแดง
Me.Date1.ForeColor = vbRed
Else
Me.Date1.ForeColor = vbBlack
End If
End Sub

8 @R02245
ขอรบกวนอีกครั้งนะค่ะ ถ้าเราจะใช้ใน Conditional Formatting ได้หรือเปล่าค่ะ โดยใช้ Expression is : CDbl(Me.Date1) <= CDbl(DateAdd("d", -7, Date)) ไม่ทราบว่าได้หรือเปล่าค่ะ
9 @R02247
ได้เลยครับ แต่ปรับเปลี่ยนนิดหน่อย เพราะจะไม่สามารถใช้ Me ได้และต้องใส่เครื่องหมาย () ไว้ข้างหลัง Date() ด้วยครับ

Expression is : CDbl([MyDate])<=CDbl(DateAdd("d",-7,Date()))
10 @R02249
ขอบคุณมากค่ะอาจารย์สุภาพ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0448s