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


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

09 ธ.ค. 62 , 08:57:15
อ่าน 903 ครั้ง

naekkhung



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

 

09 ธ.ค. 62 , 09:37:57
ตอบกลับ #1

PNR

: แจ้งเตือนเมื่อเข้าเงืื่่อนไข
« ตอบกลับ #1 เมื่อ: 09 ธ.ค. 62 , 09:37:57 »
ตาราง เชื่อมกับ 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
เช็ควันที่ปัจจุบัน กับ วันที่ๆ ลงในระบบไว้แล้ว และตรวจสอบว่า มีการระบุ ติดต่อได้ ไว้หรือไม่


« แก้ไขครั้งสุดท้าย: 09 ธ.ค. 62 , 09:55:46 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung, jee007

09 ธ.ค. 62 , 11:34:35
ตอบกลับ #2

naekkhung

: แจ้งเตือนเมื่อเข้าเงืื่่อนไข
« ตอบกลับ #2 เมื่อ: 09 ธ.ค. 62 , 11:34:35 »
ผมต้องเอาโค๊ดไปไว้ที่ ฟอร์มหลัก หรือ subform ครับ คุณ PNR ผมลองเอาไปวางทั้ง 2 ฟอร์มแล้ว โค๊ดแจ้ง Error
« แก้ไขครั้งสุดท้าย: 09 ธ.ค. 62 , 11:50:14 โดย naekkhung »

 

09 ธ.ค. 62 , 13:26:22
ตอบกลับ #3

PNR

: แจ้งเตือนเมื่อเข้าเงืื่่อนไข
« ตอบกลับ #3 เมื่อ: 09 ธ.ค. 62 , 13:26:22 »
มันต้องหา Event การทำงานให้มันครับ

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

จากตัวอย่าง ผมสมมุติพอเราเลือกเคสที่จะเข้าไปดูรายละเอียดแล้ว ถ้ามีการติดต่อแล้วจะแจ้งเตือน
ตัวอย่างง่ายๆ ด้านล่าง
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

09 ธ.ค. 62 , 16:30:01
ตอบกลับ #4

naekkhung

: แจ้งเตือนเมื่อเข้าเงืื่่อนไข
« ตอบกลับ #4 เมื่อ: 09 ธ.ค. 62 , 16:30:01 »
ผมลองทำตามคุณ 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))
« แก้ไขครั้งสุดท้าย: 09 ธ.ค. 62 , 16:46:37 โดย naekkhung »

 

10 ธ.ค. 62 , 08:26:01
ตอบกลับ #5

PNR

: แจ้งเตือนเมื่อเข้าเงืื่่อนไข
« ตอบกลับ #5 เมื่อ: 10 ธ.ค. 62 , 08:26:01 »
ผมแก้ไขให้แล้วครับ
ส่วนที่แก้ คือถ้ามี 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
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

10 ธ.ค. 62 , 10:36:21
ตอบกลับ #6

naekkhung

: แจ้งเตือนเมื่อเข้าเงืื่่อนไข
« ตอบกลับ #6 เมื่อ: 10 ธ.ค. 62 , 10:36:21 »
ได้แล้วครับขอบคุณ คุณ PNR มากเลยครับ

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


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


 

Sitemap 1 2 3 4 5