กระทู้เก่าบอร์ด อ.Yeadram
        
           3,313   3		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        Textbox โชว์ข้อมูล listbox ที่ฟอร์ม      
    
      เรียนท่านผู้รู้ คือผมต้องการให้แสดงข้อมูลที่หน้าฟอร์ม
Textbox 1
Listbox ให้แสดงข้อมูลตาม โดยตึงข้อมูลจากตาราง Employee
รหัสพนักงาน ชื่อพนักงาน
138001 นายสมชาย
139001 น.ส.สมหญิง
139002 นายสมคิด
140001 นายศักดิ์สิทธิ์
ถ้าใส่ข้อมูล Textbox 14
Listbox ก็ให้แสดงข้อมูล
140001 นายศักดิ์สิทธิ์
โดยการคีย์ข้อมูลที่ Textbox ไม่ต้องรอกด Enter ถ้าพิมพ์ตัวแรกเป็น 1 ให้แสดงทุกเรกคอร์ดที่ขึ้นต้นด้วย 1 แล้วพิมพ์ 3 ต่อจาก 1 ให้แสดงรหัสที่ขึ้นต้นด้วย 13
ขอบคุณครับ
    
    
  Textbox 1
Listbox ให้แสดงข้อมูลตาม โดยตึงข้อมูลจากตาราง Employee
รหัสพนักงาน ชื่อพนักงาน
138001 นายสมชาย
139001 น.ส.สมหญิง
139002 นายสมคิด
140001 นายศักดิ์สิทธิ์
ถ้าใส่ข้อมูล Textbox 14
Listbox ก็ให้แสดงข้อมูล
140001 นายศักดิ์สิทธิ์
โดยการคีย์ข้อมูลที่ Textbox ไม่ต้องรอกด Enter ถ้าพิมพ์ตัวแรกเป็น 1 ให้แสดงทุกเรกคอร์ดที่ขึ้นต้นด้วย 1 แล้วพิมพ์ 3 ต่อจาก 1 ให้แสดงรหัสที่ขึ้นต้นด้วย 13
ขอบคุณครับ
				3 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R02653    
        
  
      ขอเพิ่มเติมหน่อย ผมแนะนำใ้ห้ใช้ OnChange event เพื่อดักจับการเปลี่ยนแปลงใน Textbox ครับ  แล้วใช้ Me.[ชื่อ textbox].text  สำหรับให้ค่าของ textbox นั้นๆ  จะง่ายกว่า  ส่วนของ      sql=select empID, empName ... และ me.listbox999.rowsource=sql  ก็ยังคงเหมือนที่คุณ yeadram แนะนำไว้ครับ    
    
  
        
    3 @R02683    
        
    
      ขอคุณครับสำหรับคำตอบ แต่มือใหม่ก็ลองผิดลองถูกหลายรอบก็ยังไม่ได้ ขอบพระคุณอีกครั้งจะพยายามครับผม    
    
  
      Time: 0.0803s
    
      
		
ตั้งค่า rowsourctype เป็น "table/query"
เราจะเปลี่ยน source ของมันเมื่อมีการคีย์ข้อมูลใน textbox โดยไปเล่นที่ where ของ statement
เช่น sql= select empID, empName from employee where empID like '" & text14 & "*'"
แล้วเราจะเอาลูกเล่นนี้ฝังไว้ในเหตุการณ์ไหนล่ะ ก็เลือกเอาตามสะดวก เช่นอาจจะวางไว้ที่ keyup ของ textbox
ก็ตรวจสอบด้วยว่า ถ้า การกดนั้นๆ ไม่ใช่ปุ่ม enter ปุ่ม delete ปุ่ม backspace ปุ่ม ESC ก็ให้ทำงานได้เลย
sub......(keycode as interger)if text14="" then exit sub
if keycode<>13 then
sql=select empID, empName from employee where empID like '" & text14 & "*'"
me.listbox999.rowsource=sql
me.listbox999.requery
end if
end sub
ในนั้นเป็นแนวทางนะครับ ต้องเอาไปขยายต่อ ในตัวอย่างผมเช็คแค่ปุ่ม enter อย่างเดียว จริง ควรจะเช็คอย่างน้อย 4 ปุ่มตามที่บอกไปครับ