ประมาณนี้มั้ยครับสำหรับการแจ้งเตือนจุดสั่งซื้อ

สร้างตาราง Product มี Field (ID, Product, Price, Stock, Reorderpoint)
สร้าง Form
มี combobox สำหรับเลือก product (ผูกกับ product)
มี textbox จำนวนที่ต้องการขาย, ราคา, จำนวนคงเหลือ, จุดสั่งซื้อ

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

Private Sub cboproduct_Change()
If Me.cboproduct.Value <> "" Then
    Dim rs As DAO.Recordset, sql As String
       
        sql = "SELECT * FROM [Product] WHERE id = " & Me.cboproduct.Value & " ;"
            Set rs = CurrentDb.OpenRecordset(sql)
Me.txtprice.Value = rs![Price]
Me.txtreorderpoint.Value = rs![Reorder point]
Me.txtstock.Value = rs!stock
End If

End Sub

Private Sub btnsave_Click()
Dim response
response = MsgBox("ยืนยันการทำรายการ? ", vbYesNo)
       If response = vbYes Then    ' User choose Yes.
            Dim rst As DAO.Recordset, sql As String
        sql = "SELECT * FROM [Product] WHERE id = " & Me.cboproduct.Value & " ;"
            Set rst = CurrentDb.OpenRecordset(sql)
        'Update
        rst.Edit
          'Check stock >> Reorderpoint
            If (rst![stock] - Me.txtvalue.Value) <= rst![Reorder point] Then
            MsgBox "เตือนจุดสั่งซื้อ!", vbCritical
            End If
            rst![stock] = rst![stock] - Me.txtvalue.Value
            rst.Update
          Me.txtstock.Value = rst!stock
    Set rst = Nothing
        End If
       
End Sub


อาจารย์ท่านไหนมีคำแนะนำหรือวิธีที่เหมาะสมและรวบรัดรบกวนแนะนำด้วยครับ