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


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

15 มี.ค. 66 , 17:22:51
อ่าน 493 ครั้ง

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




 

16 มี.ค. 66 , 20:07:25
ตอบกลับ #1

nonc31

: ไม่ต้องการให้โชว์ข้อมูลเมื่อติดต่อได้
« ตอบกลับ #1 เมื่อ: 16 มี.ค. 66 , 20:07:25 »
ก็ลบ  [ชื่อนามสกุล]  ออก
ไม่ก็...เพิ่มฟิลด์ ชนิดตัวเลข ไว้เก็บค่าความถี่

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

 


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


 

Sitemap 1 2 3 4 5