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