กระทู้เก่าบอร์ด อ.Yeadram
        
           1,679   7		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        รบกวนถามเรื่อง เลือกเอาค่าหนึ่งในTextbox มาแสดงในT      
    
      ขอบรบกวนอาจารย์อีกแล้วครับ แหะๆ
คือผมมี ListBox หนึ่งชื่อ List47
ซึ่งมี SELECT [TbPerson].[PersonID], [TbPerson].[CustomerType], [TbPerson].[CustomerDiscount], [TbPerson].[BlackList], [TbPerson].[Company], [TbPerson].[FirstName] FROM TbPerson ORDER BY [PersonID];
และผมต้องการให้นำค่ามาแสดงใน TextBox ชื่อ Discount
โดยเลือกนำมาเฉพาะค่าของ CustomerDiscount ผมต้องเขียนโค๊ตอย่างไรครับ
ขอบคุณครับอาจารย์ :-)
    
    
  คือผมมี ListBox หนึ่งชื่อ List47
ซึ่งมี SELECT [TbPerson].[PersonID], [TbPerson].[CustomerType], [TbPerson].[CustomerDiscount], [TbPerson].[BlackList], [TbPerson].[Company], [TbPerson].[FirstName] FROM TbPerson ORDER BY [PersonID];
และผมต้องการให้นำค่ามาแสดงใน TextBox ชื่อ Discount
โดยเลือกนำมาเฉพาะค่าของ CustomerDiscount ผมต้องเขียนโค๊ตอย่างไรครับ
ขอบคุณครับอาจารย์ :-)
				7 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R03994    
        
  
      - โค้ดคือ me.Discount = me.List47.Column(2)  ไปอ่านดู Help File อีกทีนะครับว่า .Column property เขาทำอะไรได้บ้าง และมี property อื่นๆที่เกี่ยวข้องอะไรบ้าง   ทางที่ดี อ่านมันหมดแหล่ะครับ ว่าแต่ละ control (textbox, listbox, combobox, ...) มันมี event, property และ method อะไรให้ใช้ได้บ้าง
- ถ้าต้องการทำเมื่อ PersonID เกิดการเปลี่ยนแปลงค่า แนะนำว่าให้ใช้ AfterUpdate event ถึงจะเหมาะสมกว่า ลองไปอ่าน Help file ดูนะครับว่า BeforeUpdate, AfterUpdate , LostFocus และ Exit event ต่างกันอย่างไร
    
  - ถ้าต้องการทำเมื่อ PersonID เกิดการเปลี่ยนแปลงค่า แนะนำว่าให้ใช้ AfterUpdate event ถึงจะเหมาะสมกว่า ลองไปอ่าน Help file ดูนะครับว่า BeforeUpdate, AfterUpdate , LostFocus และ Exit event ต่างกันอย่างไร
        
    3 @R03995    
        
  
      เย้!!! ตรงนี้ผมอยากได้มากเลย ทำได้แล้วครับ
ขอบคุณมากครับอาจารย์สันครับ พึ่งกลับมาจากออกกำลังกายก็ได้ข่าวดีเลยครับ
ตอนนี้ผมไปใช้ที่
Private Sub Discount_GotFocus()
Me.Discount = Me.List47.Column(2)
End Sub
แสดงผลได้ดีเลยครับ ไม่ต้องไปทำให้กรอก แยกลูกค้าให้งงตัวเองแล้ว :-)
    
    
  ขอบคุณมากครับอาจารย์สันครับ พึ่งกลับมาจากออกกำลังกายก็ได้ข่าวดีเลยครับ
ตอนนี้ผมไปใช้ที่
Private Sub Discount_GotFocus()
Me.Discount = Me.List47.Column(2)
End Sub
แสดงผลได้ดีเลยครับ ไม่ต้องไปทำให้กรอก แยกลูกค้าให้งงตัวเองแล้ว :-)
        
    4 @R03998    
        
  
      รบกวนถามเพิ่มเติมครับ พอดีตรง After Update ผมดันไปใช้Macroให้มัน ReQuery ที่Queryหนึ่งชื่อ QCHOrder_Out_Ey_Pos_Fast_InV_01 ผมเลยใส่โค๊ตตรงนี้ไม่ได้ ไม่ทราบว่า เราสามารถจะเขียนตัวRequeryแบบโค๊ตยังไงครับ ผมจะได้เอาทั้ง2อย่างมาใส่รวมกันได้ครับ
ขอบคุณครับ
    
  ขอบคุณครับ
        
    5 @R03999    
        
  
      ลองแบบนี้แล้วไม่ทำงาน ไม่รู้ว่ามันต้องไปที่ฟอร์ม หรือ ที่ แมโครครับ
Private Sub PersonID_AfterUpdate()
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![OrderInOut].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![OrderBuild].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![OrderType].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![EmployeeID].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![PersonID].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![Discount].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![Vat_InV].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![Vat_ExV].Requery
End Sub
    
  Private Sub PersonID_AfterUpdate()
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![OrderInOut].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![OrderBuild].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![OrderType].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![EmployeeID].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![PersonID].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![Discount].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![Vat_InV].Requery
Forms![FmOrder_Out_Ey_Pos_Fast_InV_01]![Vat_ExV].Requery
End Sub
        
    6 @R04000    
        
  
      ไม่เข้าใจคำถามนะครับ 
แต่ถ้าอยาก requery ข้อมูลที่แสดงบนฟอร์ม ก็ให้สั่ง Forms![FmOrder_Out_Ey_Pos_Fast_InV_01].Requery
    
  แต่ถ้าอยาก requery ข้อมูลที่แสดงบนฟอร์ม ก็ให้สั่ง Forms![FmOrder_Out_Ey_Pos_Fast_InV_01].Requery
        
    7 @R04001    
        
    
      พอดีผมใช้ฟอร์มหลัก และ ฟอร์มย่อยน่ะครับ เวลาผมเปลี่ยนข้อความที่ฟอร์มหลักปั๊บ ฟอร์มย่อยก้จะถูกเปลี่ยนไปตามที่ผูกไว้ในQueryชื่อQCHOrder_Out_Ey_Pos_Fast_InV_01 น่ะครับ
แต่ไม่เป็นไรครับผมเองก็ยัง งงๆครับ แหะๆ - -"
เดี๋ยวผมลองทำเท่าที่ทำได้ก่อนครับ ขอบพระคุณอยางสูงครับ
    
    
  แต่ไม่เป็นไรครับผมเองก็ยัง งงๆครับ แหะๆ - -"
เดี๋ยวผมลองทำเท่าที่ทำได้ก่อนครับ ขอบพระคุณอยางสูงครับ
      Time: 0.0604s
    
      
		
Private Sub PersonID_LostFocus()
ครับ