แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - MartSirawit

หน้า: [1]
1
เพิ่มเติม

Safety valve ปีละ 1 ครั้ง
หม้อแปลง ปีละ 1 ครั้ง
PRESSURE RELIEF VALVE ปีละ 1 ครั้ง
Tank จะมีแยก2 คอลัมณ์
Internal 15ปี 1 ครั้ง
External ปีละ 1 ครั้ง


เหลือ เช็คทุก 6 เดือนไว้ว่างๆ จะทำตัวอย่างให้ดูครับ
Field Fix คือช่วงเดือนละปีที่ถึงวันครบรอบนะครับ
ปล แก้ระบบค้นหาตามเงื่อนไขให้ใหม่แล้วด้วยนะคับ
โพสต์นี้ได้รับคำขอบคุณจาก: MartSirawit

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

ขนาดไฟล์เกินอะครับ รบกวนของ email ได้มั้ยครับผม
ทำยังไงรบกวนบอกรายละเอียดได้มั้ยครับ อยากเรียนรู้ด้วยครับผม
ส่งข้อความไปแล้วครับ
โพสต์นี้ได้รับคำขอบคุณจาก: MartSirawit

3
ส่งไฟล์นั้นมาครับ เดี่ยวผมเพิ่มให้
โพสต์นี้ได้รับคำขอบคุณจาก: MartSirawit

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

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





โพสต์นี้ได้รับคำขอบคุณจาก: MartSirawit

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

7
โพสต์นี้ได้รับคำขอบคุณจาก: MartSirawit

หน้า: [1]