أخي الفاضل البحث هنا بالأسم الأول أو الثاني ........ وكما أني أشرت الى انه يمكن زيادة حقول البحث كيفما تشاء .
أما اذا تريد زيادة حقول البحث (حدد الحقول وأنا تحت أمرك) تحياتي .
أخي الفاضل بيضيف 3 أيام كلما انقضى شهر و6 أيام كلما انقضى شهران !!!!!!!!! راجع المرفق جيداً............ جرب عدل تاريخ الكمبيوتر شهر أو شهران للأمام وشوف النتيجة .
تفضل أخي .
Private Sub Patient__Name_BeforeUpdate(Cancel As Integer)
Dim NameFd
NameFd = Me.Patient__Name
Dim a
a = DLookup("[Patient_Name]", "PatientsData", "[Patient_Name]='" & Me.Patient_Name & "'")
If Not (IsNull(a)) Then
MsgBox "This Name : ( " + NameFd + " ) registered before " + vbNewLine + vbNewLine + " It cannot be repeated " + vbLf + vbLf + " pre-recorded records ", vbCritical + vbMsgBoxRight, "ÃäÜÜÊÈÇå : Warning"
Cancel = True
Me.Undo
DoCmd.FindRecord NameFd
End If
End Sub