กระทู้เก่าบอร์ด อ.Yeadram
1,509 7
URL.หัวข้อ /
URL
เราสามารถ Highlight ข้อความหลังจากการค้นหาด้วยคำสั
คือ เมื่อเราใช้คำสั่ง DoCmd.FindRecord บนฟอร์มไปแล้ว
โปรแกรมก็จะแสดง Record ที่พบคำนั้นขึ้นมา
แต่ถ้าเราอยากให้ให้โปรแกรม ไฮไลท์คำนั้นด้วย ว่าอยู่ตรงไหนของข้อความ
ผมอยากทราบว่าจะใช้คำสั่งอะไรครับ ขอบคุณครับ
โปรแกรมก็จะแสดง 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
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
ตอบ เจ้าของคำถาม
หลังจากการลองเขียนแล้วจะได้ ตัวอย่างประมาณนี้ครับ
- ชื่อฟิลด์ 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
Time: 0.3225s