ต้องการให้มีการแจ้งเตือน ยาที่ใกล้หมดอายุที่เก็บอยู่ในคลังสินค้า
โดยให้มีการแจ้งเตือนแบบอัตโนมัติก่อนถึงวันหมดอายุ 15วัน

คำสั่งที่จะนำ วันที่ปัจจุบันไปเปรียบเทียบกับฟิลวันที่รับเข้าสินค้าในทุกๆแถวของฟิล วันที่รับเข้าสินค้า ต้องทำยังไงค่ะ ต้องการให้เพื่อเปรียบเทียบวันรับเข้าสินค้ากับวันที่ปัจจุบันไปเรื่อยๆจนครบทุกสินค้าในคลัง ใช้for loop รึเปล่าค่ะ


ลองมั่วดูได้เท่านี้ค่ะ

Dim i As Integer
Dim c As Integer
Dim massage As String
Private Sub วันที่รับ_Click()
c = DCount("วันที่รับ", "Test")
i = 1

For i = 1 To c
x = DateDiff("d", วันที่รับ, Date)
If x <= 15 Then
MsgBox "สินค้าใกล้หมดอายุอีก" & x & "วัน¹"
End If
Next   
End Sub

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