กระทู้เก่าบอร์ด อ.Yeadram
        
           1,477   4		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        อยากให้ combo ที่สัมพันธ์กัน แสดงข้อมูลโดยอัตโนมัต      
    
      คือ มี 2 combo  combo a และ combo b
ตอนนี้ข้อมูลทั้ง 2 combo มีความสัมพันธ์กันแล้ว
แต่พอคลิกเลือก combo a อยากให้ข้อมูลที่สัมพันธ์ ของ combo b แสดงโดยอัตโนมัติครับ โดยไม่ต้องไปคลิกเลือกที่ combo b อีกครั้ง
อยากทราบว่ามีคำสั่งอะไรบ้างครับ ที่สามารถนำมาใช้ได้
ขอบคุณครับ
    
  ตอนนี้ข้อมูลทั้ง 2 combo มีความสัมพันธ์กันแล้ว
แต่พอคลิกเลือก combo a อยากให้ข้อมูลที่สัมพันธ์ ของ combo b แสดงโดยอัตโนมัติครับ โดยไม่ต้องไปคลิกเลือกที่ combo b อีกครั้ง
อยากทราบว่ามีคำสั่งอะไรบ้างครับ ที่สามารถนำมาใช้ได้
ขอบคุณครับ
				4 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    1 @R08910    
        
  
      ไม่ค่อยจะชัดเจนนักกับความต้องการของคุณ แต่ว่าน่าจะพอมีตัวอย่างเก่าๆ หรือกระทู้เก่าๆ หลายๆ กระทู้ที่พอเป็นแนวทางได้ ลองค้นกระทู้เก่าๆ ดูก่อนนะครับ    
    
  
        
    2 @R08921    
        
  
      คือ combo a กับ combo b มันเชื่อมโยงกันแล้วครับ
ตามรูป คือ ผมต้องการให้เมื่อเลือกที่ a แล้วก็ข้อความที่ b ก็ปรากฏโดยอัตโนมัติครับ โดยไม่ต้องเลือกที่ b อีกครั้งครับ
 
    
    
  ตามรูป คือ ผมต้องการให้เมื่อเลือกที่ a แล้วก็ข้อความที่ b ก็ปรากฏโดยอัตโนมัติครับ โดยไม่ต้องเลือกที่ b อีกครั้งครับ
 
    
        
    3 @R08922    
        
  
      Private sub comboA_AfterChange()
me.comboB = ..........................อยากให้มันเท่ากับเท่าไหร่ก็เขียนไปครับ
End sub
คุณบอกว่ามันเชื่อมโยงกันแล้วมันเชื่อมยังไง ล่ะครับ
ตรงที่ผมละไว้ นั่นคือเอาความสัมพันธ์ของมันนั่นแหละครับ มาใส่เช่น
me.comboB = Dlookup("ชื่อฟิลด์", "ชื่อตาราง", "ฟิลด์ของตาราง Like '" & me.ComboA & "'")
หรือ
Me.comboB = Me.comboA.column(2)
หรือ
Me.comboB = ""
Me.comboB.RowSource = "select field1 from table1 where field2 like'" & Me.ComboA & "'"
Me.comboB.Requery
Me.comboB = Me.comboB.ItemData(0)
หรือถ้าคุณเขียน นิพจน์ใน rowsource ของ comboB โดยมีเงื่อนไขไว้แล้ว
คุณอาจจะสั่งแค่
me.comboB.requery
Me.comboB = Me.comboB.ItemData(0)
หรือจะใช้วิธีการ sendkeys ก็ได้
me.comboA.setfocus
SendKeys "{F4}{DOWN}{ENTER}"
    
  me.comboB = ..........................อยากให้มันเท่ากับเท่าไหร่ก็เขียนไปครับ
End sub
คุณบอกว่ามันเชื่อมโยงกันแล้วมันเชื่อมยังไง ล่ะครับ
ตรงที่ผมละไว้ นั่นคือเอาความสัมพันธ์ของมันนั่นแหละครับ มาใส่เช่น
me.comboB = Dlookup("ชื่อฟิลด์", "ชื่อตาราง", "ฟิลด์ของตาราง Like '" & me.ComboA & "'")
หรือ
Me.comboB = Me.comboA.column(2)
หรือ
Me.comboB = ""
Me.comboB.RowSource = "select field1 from table1 where field2 like'" & Me.ComboA & "'"
Me.comboB.Requery
Me.comboB = Me.comboB.ItemData(0)
หรือถ้าคุณเขียน นิพจน์ใน rowsource ของ comboB โดยมีเงื่อนไขไว้แล้ว
คุณอาจจะสั่งแค่
me.comboB.requery
Me.comboB = Me.comboB.ItemData(0)
หรือจะใช้วิธีการ sendkeys ก็ได้
me.comboA.setfocus
SendKeys "{F4}{DOWN}{ENTER}"
        
    4 @R08923    
        
    
      ขอบคุณทุกความเห็นครับ    
    
  
      Time: 0.8049s
    
      
		