ห้ามใส่วันที่ล่วงหน้าเกิน 30 วัน



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

19 มี.ค. 64 , 18:22:53
อ่าน 197 ครั้ง

naekkhung

ผมมีฟิวส์ชื่อ "วันนัดชำระ" จะทำยังไงไม่ให้ User ใส่วันที่ล่วงหน้าเกิน 30 วัน ที่หน้าฟอร์มครับ เช่น วันนี้วันที่ 19/03/20201 User จะใส่ข้อมูลได้แค่วันที่ 19/03/20201-17/04/2021 เท่านั้นถ้าใส่เกินให้โปรแกรมแจ้งเตือนว่าใส่วันที่เกิน

 

19 มี.ค. 64 , 22:08:24
ตอบกลับ #1

UnKnown

: ห้ามใส่วันที่ล่วงหน้าเกิน 30 วัน
« ตอบกลับ #1 เมื่อ: 19 มี.ค. 64 , 22:08:24 »
ก่อนอื่นเลยจะบอกว่าพยายามอย่าตั้งชื่อฟิวส์เป็นภาษาไทยครับ ตัวอย่างผมขอใช้ Text20 แทน "วันนัดชำระ" ของท่านนะครับ
โค๊ด: [Select]
Private Sub Text20_AfterUpdate()
Dim DatePK As String
DatePK = Me.Text20 - Date
    If DatePK > 30 Or DatePK < 0 Then
    MsgBox "กรุณาเลือกวันที่ " & Date & " - " & Date + 30, vbCritical, "แจ้งเตือน"
    Me.Text20 = Null
    End If
End Sub

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

22 มี.ค. 64 , 16:00:34
ตอบกลับ #2

naekkhung

: ห้ามใส่วันที่ล่วงหน้าเกิน 30 วัน
« ตอบกลับ #2 เมื่อ: 22 มี.ค. 64 , 16:00:34 »
ขอบคุณท่าน หนอนน้อย มากครับทำได้ตามเป้าเลย

 


บอร์ดเรียนรู้ Access สำหรับคนไทย