กระทู้เก่าบอร์ด อ.Yeadram
        
           1,658   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.3178s
    
      
		