طبعا سؤالك حسب معطيات نموذجك ؟ ... لكن حاول ان تستفيد من هذا
If DCount("الرقم", "Données _sur- les- élèves", "[الاسم] = '" & الاسم & "' And [اللقب] = '" & اللقب & "' And [رقم التسجيل] ='" & رقم_التسجيل & "'") > 0 Then
Cancel = True
MsgBox "هذا الشخص موجود", vbCritical, "عملية خاطئة"
End If
وهذه طريق اخرى
If Not IsNull(DLookup("A", "ABCD", "A=form!A")) Then
MsgBox "هذا الرقم تكرر عند " & DLookup("B", "ABCD", "A=form!A")
End If