อันดับแรกต้องสร้าง Select Query ขึ้นมา โดยระบุจำนวนที่ต้องการแสดง เช่น
ถ้าจำนวนคงเหลือน้อยกว่าหรือเท่ากับ 10 ให้แสดงผล

Select * From Stock Where Qty <=10;

แล้วตั้งชื่อเป็นอะไรก็ได้ เช่น ให้ชื่อเป็น qryCheckStock

จากนั้นก็ลองไปสร้างโค้ดข้างล่างนี้ในฟอร์มที่เปิดประจำทุกครั้ง โดยใช้เหตุการ OnLoad ดังนี้

Private Sub Form_OnLoad()
Dim rst As Object
Set rst = CurrentDb.OpenRecordset("qryCheckStock")
If rst.RecordCount > 0 Then
DoCmd.OpenQuery "qryCheckStock"
End If
rst.Close
Set rst = Nothing
End Sub

ลองปรับใช้ดูครับ

ขอบคุณอาจารย์มากครับ