กระทู้เก่าบอร์ด อ.Yeadram
2,573 4
URL.หัวข้อ /
URL
เบิกสินค้าแล้วจำนวนสินค้าในคลังลด ทำไงดี?
1. มีตาราง inventory คลังสินค้า
ประกอบด้วยฟิล์
id_product รหัสสินค้า เป็น combo box เขียนโค้ดเป็น SELECT product.id_product, product.name_product FROM product ORDER BY [name_product];
inventory _unit จำนวนสินค้าในคลัง ชนิด number
2. มีตาราง get_detail ตารางรายละเอียดการเบิกสินค้า
ประกอบด้วยฟิล์
id_get_product รหัสการเบิกสินค้า ชนิด textbox เชื่อมกับ ตาราง get _product ด้วย FORM
id_product รหัสสินค้า เป็น combo box เขียนโค้ดเป็น SELECT product.id_product, product.name_product FROM product
inventory _unit จำนวนสินค้าในคลัง ชนิด number
get_unit จำนวนที่เบิก ชนิดเป็น number
ปัญหาคือ เมื่อใส่จำนวนสินค้าที่ต้องการเบิกแล้ว อยากให้จำนวนสินค้าในคลังลด
ได้ทำการเขียน vba ที่หน้า Form ดังนี้ โดยได้ดึงตาราง inventory มาด้วย ซึ่งก็รู้ว่ามันเป็นวิธีที่ไม่ถูกต้องนัก นอกจากนี้เมื่อใส่จำนวนสินค้าที่เบิก แล้วมาแก้จำนวนที่เบิกใหม่ ก็เกิด bug ขึ้นมาทันที
Private Sub get_unit_Exit(Cancel As Integer)
Dim temp1 As String
Dim temp2 As String
temp1 = get_unit.Value
temp2 = Forms!form_get_product1!inventory_subform2.Form!inventory_unit.Value
'MsgBox (temp2)
' inventory_subform1.
Forms!form_get_product1!inventory_subform2.Form!inventory_unit.Value = temp2 - temp1
End Sub
ประกอบด้วยฟิล์
id_product รหัสสินค้า เป็น combo box เขียนโค้ดเป็น SELECT product.id_product, product.name_product FROM product ORDER BY [name_product];
inventory _unit จำนวนสินค้าในคลัง ชนิด number
2. มีตาราง get_detail ตารางรายละเอียดการเบิกสินค้า
ประกอบด้วยฟิล์
id_get_product รหัสการเบิกสินค้า ชนิด textbox เชื่อมกับ ตาราง get _product ด้วย FORM
id_product รหัสสินค้า เป็น combo box เขียนโค้ดเป็น SELECT product.id_product, product.name_product FROM product
inventory _unit จำนวนสินค้าในคลัง ชนิด number
get_unit จำนวนที่เบิก ชนิดเป็น number
ปัญหาคือ เมื่อใส่จำนวนสินค้าที่ต้องการเบิกแล้ว อยากให้จำนวนสินค้าในคลังลด
ได้ทำการเขียน vba ที่หน้า Form ดังนี้ โดยได้ดึงตาราง inventory มาด้วย ซึ่งก็รู้ว่ามันเป็นวิธีที่ไม่ถูกต้องนัก นอกจากนี้เมื่อใส่จำนวนสินค้าที่เบิก แล้วมาแก้จำนวนที่เบิกใหม่ ก็เกิด bug ขึ้นมาทันที
Private Sub get_unit_Exit(Cancel As Integer)
Dim temp1 As String
Dim temp2 As String
temp1 = get_unit.Value
temp2 = Forms!form_get_product1!inventory_subform2.Form!inventory_unit.Value
'MsgBox (temp2)
' inventory_subform1.
Forms!form_get_product1!inventory_subform2.Form!inventory_unit.Value = temp2 - temp1
End Sub
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R04063
ลองใช้แบบนี้มั๊ย..
Form เบิกสินค้า ผมใช้ combo box (Rowsource:product_id,product_name, product_quantity ใช้ column with: 0,1,0)
เวลา user เบิกสินค้าต้องเลือกจาก combo box แล้วตามด้วยจำนวนที่ต้องการเบิก
ถ้า เกินที่มีสต็อค ก็เตือนแล้วให้ใส่ค่าใหม่
txtBalance = Cbo_Product!column(2)-txtRequisition
Update Stock
update tblProduct set qty = txtBalance where id = Cbo_Product!column(0)
**code นี้เอาไปปรับนะ ให้เป็นแนวทางเท่านั้น
Form เบิกสินค้า ผมใช้ combo box (Rowsource:product_id,product_name, product_quantity ใช้ column with: 0,1,0)
เวลา user เบิกสินค้าต้องเลือกจาก combo box แล้วตามด้วยจำนวนที่ต้องการเบิก
ถ้า เกินที่มีสต็อค ก็เตือนแล้วให้ใส่ค่าใหม่
txtBalance = Cbo_Product!column(2)-txtRequisition
Update Stock
update tblProduct set qty = txtBalance where id = Cbo_Product!column(0)
**code นี้เอาไปปรับนะ ให้เป็นแนวทางเท่านั้น
3 @R04081
ขอบคุณมากค่ะ จะไปปรับใช้ดูนะคะ
4 @R08606
งง มาก ขอตัวอย่างที่เอาเฉพาะหน้า บวกลบ ได้ไหมครับ สำหรับท่านทำแล้วช่วย post ให้ดูหน่อยครับ (ผู้รู้จริง)
Time: 0.5464s
- สร้าง Text 1 มาหลอก โดยกำหนดค่า ตอนเปิด form ให้ text1 นั้นมีค่าเท่ากับ ยอดBalance ของสินค้า
- สร้าง Text 2ขึ้นมาอีก ใช้ป้อนข้อมุลจำนวนที่ขาย
- สร้าง Text 3ขึ้นมารับค่าtext2
*** สร้างเหตุการณ์
เมื่อtext2 ปรับปรุงข้อมูลหรือ SAVE ข้อมูล [Balance]= [text1]-[text2]
จะเอายอดรายการขายที่ใหน?
ก็หลอกต่อ ให้ทำฐานข้อมูล Invetory โดยใช้ Sub form ใน Formที่ทำรายการเชื่อมโยง ID การขายโดยการทำการแทนค่าลงใน ฐานข้อมูลจากtext ต่างๆที่เราสร้างโดยกำหนดค่าจาก แต่ละ Event
ที่เลือกทำอย่างนี้เพราะ เขียนสูตรไม่เป็นครับ อาศัยหลอกเขาไปวันๆ