ตอนนี้เขียนโค๊ดแบบนี้อยู่
Private Sub Form_Current()
Dim CheckMaxDate As Date
CheckMaxDate = Nz(DMax("Date_time_co", "[ตาราง call]", "[ResultCode_Remark]=""ติดต่อได้"" AND AgreementN ='" & Forms![ข้อมูลทั้งหมด]!AgreementN & "'"))

If Not IsNull(CheckMaxDate) And CheckMaxDate >= Date Then
MsgBox [ชื่อนามสกุล] & "     มีการติดต่อภายในวันนี้แล้ว กรุณาติดต่ออีกครั้งในวันถัดไป", vbCritical, "                       แจ้งเตือน!!! ความถี่ในการติด่อลูกหนี้"
End If

ตอนนี้คือโปรแกรมเด้งแจ้งเตือน POPUP เคสที่โทรภายในวันแล้วติดต่อได้แต่ข้อมูลลูกค้าก็ยังโชว์หน้าฟอร์มปกติ

สิ่งที่อยากได้คือให้ POPUP แจ้งเตือนปกติแต่ข้อมูลของลูกค้าจะไม่แสดงโชว์หน้า Form ตามรูปแบบนี้ครับสามารถทำได้ไหม

ผมมี Form หลักชื่อ Form1 และมี Subform เก็บจำนวนการติดต่อลูกค้าแต่ละรายว่าภายในวันติดต่อไปกี่ครั้งแล้วชื่อ Form2 อยากทราบว่าถ้าในกรณีพนักงานติดต่อลูกค้าถึง 3 ครั้งแล้ว Subform จะขึ้นจำนวน 3 ครั้ง อยากให้เด้งแจ้งเตือนข้อความว่าห้ามติดต่ออีกต้องเขียนแบบไหนครับ

รบกวน อ.OddyWriter สอบถามหน่อยครับว่าทำไหมบางวันก็เตือนบางวันก็ไม่แจ้งเตือนครับรูปแบบวันที่ผมใช้เป็น dd//mm/yyyy hh:nn:ss เมื่อพนักงานทำการบันทึกข้อมูลจะลงวันที่อัตโนมัติ ไม่ทราบว่าเกี่ยวกับรูปแบบวันที่หรือป่าวเลยไม่แจ้งเตือน แต่เมื่อวาน 11/11/2021 โปรแกรมแจ้งเตือนปกติ

ขอบคุณครับ แต่ผมไม่มีทักษะทางนี้เลยครับมือใหม่มากขอความกรุณาทำเป็นตัวอย่างให้ทีครับ

ฟอร์มหลักชื่อ customer เก็บข้อมูลลูกค้า
subformชื่อ collection เก็บข้อมูลการติดตามของลูกค้า

เงื่อนไขคือถ้าภายในวันพนักงานมีการติดตามลูกค้าครบ 3 ครั้งแล้วให้แจ้งเตือนตามลูกศรต้องเขียนแบบไหนครับ

ข้อมูลตัวอย่างครับ

ผมมี ฟิวส์ชื่อ TCC เก็บรหัสพนักงาน TCC001-TCC010 ความต้องการคืออยากให้ใน คิวรี่ Random ข้อมูลฟิวส์ TCC ตามตัวอย่างในรูปชื่อฟิวส์ TCC Randow ต้องเขียนในคิวรี่แบบไหนครับแล้วมันสามารถทำให้มันไม่ซ้่ำข้อมูลเดิมได้ไหม

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