وجدت أثناء تصفحي للأمثلة هذا الكود
Private Sub Caller_ID2_AfterUpdate()
If Not IsNull(DLookup("[Caller-ID2]", "StuDay", "[Caller-ID2]=Forms![date_data]![student_data_Sub].Form![Caller-ID2]")) Then
MsgBox "ÓÈÞ ÊÓÌíá äÝÓ ÇáÑÞã ÎáÇá Çáíæã " & Year(date), vbMsgBoxRight, "ÊäÈíå"
[Caller-ID2] = Null
[Name of Student] = Null
[Caller-ID2].SetFocus
End If
End Sub
فهل من الممكن شرحة بشكل موجز