นำผลการคำนวณในช่องไปเก็บที่เทเบิลครับผม
กระทู้เก่าบอร์ด อ.Yeadram

 1,175   3
URL.หัวข้อ / URL นำผลการคำนวณในช่องไปเก็บที่เทเบิลครับผม

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

รบกวนด้วยครับ


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

Private Sub Form_Load()
Dim rst As Object
Set rst = CurrentDb.OpenRecordset("qCheckStock")
If rst.RecordCount > 0 Then
If MsgBox("มีสินค้าในสต็อคเหลือน้อยต้องการดูหรือไม่?", vbQuestion + vbYesNo, "สินค้าเหลือน้อย") = vbYes Then
        DoCmd.OpenQuery "qCheckStock"
    End If
End If
rst.Close
Set rst = Nothing
End Sub

ไฟล์คิวรี่ใช้งานได้ครับกรองมาเฉพาะของเหลือน้อยตามที่กำหนดแล้วครับผม

ขอบคุณมากๆครับ
โดย: ตุ่น เมื่อ: 30 ม.ค. 2558 , 09:53

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

1 @R20019
คำสั่งคิวรี่ครับผม

SELECT *
FROM Inventory
WHERE LastStock <=10;
โดย: ตุ่น เมื่อ: 30 ม.ค. 2558 , 09:54
2 @R20025
แก้ query ที่ใช้ใน form ให้เป็นประมาณนี้ครับ

SELECT LastStock
FROM Inventory
WHERE ProductID = Form1!txtProductID
And LastStock <=10
โดย: PichaiTC เมื่อ: 2 ก.พ. 2558 , 12:39
3 @R20028
ขอบคุณครับ แต่มัน error แถวนี้ครับผม

Private Sub Form_Current()
Dim rst As Object
Set rst = CurrentDb.OpenRecordset("qCheckStock")
If rst.RecordCount > 0 Then
If MsgBox("ÁÕÊÔ¹¤éÒã¹ÊµçͤàËÅ×͹é͵éͧ¡ÒôÙËÃ×ÍäÁè?", vbQuestion + vbYesNo, "ÊÔ¹¤éÒàËÅ×͹éÍÂ") = vbYes Then
        DoCmd.OpenQuery "qCheckStock"
    End If
End If
rst.Close
Set rst = Nothing
End Sub
โดย: ตุ่น เมื่อ: 3 ก.พ. 2558 , 12:17
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3651s