ส่งไฟล์นั้นมาครับ เดี่ยวผมเพิ่มให้

วิธีแบบ DIY ซักหน่อยนะครับ
สมมุติว่ามีฟิลล์ เก็บวันที่ไว้ชื่อ Datestart อยู่ในตาราง table1
ที่คิวรี่ ใส่โค้ดตามนี้

โค๊ด: [Select]

SELECT Table1.DateStart, Format([datestart],"dd/mm") & "/" & Format([datestart],"yyyy")+1 AS EventDate
FROM Table1;

เราจะได้วันที่ปัจจุบันและวันที่ของปีหน้าที่จะมาถึงคือเป็นการบวก ไป 1 ปี

ส่วนที่ฟอร์มก็กำหนด Event ให้แสดง msgbox แจ้งเตือนขึ้นมาประมาณนี้ครับ

โค๊ด: [Select]

Private Sub Form_Timer()
Static count As Integer
        count = count + 1
If count = 30 Then
        Me.TimerInterval = 0
        Call checkeventdate
End If
End Sub
Sub checkeventdate()
Dim Ondate As Date
Dim Edate As Date

        Ondate = Format(Now(), "DD/MM/YYYY")
        Edate = Format(DLookup("Eventdate", "QryEventDate"))
       
        If Edate = Ondate Then
            MsgBox "มีข้อมูลที่ครบรอบปีแล้ว", vbInformation, "แจ้งเตือน!!"
        End If
End Sub


ลองทำ Query และใช้ DateAdd ก็จะได้วันที่ถัดไปครับ โดย DateAdd สามารถระบุได้ต้องการเป็น วัน เดือน ปี ครับ