การเปิดFormแล้วให้แสดงข้อมูลตามเงื่อนไข

[prajak]

จากรูป รบกวนสอบถามพี่ๆครับ ว่าหากผมเปิดform ขึ้นมาแล้วให้แสดงข้อมูลเฉพาะเดือนปัจจุบันและย้อนหลังไปแค่2เดือน คิดว่าคงต้องเอาคำสั่งไปวางไว้ event on load ของform นี้ แต่ ไม่รู้จะต้องเขียน code ยังไงครับ

[สันติสุข]

โค๊ด: [Select]

    Dim Prev2MM     As Date
    Dim FirstDate    As Date
    Dim LastDate     As Date
   
    ' 2 เดือนก่อนคือวันอะไร
    Prev2MM = DateAdd("m", -2, Date)
   
    ' หาวันที่ 1 ของ 2 เดือนก่อน
    FirstDate = DateSerial(Year(Prev2MM), Month(Prev2MM), 1)
   
    ' หาวันสุดท้ายของเดือนนี้
    ' เท่ากับ วันที่ 1 ของ 2 เดือนก่อน + 3 เดือน - 1 วัน
    LastDate = DateAdd("d", -1, DateAdd("m", 3, FirstDate))
   
    Me.RecordSource = "select * from ชื่อเทเบิล where ชื่อฟิลด์วันที่ between #" & Format(FirstDate, "dd/mmm/yyyy") & "# and #" & Format(LastDate, "dd/mmm/yyyy") & "#"


[prajak]

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