กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
281 1
URL.หัวข้อ /
URL
การใช้ combo box
อาจารย์ค่ะ รบกวนถามเรื่อง combo box ค่ะ จากตัวอย่างที่แนบมา เวลาเลือกสินค้าแล้ว ใน afterupdate ของ event ไว้ว่า ถ้าเลือกสินค้าใดแล้วให้ราคาขึ้นมาด้วย ทำตามตัวอย่างที่เคยได้มาค่ะ ดังนี้
Private Sub ProductID_AfterUpdate()
Dim strFilter As String
strFilter = "ProductID = " & Me!ProductID
Me!UnitPrice = DLookup("UnitPrice", "Products", strFilter)
End Sub
ทำไมมันขึ้น error ค่ะอาจารย์ หรือทำผิด ควรใช้แบบใดดีค่ะ ถ้าเราเลือกสินค้าแล้วให้ราคา ขึ้นมาด้วย
ผึ่งมาเคยศึกษาเรื่องทำ invoice และ order เกี่ยวกับเรื่องบัญชีค่ะ ค่อนข้างจะยากกว่า Document controller อีกนะค่ะ
Private Sub ProductID_AfterUpdate()
Dim strFilter As String
strFilter = "ProductID = " & Me!ProductID
Me!UnitPrice = DLookup("UnitPrice", "Products", strFilter)
End Sub
ทำไมมันขึ้น error ค่ะอาจารย์ หรือทำผิด ควรใช้แบบใดดีค่ะ ถ้าเราเลือกสินค้าแล้วให้ราคา ขึ้นมาด้วย
ผึ่งมาเคยศึกษาเรื่องทำ invoice และ order เกี่ยวกับเรื่องบัญชีค่ะ ค่อนข้างจะยากกว่า Document controller อีกนะค่ะ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.0983s
Me.UnitPriceD = Me.UnitPriceP