Sub Form : ต้องการให้ Current Record ใน Field นั้นๆ เปลี่ยน Fonts Color ตามเงื่อนไข
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 395   4
URL.หัวข้อ / URL
Sub Form : ต้องการให้ Current Record ใน Field นั้นๆ เปลี่ยน Fonts Color ตามเงื่อนไข

ใน Sub Form
ผมใส่ Code นี้ลงไปแต่กลับแสดง Fonts Color เป็นสีน้ำเงิน ทุกๆ Record ครับ

Private Sub Form_Load()
Dim Doc1 As String
Doc1 = Left(Me.ST_Document, 2)

If Doc1 = "RQ" Then
Me.ST_Document.ForeColor = 255

Else
Me.ST_Document.ForeColor = 16711680

End If
End Sub

โดย ST_Document = เลขที่เอกสาร เช่น RE00001 ... RExxxxx , RQ00001 ... RQxxxxxx
เงื่อนไขที่ผมต้องการคือ ถ้าขึ้นต้นด้วย RQ* (ต่อท้ายอะไรก็ได้)
ให้ Fonts Color ของ Field นั้นๆ เป็นสีแดง ถ้าไม่ใช่ ให้เป็นสีน้ำเงืน
ผมลองทำใน Menu > Format > Conditional Formatting ก็ไม่ได้ครับ
รบกวน อ.สุภาพ หรือ เพื่อนๆ แนะนำด้วยครับ
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี

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

1 @R04387
>>>ผมลองทำใน Menu > Format > Conditional Formatting ก็ไม่ได้ครับ

หมายถึง มันไม่แสดงสีตามต้องการ หรือไม่มีอะไรเกิดขึ้นเลยครับ

ผมว่า Conditional Formatting น่าจะทำได้ครับ

ลองดูเงื่อนไขที่ส่งให้ Conditional Formatting อีกที่ครับ

หรือค้นกระทู้เก่าๆ ด้วยคำว่า Formatting ประกอบด้วยก็ได้
2 @R04388
อาจารย์สุภาพค่ะ เท่านที่ลองทำดูใน conditional Formatting จะทำได้โดยระบุตัวอักษรทั้งหมดของ field นั้น แต่ถ้าของ 2 ตัวแรก และตัวต่อไปเป็นอะไรก็ได้จะไม่ขึ้นอะไรเลยคือไม่มีการเปบี่ยนแปลงค่ะ
คุณสุชาติ ค่ะถ้าได้จริงๆ ต้องใช้ left เข้าช่วยแล้วละค่ะ
3 @R04389
ครับใช้ Left() เข้าช่วย

โดยเลือกเงื่อนไขแบบ Expression is
แล้วค่า Left([ST_Document],2)="RQ" ลงไป

ลองดูครับ
4 @R04397
ใช้ได้แล้วครับ มีประโยชน์มากๆ เลย คือ
ผมนำมาใช้ในการแก้ไข Stock สินค้า
ทีนี้ User ชอบดูบรรทัดผิด (ตาลาย) ระหว่าง Record In กับ Out
ผมเลยอยากให้เป็นคนละสี จะได้ช่วยได้ระดับหนึ่งครับ
ขอบพระคุณ อ.สุภาพ และ คุณ ฐิติมาภรณ์ มากๆ ครับ
ขอบพระคุณครับ
Suchat
ชลบุรี
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.1344s