Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

Back to Board : Relation Knowledge New Topic    Reply
สอบถามการใช้ Combo box ในการดึงข้อมูล

Topic by Message Posted : on : 24/3/2559 11:34:02
tukk  อยากสอบถามเรื่องการใช้ 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
แต่ไม่ได้ค่ะ
รบกวนอาจารย์ด้วยคะ่



2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

Reply by Message on : 25/3/2559 10:56:12
weezaa
(R21917)
เอา if ออก แล้วทำแบบนี้ได้ไหมครับ

Me.texName=me.itemcode.column(1)
Me.texPrice=me.itemcode.column(2)
Back to Top
Reply by Message on : 10/9/2559 10:44:08
mrmm
(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
Back to Top

Reply

 *Indicates required fields
Format:
Bold Under Line Italic Add Hyperlink Add Email Link Italic List Indent Add Image Emoticons Insert code Mode:
Message:*
Your Name*:
Normal word*: Please input : ไทยแอ็คเซส
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++