ไม่ต้องการให้โชว์ข้อมูลเมื่อติดต่อได้

[naekkhung]

ตอนนี้เขียนโค๊ดแบบนี้อยู่
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 ตามรูปแบบนี้ครับสามารถทำได้ไหม

[nonc31]

ก็ลบ  [ชื่อนามสกุล]  ออก
ไม่ก็...เพิ่มฟิลด์ ชนิดตัวเลข ไว้เก็บค่าความถี่

If [ความถี่]<2 Then
  MsgBox [ชื่อนามสกุล] & "     มีการติดต่อภายในวันนี้แล้ว กรุณาติดต่ออีกครั้งในวันถัดไป", vbCritical, "แจ้งเตือน!!! ความถี่ในการติด่อลูกหนี้"
  [ความถี่]=[ความถี่]+1
else
  MsgBox "มีการติดต่อภายในวันนี้แล้ว กรุณาติดต่ออีกครั้งในวันถัดไป", vbCritical, "แจ้งเตือน!!! ความถี่ในการติด่อลูกหนี้"
End If