กระทู้เก่าบอร์ด อ.Yeadram
2,143 2
URL.หัวข้อ /
URL
สอบถามการใช้ Combo box ในการดึงข้อมูล
อยากสอบถามเรื่องการใช้ Combo box เพื่อการดึงข้อมูลมาแสดงลงแต่ละ field
ตัวอย่าง กรณีที่มี ฐานข้อมูล item และมี field อยู่ 3 field
Item code Item name price
A01 ปากกา 25
A02 ดินสอ 5
A03 ยางลบ 10
ในการออกแบบฟอร์ม เลือกใช้ Combo box เพื่อเลือก item code เมื่อเลือกแล้ว ต้องการให้ textName. TextPrice แสดงขึ้น อัตโนมัติ หลังจากเลือก Item code
ลองใช้ Code
Private Sub Order_AfterUpdate()
If Not IsNull(Me.itemcode) Then
Me.itemname = (Me.itemcode.Column(2))
Me.PRICE = (Me.itemcode.Column(3))
End If
End Sub
แต่ไม่ได้ค่ะ
รบกวนอาจารย์ด้วยคะ่
ตัวอย่าง กรณีที่มี ฐานข้อมูล item และมี field อยู่ 3 field
Item code Item name price
A01 ปากกา 25
A02 ดินสอ 5
A03 ยางลบ 10
ในการออกแบบฟอร์ม เลือกใช้ Combo box เพื่อเลือก item code เมื่อเลือกแล้ว ต้องการให้ textName. TextPrice แสดงขึ้น อัตโนมัติ หลังจากเลือก Item code
ลองใช้ Code
Private Sub Order_AfterUpdate()
If Not IsNull(Me.itemcode) Then
Me.itemname = (Me.itemcode.Column(2))
Me.PRICE = (Me.itemcode.Column(3))
End If
End Sub
แต่ไม่ได้ค่ะ
รบกวนอาจารย์ด้วยคะ่
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R22494
Private Sub Order_AfterUpdate()
if isnull(Order) Or Order = "" then
msgbox "กรุณาเลือกOrder"
Exit sub
End if
Me.texName = Nz(Dlookup ("Item name","item","Item code = '" & order & "'"),"N")
if Me.texName = "N" Then
Me.texName = null
End if
Me.texPrice= Nz(Dlookup ("price ","item","Item code = '" & order & "'"),"N")
if Me.texPrice= "N" Then
Me.texPrice= null
End if
End Sub
if isnull(Order) Or Order = "" then
msgbox "กรุณาเลือกOrder"
Exit sub
End if
Me.texName = Nz(Dlookup ("Item name","item","Item code = '" & order & "'"),"N")
if Me.texName = "N" Then
Me.texName = null
End if
Me.texPrice= Nz(Dlookup ("price ","item","Item code = '" & order & "'"),"N")
if Me.texPrice= "N" Then
Me.texPrice= null
End if
End Sub
Time: 0.3310s
Me.texName=me.itemcode.column(1)
Me.texPrice=me.itemcode.column(2)