ทำแจ้งเตือน ครบรอบปี ใน access

[MartSirawit]

ผมต้องการทำการแจ้งเตือนเมื่อครบรอบปีอะคับ แบบต้องไปตรวจเช็คอุปกรณ์ วันที่ เท่านี้ พอมาถึงอีกปีนึงก็แจ้งอะคับว่าต้องไปตรวจได้แล้ว
เช่น ผมตั้งวันตรวจเช็คอุปกรณ์ A วันที่ 4 มค 60 ในตาราง ก็คือจะมีการแจ้งเตือนทุกปีวันที่ 4 มค อะคับ
แจ้งเตือนเป็นรูปแบบไหนได้บ้างครับ  จะทำยังไงได้บ้างครับ รบกวนช่วยผมหน่อยครับ

รบกวนอธิบายอย่างละเอียดนิดนึงครับ พอดียังใช้โปรแกรมได้ไม่กี่วันยังใช้ไม่ค่อยเป็นครับ
ขอบคุณล่วงหน้าครับ

[sjs]

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

[MartSirawit]

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

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

[sjs]

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

[ปิ่นณรงค์]

วิธีแบบ 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


[MartSirawit]

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

เปิดโปรแกรมก็ได้ครับ หรือ แจ้งเตือนตรงหน้า desktop อะไรประมาณนี้ครับ แบบส่ง line ส่ง mail น่าจะยากมั้ยครับ
ขอบคุณมากๆครับ

[MartSirawit]

วิธีแบบ 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


ถ้าเราทำเป็น table ไม่ใช่ form อะครับ สามารถใส่ code ใช้ได้มั้ยครับ
แล้วใส่ code ใน query นี่ใส่ยังไงบ้างครับ ผมยังใช้ไม่ค่อยเป็นเลยครับ ยังไงขอบคุณมากๆเลยครับ

[MartSirawit]

มีข้อมูลอยู่เป็น table หน้าตาตามภาพครับ ตรง test date อะครับ จะบอกวันที่เช็คอุปกรณ์ โดยอุปกรณ์ ในงานผมคือจะมีการตรวจเช็ค ปีละครั้ง
ทีนี้ ผมต้องการให้แจ้งเตือนว่าให้ไปตรวจอุปกรณ์ เมื่อกลับมา date นี้ในปีถัดไปอะครับ
ข้อมูลเป็น table ไม่ใช่ form อะครับ เลยสงสัยว่าจะทำได้มั้ยครับ
การใส่ code อะไรใส่ตรงไหน ใช้ยังไงไม่ทราบเลยครับ พึ่งหัดใช้โปรแกรมนี้ครับ

ยังไงขอบคุณล่วงหน้าและรบกวนทุกคนที่สะดวกหน่อยครับ

[ปิ่นณรงค์]

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

[MartSirawit]

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

ขนาดไฟล์เกินอะครับ รบกวนของ email ได้มั้ยครับผม
ทำยังไงรบกวนบอกรายละเอียดได้มั้ยครับ อยากเรียนรู้ด้วยครับผม

[ปิ่นณรงค์]

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

ขนาดไฟล์เกินอะครับ รบกวนของ email ได้มั้ยครับผม
ทำยังไงรบกวนบอกรายละเอียดได้มั้ยครับ อยากเรียนรู้ด้วยครับผม

ส่งข้อความไปแล้วครับ

[MartSirawit]

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

ขนาดไฟล์เกินอะครับ รบกวนของ email ได้มั้ยครับผม
ทำยังไงรบกวนบอกรายละเอียดได้มั้ยครับ อยากเรียนรู้ด้วยครับผม

ส่งข้อความไปแล้วครับ

ขอบคุณมากๆครับ ส่งไปแล้วครับ รบกวนด้วยครับ
ตอบกลับที่ email ที่ส่งไปได้เลยครับ

[MartSirawit]

ขอบคุณมากๆครับ ได้รายละเอียดแล้วครับ ได้ความรู้และบทเรียนมากเลยครับ