subform ครบหนดให้แจ้งเตือน

[naekkhung]

มี Form หลักชื่อ Mainform มี subform ชื่อ frequency แสดงข้อมูลการติดต่อลูกค้าภายในวัน
คำถามคือเมื่อ subform แสดงจำนวนครบ 3 ครั้งแล้วให้แจ้ง Popup ข้อความว่ามีการติดต่อครบ 3 ครั้งแล้ว ต้องเขียนแบบไหนครับ

[nonc31]

Private Sub Command0_Click()
    If Len([TEL TU(P)]) > 0 Then t1 = 1
    If Len([TEL TU(O)]) > 0 Then t2 = 1
    If Len([TEL TU(R)]) > 0 Then t3 = 1
    If Len([TEL TM]) > 0 Then t4 = 1
    If Len([TEL TO]) > 0 Then t5 = 1
    If Len([TEL TOI]) > 0 Then t6 = 1
   
    If t1 + t2 + t3 + t4 + t5 + t6 >= 3 Then
        MsgBox "มีการติดต่อ " & t1 + t2 + t3 + t4 + t5 + t6 & " แล้ว", vbExclamation, "แจ้ง"
    End If
End Sub