sub text1_beforeupdate(can...
   x=dlookup(จำนวนคงเหลือ, ตารางสินค้า, รหัสสินค้า = text2)
   if text1 > x then
   ............ ขายเกินสต็อก.........
   ............. คำสั่ง 1
   ............. คำสั่ง 2
   ............. คำสั่ง n
   end if
end sub

ขอบคุณครับสำหรับโค้ด แต่ยังไม่เข้าใจในส่วน


sub text1_beforeupdate(can...
   x=dlookup(จำนวนคงเหลือ, ตารางสินค้า, รหัสสินค้า = text2)
   if text1 > x then
   ............ ขายเกินสต็อก.........
   ............. คำสั่ง 1
   ............. คำสั่ง 2
   ............. คำสั่ง n
   end if
end sub

ผมไม่รู้เรื่องเท่าไหร่ รบกวนด้วยครับ

งานนี้ นะครับ ก่อนที่จะเขียนโค้ดเราต้องรู้

* บนฟอร์ม
- ชื่อ textbox ที่ไว้กรอกจำนวน
- ชื่อ textbox หรือคอนโทรลอะไรก็ได้ ที่แสดง รหัสสินค้า

* ในตารางสินค้าของคุณ
- ชื่อตาราง
- ชื่อฟิลด์รหัสสินค้า
- ชื่อฟิลด์คงเหลือ

หลักการก็คือ
- เมื่อมีการคีย์จำนวนสินค้าลงในรายการขาย เราต้องรู้ว่า จำนวนนั้น เป็นของสินค้าอะไร
- เมื่อเรารู้ว่าสินค้านั้นเป็นสินค้าอะไร เราก็ไปค้นดูจากตารางสินค้า ว่าสินค้าชนิดนั้นๆ มันมียอดคงเหลือเท่าไหร่
ตามโค้ดที่ ยกตัวอย่างไป
text1 หมายถึงจำนวนที่คุณกำลังจะขาย
x หมายถึงจำนวนคงเหลือเดิม
text2 หมายถึง สินค้าตัวที่เรากำลังดู (เราไม่ได้ดูทุกๆ สินค้าในเวลาเดียวกัน เราเช็คแค่ทีละตัว text2 หมายถึง ตัวนี้แหละ ตัวที่กำลังจะดูนี่แหละ ถ้าไม่ระบุตัวสินค้าให้มัน มันอาจจะไปดูยอดคงเหลือของสินค้าตัวอื่นๆ มาก็ได้ ทำให้งานเราผิด)

if text1 > x then   
หมายความว่า ถ้าจำนวนที่กำลังจะขาย   มากกว่า ยอดคงเหลือ ให้.....
.......คำสั่งต่างๆ ที่คุณต้องการจะให้มันทำ อยากใส่อะไรก็ใส่ลงไป.... อยากใส่กี่คำสั่งก็ได้.... มันคือคำสั่งที่คุณจะให้โปรแกรม กระทำ กรณี ขายสินค้าเกินสต็อก
แล้วก็จบด้วย End if ครับ

ขอบคุณมากเลยครับ ผมมาดูกระทู้ตัวเองทุก 5 นาทีเลย เพราะ ผมส่งให้อาจารย์วันอาทิตย์แล้ว

ในข้อมูลข้างต้นที่อาจารย์กล่าวมาผมเข้าใจดีเลยครับ แต่ปัญหาคือผมเขียนคำสั่งไม่เป็นอย่างที่ผมต้องการนะนั้นสิ ที่จะให้มันเด้ง msgbox เตือน แล้วลบค่าที่ใส่จำนวนเกินเป็นค่าว่าง อาจารย์พอจะเขียนให้ผมหน่อยได้ไหมครับ ขอความกรุณาละครับผมเขียนไม่เป็นจิงๆ

รบกวนอย่างสูงอีกทีครับ อย่าพึ่งว่าผมเลยนะ

ขอเพิ่มเติมอีกนิดครับ

เวลาเด้ง msgbox มาแจ้งเตือนว่าสินค้าไม่พอ แล้วให้แสดงจำนวนใน msgbox ที่ คงเหลือด้วยอ่ะครับ

ขอความกรุณาด้วยครับ

msgbox("ขณะนี้มีสินค้าเหลืออยู่เท่ากับ" & " " & x )

ขอบคุณครับเด๋วผมลองทำดูได้ผลไงเดียวมาบอกครับ

Private Sub Quantity_BeforeUpdate(Cancel As Integer)
   x = DLookup(StockQuant, tblProducts, ProductID = text2)
   If Quantity > x Then
   msgbox("ขณะนี้มีสินค้าเหลืออยู่เท่ากับ" & " " & x )
End If
End Sub

text2 หมายถึง สินค้าตัวที่เรากำลังดู (เราไม่ได้ดูทุกๆ สินค้าในเวลาเดียวกัน เราเช็คแค่ทีละตัว text2 หมายถึง ตัวนี้แหละ ตัวที่กำลังจะดูนี่แหละ ถ้าไม่ระบุตัวสินค้าให้มัน มันอาจจะไปดูยอดคงเหลือของสินค้าตัวอื่นๆ มาก็ได้ ทำให้งานเราผิด)

ผมยังไม่เข้าใจ text2 คือฟิลด์ ข้อมูลอะไร ครับ รบกวนอีกนิดครับ

ถ้าในฟอร์มย่อยของคุณ มันมี textbox แสดงจำนวนสินค้า ชื่อว่า Quantity
ผมคิว่าในฟอร์มเดียวกันนี้ต้องมี textbox อีกตัวที่ใช้แสดง รหัสสินค้านะครับ คุณก็อ้างชื่อ textbox ตัวนั้นแหละครับ (ซึ่งผมไม่รู้ว่าชื่ออะไร ผมจึง สมมติมันชื่อว่า text2)

ปัจฉิมลิขิต : คุณเขียนคำสั่ง dlookup ผิดครับ อาจต้องไปขยายต่อตามตัวอย่างกระทู้อื่นๆ หรือใน help ของ access เอง ถึงวิธีที่ถูกต้อง ผมรวบๆ ให้ก็แล้วกัน เอาเป็นว่า มันต้อง DLookup("StockQuant", "tblProducts", "ProductID Like '" & text2 & "'")

แล้วอย่าลืมไปศึกษาเพิ่มเติมต่อล่ะครับ ว่าทำไมต้องเป็นอย่างนี้

ครับจะลองๆทำดูครับ

ช่วยดูโค้ดนี้ให้ผมหน่อยครับมัน error

-*- พิมพ์ โค้ดแล้วขึ้น error ใน เว็บ ใส่โค้ดให้ดูมะได้งิ

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'

/functions/functions_filters.asp, line 37

Private Sub Quantity_BeforeUpdate(Cancel As Integer)
If [Quantity].Value > [StockQuant].Value Then
MsgBox ("สินค้าไม่พอขาย")
[Quantity].Value = [StockQuant].Value
[Quantity].SetFocus
End If
End Sub

Error บรรทัดนี้ครับ ข้อความแสดงแล้วแต่พอกดตกลงมันขึ้น Debug มาครับมันไม่เอาค่า stock มาใส่ใน จำนวนที่ขาย
โค้ดที่เขียนคือ ถ้าใส่จำนวนที่ซื้อ มากกว่า ของในสต๊อกจะขึ้น msg แล้วให้ นำค่าสูงสุด คือค่า ในสตีอกที่มีอยู่เนี่ย นำมาใส่ ใน จำนวนสั่งซื้อเลย ผมต้องแก้ไข ต้องไหนครับ ช่วยเขียนเพิ่มเติมให้ทีครับ

คุณสมบัติขั้นพื้นฐานของ textbox คือ .value อยู่แล้วครับ
ไม่ต้องเติมมาก็ได้

แล้วโค้ดที่เขียนนี่ เขียนเองเหรอครับ [StockQuant] นี่คือชื่อของอะไรครับ
- textbox บนฟอร์ม
- ฟิลด์ ของแหล่งข้อมูล
- ฟิลด์จำนวนคงเหลือของตาราง
- ตัวแปร

ถ้าย้อนอ่านตั้งแต่ความเห็นแรกมาจนความเห็นสุดท้ายแล้ว จะเห็นว่า ตัวนี้น่าจะเป็นตัวแปร ดังนั้นบรรทัดนี้ ต้องเขียนอย่างนี้
me.Quantity = StockQuant
แต่คุณใส่ทั้งเครื่องหมายคร่อม ทั้งยังเติม .value ผมเลยไม่เข้าใจว่า StockQuant นี่มันชื่อของอะไรกันแน่


การเขียนโปรแกรมนะครับ ถ้ามี error นั่นแหละครับเป็นปกติ (ตอนที่ยังเขียนตอนที่ยังพัฒนา) อย่าละเลยมันครับข้อความที่บ่งบอกตอน error น่ะครับ หรือเรียกว่า Error Description    เขาสร้างมันมาเพื่อจะแจ้งเรา เราควรอ่านมัน ในนั้นมีประโยชน์มากกว่า เว็บบอร์ดนี่ซะอีกครับ ถ้าอ่านไม่ได้ แปลไม่ออก ลองเอามาถามครับ   อาจจะมีคนช่วยแปลช่วยตอบ หรือช่วยสื่อความหมายให้ครับ

"Error บรรทัดนี้ครับ ข้อความแสดงแล้วแต่พอกดตกลงมันขึ้น Debug มาครับ"
ประโยคนี้ ดูเหมือนคุณไม่ให้ความสำคัญ ไม่สนใจ "ข้อความที่แสดง" ด้วยซ้ำนะครับเนี่ย ผิดหลักการเป็นนักพัฒนา นะครับ

ช่วยบอกด้วยว่า StockQuant มันคือชื่อของอะไร
ช่วยบอกด้วยว่า Error ว่าอย่างไร

ครับ Error ว่า

Run-time error '2115';
แมโครหรือฟังก์ชั่นที่ตั้งไว้ในคุฯสมบัติ BeforeUpdate หรือ กฎการตรวจสอบสำหรับเขจข้อมูลนี้ป้องกัน Microsoft Office Access จากการบันทึกข้อมูลในเขตข้อมูล

ส่วน StockQuant ฟิลด์ จำนวนในคลังครับ

เรื่องของ StockQuant
       ถ้ากลับไปย้อนอ่านความเห็นเก่าๆ ตั้งแต่เริ่ม มันเทียบได้กับ x
       ผมได้ให้ไปแล้วว่า x ต้องมาจากการใช้ Dlookup ครับ คือมันต้องเข้าไปหาข้อมูลโดยมีเงื่อนไข ไม่ใช่ หยิบ StockQuant มาใช้แบบนี้ครับ ผิดครับ เพราะไม่รู้มันจะหยิบ สต็อกคงเหลือของสินค้าอะไรมาก็ไม่รู้

เรื่องของ Error
        ปัญหาแรกเริ่มจาก คุณตั้งชื่อ textbox บนฟอร์ม ไปตรงกับชื่อฟิลด์ของ form's source เมื่อคุณเขียนว่า   [Quantity].Value =   VBA มันมองว่าคุณกำลังตั้งค่าหรือเติมค่าให้กับฟิลด์ ไม่ใช่ textbox
        และ ณ ปัจจุ?ันนั้น (เหตุการณ์ BeforeUpdate ของ textbox) ฟิลด์ Quantity มันถูกล็อคอยู่แล้วครับ มันไม่ให้เราทำอะไรเพราะว่า มันกำลังตรวจสอบข้อมูลอยู่ ดังนั้น ฟิลด์จึงถูกล็อค
        ทางแก้คือ อย่าเติมค่าเข้าฟิลด์ ให้เติมค่าเข้า textbox ครับ
สมมติว่า ชื่อฟิลด์คือ Quantity
สมมติว่า ชื่อ textbox คือ txtQuantity (ผูกกับฟิลด์ Quantity นั่นแหละ)

เขียนโค้ดว่า
Private Sub txtQuantity_BeforeUpdate(cancel as integer)
dim x
x = nz(dlookup("StockQuant","tblProducts","[ProductID] Like '" & Text2 & "'"),0)
if txtQuantity > x then
msgbox "Over Stock!" & vbcrlf & "Please fill less than or equal " & x
cancel = true
end if
End sub

ขอบคุณมากเลยครับสำหรับความรู้ใหม่ๆ

จะพยายามต่อไป