เราสามารถ Highlight ข้อความหลังจากการค้นหาด้วยคำสั
กระทู้เก่าบอร์ด อ.Yeadram

 1,509   7
URL.หัวข้อ / URL
เราสามารถ Highlight ข้อความหลังจากการค้นหาด้วยคำสั

คือ เมื่อเราใช้คำสั่ง DoCmd.FindRecord บนฟอร์มไปแล้ว
โปรแกรมก็จะแสดง Record ที่พบคำนั้นขึ้นมา
แต่ถ้าเราอยากให้ให้โปรแกรม ไฮไลท์คำนั้นด้วย ว่าอยู่ตรงไหนของข้อความ
ผมอยากทราบว่าจะใช้คำสั่งอะไรครับ ขอบคุณครับ

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

1 @R10915
อยากให้ผู้รู้ช่วยยืนยันหน่อยครับ ว่าทำได้หรือไม่ ผมก็อยากรู้เหมือนกัน เปิดตามมาหลายวันแล้ว เห็นไม่มีคนตอบเลยครับ
2 @R10916
น่าจะทำได้ โดยใช้ .SelStart และ .SelLength property ของ textbox ครับ

http://www.thai-access.com/yeadram_view.php?topic_id=1201
3 @R10917
คำถามไม่ชัดเจนครับ จะให้ไฮไลท์คำนั้นด้วย "คำนั้น" คืออะไรครับ
4 @R10918
ตอบ คุณ PichaiTC เท่าที่อ่านดู (ตามความเข้าใจของผมนะครับ) เจ้าของกระทู้คงหมายถึง การให้ไฮไลท์คำที่ต้องการค้นหาให้ด้วยประมาณนี้มั้งครับ

ขอบคุณ คุณสันติสุข ด้วยครับ ผมอ่านกระทู้ตามที่ท่านโพสมาแล้ว เข้าใจแล้วครับ ตกลงน่าจะทำได้ไม่อยากด้วย ขอบคุณครับ
(เพราะผมไม่เคยใช้คำสั่ง ไม่ค่อยเก่งเท่าไรครับ)
5 @R10919
แก้ไขคำผิดครับ
ขอบคุณ คุณสันติสุข ด้วยครับ ผมอ่านกระทู้ตามที่ท่านโพสมาแล้ว เข้าใจแล้วครับ ตกลงน่าจะทำได้ไม่ยากด้วย ขอบคุณครับ
(เพราะผมไม่เคยใช้คำสั่งนี้ ไม่ค่อยเก่งเท่าไรครับ)

ปล. หาปุ่มแก้ไม่เจอครับ
6 @R10920
ที่นี่โพสแล้วโพสเลย ไม่มีแก้ไม่มีลบครับ พิมพ์ผิดเพราะกดคีย์บอร์ดผิด แล้วยังพออ่านออก เดาออก อย่างนี้ไม่เป็นไรครับ มันผิดกันได้ แต่ถ้าผิดเพราะเขียนภาษาไทยไม่ถูกต้องหรือสะกดผิด อย่างนี้ควรพิมพ์ใหม่เพื่อแก้ไขครับ
7 @R10931
รับทราบครับ คุณ สันติสุข

ตอบ เจ้าของคำถาม
หลังจากการลองเขียนแล้วจะได้ ตัวอย่างประมาณนี้ครับ

- ชื่อฟิลด์ txtdetails คือชื่อฟิลด์บนฟอร์ม (ฐานข้อมูลจริงที่ต้องการให้ไฮไลท์)
- ชื่อฟิลด์ Txtfind คือ Text Box เปล่าๆ ที่สร้างขึ้นสำหรับการใส่คำที่ต้องการค้นหา
- หลังจากการใช้คำสั่งประเภท ค้นหาข้อมูลแล้ว ใช้คำสั่งนี้ต่อท้าย

       Dim Text_highlight As Integer
        Dim Text_start As Integer
        Text_start = InStr(1, Me.txtdetails, Txtfind) - 1
        Text_highlight = Len(Me.Txtfind)
        Me.txtdetails.SetFocus
        Me.txtdetails.SelStart = Text_start
        Me.txtdetails.SelLength = Text_highlight
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3225s