แจ้งเตือนเมื่อเข้าเงืื่่อนไข

[naekkhung]

ผมมี subform ชื่อ collection มีฟิวส์ชื่อ Date_time_co เก็บค่าเป็นวันที่ และฟิวส์ชื่อ ResultCode_Remark แยกประเภทลูกค้า ติดต่อได้ กับ ติดต่อไม่ได้
เงื่อนไขคือผมอยากให้ User ที่มีการติดตามลูกค้าเคสนี้ภายในวันแล้ว และลูกค้าเป็นประเภทติดต่อได้ ถ้า User กลับมาหน้าลูกค้าที่มีการติดตามภายในวันนี้แล้วและ ติดต่อได้ ให้แจ้ง ข้อความเตือนว่า "วันนี้คุณได้โทรหาลูกค้าแล้ว"

[PNR]

ตาราง เชื่อมกับ subform ชื่อ ตาราง call ไหมครับ

โค้ดง่ายๆ โดยเช็คกับวันที่ปัจจุบัน และ เช็คเงื่อนไข การระบุ ติดต่อได้

น่าจะต้อง เช็คเงื่อนไขกับ ID ลูกค้าไว้ด้วยครับ ประมาณนี้
ส่วนที่จะเช็คเงื่อนไขคือ
ID ลูกค้า
Date_time_co เก็บวันที่
ResultCode_Remark เก็บสถานะ

Dim CheckMaxDate As Date
CheckMaxDate = Nz(DMax("Date_time_co", "[ตาราง call]", "[ResultCode_Remark]=""ติดต่อได้"" AND ID =" & Forms!ชื่อฟอร์มหลัก!txtID))

If Not IsNull(CheckMaxDate) And CheckMaxDate = Date Then
MsgBox "วันนี้คุณได้โทรหาลูกค้าแล้ว", vbInformation, "สถานะ!!"
End If


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

[naekkhung]

ผมต้องเอาโค๊ดไปไว้ที่ ฟอร์มหลัก หรือ subform ครับ คุณ PNR ผมลองเอาไปวางทั้ง 2 ฟอร์มแล้ว โค๊ดแจ้ง Error

[PNR]

มันต้องหา Event การทำงานให้มันครับ

ผมไม่แน่ใจว่าในโปรแกรมของคุณจะตรวจสอบตอนไหน ว่ามีการติดต่อแล้ว

จากตัวอย่าง ผมสมมุติพอเราเลือกเคสที่จะเข้าไปดูรายละเอียดแล้ว ถ้ามีการติดต่อแล้วจะแจ้งเตือน
ตัวอย่างง่ายๆ ด้านล่าง

[naekkhung]

ผมลองทำตามคุณ PNR ได้แล้วครับแต่ติดปัญหาตอนนี้่คือ พอผมเปลี่ยน ID ของคุณ PNR เป็นฟิวส์ customer_code ของผม ซึง subform ผมมี key หลัก 2 ตัว คือ ID_Auto เก็บเป็น autonumber customer_code เก็บเป็น text  พอเปลี่ยนแล้วมันขึ้นว่า ชนิดข้อมูลไม่ตรงกันในนิพจน์เกณฑ์

CheckMaxDate = Nz(DMax("Date_time_co", "[ตาราง call]", "[ResultCode_Remark]=""ติดต่อได้"" AND customer_code =" & Forms!frmmain_Con!customer_code))

[PNR]

ผมแก้ไขให้แล้วครับ
ส่วนที่แก้ คือถ้ามี Customercode ก็ต้องเอาอันนี้แหละมาอ้างอิงแทน ID ครับ
โดยโค้ดกรองฟอร์มก็จะเป็น
DoCmd.OpenForm "FrmMain_Con", , , "[customer_code]='" & Me![txtcustomer_code] & "'"

มีเครื่องหมาย single quote เพราะ ข้อมูลเป็น text ไม่ใช่ตัวเลขครับ

ส่วนโค้ดของ ระบบแจ้งเตือนก็เปลี่ยนเป็นแบบนี้

โค๊ด: [Select]

Private Sub Form_Current()
Dim CheckMaxDate As Date
CheckMaxDate = Nz(DMax("Date_time_co", "[ตาราง call]", "[ResultCode_Remark]=""ติดต่อได้"" AND customer_code ='" & Forms!frmmain_Con!txtcustomer_code & "'"))

If Not IsNull(CheckMaxDate) And CheckMaxDate >= Date Then
MsgBox "วันนี้คุณได้โทรหาลูกค้าแล้ว", vbInformation, "สถานะ!!"
End If
End Sub


[naekkhung]

ได้แล้วครับขอบคุณ คุณ PNR มากเลยครับ